Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2016-12-12T09:33:37+01:00 (7 years ago)

Author:

cetlod

Message:

Remove CPP key key_offline and replace it with a logical l_offline

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (1 diff)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -46 +46 @@
       IF( nn_timing == 1 )  CALL timing_start('trc_wri')
       !
-      IF( lk_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro
+      IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro
          CALL dia_nam( clhstnam, nn_writetrc,' ' )
          CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )