Changeset 5368
- Timestamp:
- 2015-06-05T14:24:47+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trc.F90
r5367 r5368 47 47 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gtrui !: hor. gradient at u-points at top ocean level 48 48 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: gtrvi !: hor. gradient at v-points at top ocean level 49 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: qsr_mean !: daily mean qsr 49 50 50 51 !! passive tracers (input and output) … … 64 65 LOGICAL , PUBLIC :: ln_trcdmp_clo !: internal damping flag on closed seas 65 66 INTEGER , PUBLIC :: nittrc000 !: first time step of passive tracers model 67 LOGICAL , PUBLIC :: l_trcdm2dc !: Diurnal cycle for TOP 66 68 67 69 !! Information for the ice module for tracers … … 205 207 & cvol(jpi,jpj,jpk) , rdttrc(jpk) , trai(jptra) , & 206 208 & ctrcnm(jptra) , ctrcln(jptra) , ctrcun(jptra) , & 207 & ln_trc_ini(jptra) , ln_trc_wri(jptra) 209 & ln_trc_ini(jptra) , ln_trc_wri(jptra) , qsr_mean(jpi,jpj) , STAT = trc_alloc ) 208 210 209 211 IF( trc_alloc /= 0 ) CALL ctl_warn('trc_alloc: failed to allocate arrays')
Note: See TracChangeset
for help on using the changeset viewer.