Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.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/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -40 +40 @@
    USE dyncor_c1d     ! 1D configuration: Coriolis term    (cor_c1d routine)
    !
+   USE trc_oce , ONLY :   l_offline    ! passive tracers offline flag
+   !
    USE in_out_manager ! I/O manager
    USE iom            ! I/O library
@@ -178 +180 @@
       ELSE                       != time varying : initialize before/now/after variables
          !
-         IF( .NOT.lk_offline )  CALL dom_vvl_init 
+         IF( .NOT.l_offline )  CALL dom_vvl_init 
          !
       ENDIF