Changeset 5741 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2015-09-14T14:47:58+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
r5739 r5741 36 36 LOGICAL, PUBLIC :: & 37 37 bocalccd = .TRUE. 38 !! JPALM (14/09/15) 39 LOGICAL, PUBLIC :: & 40 ln_ccd = .FALSE. 41 38 42 INTEGER :: & 39 43 numccd … … 296 300 !! * arguments 297 301 INTEGER, INTENT( in ) :: kt ! ocean time step 298 !! JPALM (14/09/15)299 LOGICAL, PUBLIC :: &300 ln_ccd = .FALSE.301 302 302 303 !!--------------------------------------------------------------------- … … 307 308 !!!! JPALM -- 14-09-2015 -- 308 309 !!!! -- to test on ORCA2 with Christian, no file available, so initiate to 0 309 IF ln_ccdTHEN310 IF (ln_ccd) THEN 310 311 IF(lwp) WRITE(numout,*) ' ' 311 312 IF(lwp) WRITE(numout,*) ' **** Routine trc_ini_medusa_ccd'
Note: See TracChangeset
for help on using the changeset viewer.