Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcrst.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/trcrst.F90 (modified) (3 diffs)

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

@@ -52 +52 @@
       !!----------------------------------------------------------------------
       !
-      IF( lk_offline ) THEN
+      IF( l_offline ) THEN
          IF( kt == nittrc000 ) THEN
             lrst_trc = .FALSE.
@@ -147 +147 @@
           lrst_trc = .FALSE.
 #endif
-          IF( lk_offline .AND. ln_rst_list ) THEN
+          IF( l_offline .AND. ln_rst_list ) THEN
              nrst_lst = nrst_lst + 1
              nitrst = nstocklist( nrst_lst )
@@ -219 +219 @@
          ENDIF
          !
-         IF( lk_offline ) THEN    
+         IF( l_offline ) THEN    
             !                                          ! set the date in offline mode
             IF( ln_rsttr .AND. nn_rsttr == 2 ) THEN