2 SUBROUTINE ana_btflux (ng, tile, model, itrc)
23 integer,
intent(in) :: ng, tile, model, itrc
27 character (len=*),
parameter :: MyFile = &
32 CALL ana_btflux_tile (ng, tile, model, itrc, &
33 & lbi, ubi, lbj, ubj, &
34 & imins, imaxs, jmins, jmaxs, &
51 SUBROUTINE ana_btflux_tile (ng, tile, model, itrc, &
52 & LBi, UBi, LBj, UBj, &
53 & IminS, ImaxS, JminS, JmaxS, &
62 integer,
intent(in) :: ng, tile, model, itrc
63 integer,
intent(in) :: LBi, UBi, LBj, UBj
64 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
67 real(r8),
intent(inout) :: btflux(LBi:,LBj:,:)
69 real(r8),
intent(inout) :: btflux(LBi:UBi,LBj:UBj,NT(ng))
76#include "set_bounds.h"
82 IF (itrc.eq.
itemp)
THEN
85 btflux(i,j,itrc)=0.0_r8
94 ELSE IF (itrc.eq.
isalt)
THEN
97 btflux(i,j,itrc)=0.0_r8
109 btflux(i,j,itrc)=0.0_r8
subroutine ana_btflux_tile(ng, tile, model, itrc, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, btflux)