- Timestamp:
- 2015-12-15T10:46:14+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/TOP_SRC/trc.F90
r5836 r6051 64 64 CHARACTER(len = 80) , PUBLIC :: cn_trcrst_out !: suffix of pass. tracer restart name (output) 65 65 CHARACTER(len = 256), PUBLIC :: cn_trcrst_outdir !: restart output directory 66 REAL(wp) , PUBLIC , ALLOCATABLE, SAVE, DIMENSION(:) :: rdttrc !: vertical profile ofpassive tracer time step66 REAL(wp) , PUBLIC :: rdttrc !: passive tracer time step 67 67 LOGICAL , PUBLIC :: ln_top_euler !: boolean term for euler integration 68 68 LOGICAL , PUBLIC :: ln_trcdta !: Read inputs data from files … … 201 201 & gtrui(jpi,jpj,jptra) , gtrvi(jpi,jpj,jptra) , & 202 202 & sbc_trc_b(jpi,jpj,jptra), sbc_trc(jpi,jpj,jptra) , & 203 & cvol(jpi,jpj,jpk) , rdttrc(jpk) , trai(jptra), &203 & cvol(jpi,jpj,jpk) , trai(jptra) , & 204 204 & ctrcnm(jptra) , ctrcln(jptra) , ctrcun(jptra) , & 205 205 & ln_trc_ini(jptra) , ln_trc_wri(jptra) , qsr_mean(jpi,jpj) , STAT = trc_alloc )
Note: See TracChangeset
for help on using the changeset viewer.