2 SUBROUTINE ana_stflux (ng, tile, model, itrc)
23 integer,
intent(in) :: ng, tile, model, itrc
27 character (len=*),
parameter :: MyFile = &
32 CALL ana_stflux_tile (ng, tile, model, itrc, &
33 & lbi, ubi, lbj, ubj, &
34 & imins, imaxs, jmins, jmaxs, &
51 END SUBROUTINE ana_stflux
54 SUBROUTINE ana_stflux_tile (ng, tile, model, itrc, &
55 & LBi, UBi, LBj, UBj, &
56 & IminS, ImaxS, JminS, JmaxS, &
73 integer,
intent(in) :: ng, tile, model, itrc
74 integer,
intent(in) :: LBi, UBi, LBj, UBj
75 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
79 real(r8),
intent(in) :: srflx(LBi:,LBj:)
81 real(r8),
intent(inout) :: stflux(LBi:,LBj:,:)
84 real(r8),
intent(in) :: srflx(LBi:UBi,LBj:UBj)
86 real(r8),
intent(inout) :: stflux(LBi:UBi,LBj:UBj,NT(ng))
93#include "set_bounds.h"
99 IF (itrc.eq.
itemp)
THEN
103 stflux(i,j,itrc)=srflx(i,j)
105 stflux(i,j,itrc)=0.0_r8
115 ELSE IF (itrc.eq.
isalt)
THEN
118 stflux(i,j,itrc)=0.0_r8
130 stflux(i,j,itrc)=0.0_r8
139 & lbi, ubi, lbj, ubj, &
146 & lbi, ubi, lbj, ubj, &
153 END SUBROUTINE ana_stflux_tile
subroutine ana_stflux_tile(ng, tile, model, itrc, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, srflx, stflux)
subroutine ana_stflux(ng, tile, model, itrc)
subroutine exchange_r2d_tile(ng, tile, lbi, ubi, lbj, ubj, a)
type(t_forces), dimension(:), allocatable forces
character(len=256), dimension(39) ananame
logical, dimension(:), allocatable ewperiodic
logical, dimension(:), allocatable nsperiodic
subroutine mp_exchange2d(ng, tile, model, nvar, lbi, ubi, lbj, ubj, nghost, ew_periodic, ns_periodic, a, b, c, d)