- Timestamp:
- 2015-12-15T15:50:11+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/TOP_SRC/trc.F90
r6051 r6053 91 91 CHARACTER(len = 20) :: clunit !: unit 92 92 LOGICAL :: llinit !: read in a file or not 93 #if defined key_my_trc 94 LOGICAL :: llsbc !: read in a file or not 95 LOGICAL :: llcbc !: read in a file or not 96 LOGICAL :: llobc !: read in a file or not 97 #endif 93 98 LOGICAL :: llsave !: save the tracer or not 94 99 END TYPE PTRACER … … 181 186 # endif 182 187 ! 188 #if defined key_bdy 189 CHARACTER(len=20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: cn_trc_dflt ! Default OBC condition for all tracers 190 CHARACTER(len=20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: cn_trc ! Choice of boundary condition for tracers 191 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: nn_trcdmp_bdy !: =T Tracer damping 192 ! External data structure of BDY for TOP. Available elements: cn_obc, ll_trc, trcnow, dmp 193 TYPE(OBC_DATA), PUBLIC, ALLOCATABLE, DIMENSION(:,:), TARGET :: trcdta_bdy !: bdy external data (local process) 194 #endif 195 ! 183 196 184 197 !!---------------------------------------------------------------------- … … 203 216 & cvol(jpi,jpj,jpk) , trai(jptra) , & 204 217 & ctrcnm(jptra) , ctrcln(jptra) , ctrcun(jptra) , & 205 & ln_trc_ini(jptra) , ln_trc_wri(jptra) , qsr_mean(jpi,jpj) , STAT = trc_alloc ) 218 & ln_trc_ini(jptra) , ln_trc_wri(jptra) , qsr_mean(jpi,jpj) , & 219 #if defined key_my_trc 220 & ln_trc_sbc(jptra) , ln_trc_cbc(jptra) , ln_trc_obc(jptra) , & 221 #endif 222 #if defined key_bdy 223 & cn_trc_dflt(nb_bdy) , cn_trc(nb_bdy) , nn_trcdmp_bdy(nb_bdy) , & 224 & trcdta_bdy(jptra,nb_bdy) , & 225 #endif 226 & STAT = trc_alloc ) 206 227 207 228 IF( trc_alloc /= 0 ) CALL ctl_warn('trc_alloc: failed to allocate arrays')
Note: See TracChangeset
for help on using the changeset viewer.