2 SUBROUTINE ana_sst (ng, tile, model)
25 integer,
intent(in) :: ng, tile, model
29 character (len=*),
parameter :: MyFile = &
34 CALL ana_sst_tile (ng, tile, model, &
35 & lbi, ubi, lbj, ubj, &
36 & imins, imaxs, jmins, jmaxs, &
50 END SUBROUTINE ana_sst
53 SUBROUTINE ana_sst_tile (ng, tile, model, &
54 & LBi, UBi, LBj, UBj, &
55 & IminS, ImaxS, JminS, JmaxS, &
69 integer,
intent(in) :: ng, tile, model
70 integer,
intent(in) :: LBi, UBi, LBj, UBj
71 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
74 real(r8),
intent(out) :: sst(LBi:,LBj:)
76 real(r8),
intent(out) :: sst(LBi:UBi,LBj:UBj)
83#include "set_bounds.h"
99 & lbi, ubi, lbj, ubj, &
105 & lbi, ubi, lbj, ubj, &
112 END SUBROUTINE ana_sst_tile
subroutine ana_sst(ng, tile, model)
subroutine ana_sst_tile(ng, tile, model, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, sst)
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)