Changeset 10001 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diawri.F90

Timestamp:

2018-07-26T09:50:51+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step I.1 and I.2 (see wiki page)

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diawri.F90 (modified) (4 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diawri.F90

@@ -118 +118 @@
       ! 
       ! Output the initial state and forcings
-      IF( ninist == 1 ) THEN                       
+      IF( ln_istate ) THEN                       
          CALL dia_wri_state( 'output.init', kt )
-         ninist = 0
+         ln_istate = .FALSE.
       ENDIF
 
@@ -444 +444 @@
       IF( ln_timing )   CALL timing_start('dia_wri')
       !
-      IF( ninist == 1 ) THEN     !==  Output the initial state and forcings  ==!
+      IF( ln_istate ) THEN     !==  Output the initial state and forcings  ==!
          CALL dia_wri_state( 'output.init', kt )
-         ninist = 0
+         ln_istate = .FALSE.
       ENDIF
       !
@@ -878 +878 @@
       !!
       !! ** Method  :   NetCDF files using ioipsl
-      !!      File 'output.init.nc'  is created if ninist = 1 (namelist)
+      !!      File 'output.init.nc'  is created if ln_istate = T (namelist)
       !!      File 'output.abort.nc' is created in case of abnormal job end
       !!----------------------------------------------------------------------
@@ -1029 +1029 @@
       CALL histclo( id_i )
 #if ! defined key_iomput
-      IF( ninist /= 1  ) THEN
+      IF( ln_istate  ) THEN
          CALL histclo( nid_T )
          CALL histclo( nid_U )