Changeset 6230
- Timestamp:
- 2016-01-11T15:23:52+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r6229 r6230 255 255 # if defined key_debug_medusa 256 256 WRITE(numout,*) ' litle check : ', ctrcnm(1) 257 CALL trc_rst_stat258 257 CALL flush(numout) 259 258 # endif … … 275 274 IF(lwp) WRITE(numout,*) '~~~~~~~' 276 275 IF(lwp) CALL flush(numout) 276 # if defined key_debug_medusa 277 CALL trc_rst_stat 278 CALL flush(numout) 279 # endif 277 280 278 281 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10)
Note: See TracChangeset
for help on using the changeset viewer.