Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.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/TRP/trcbbl.F90 (modified) (1 diff)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

@@ -54 +54 @@
       IF( nn_timing == 1 )  CALL timing_start('trc_bbl')
       !
-      IF( .NOT. lk_offline .AND. nn_dttrc == 1 ) THEN
+      IF( .NOT. l_offline .AND. nn_dttrc == 1 ) THEN
          CALL bbl( kt, nittrc000, 'TRC' )      ! Online coupling with dynamics  : Computation of bbl coef and bbl transport
          l_bbl = .FALSE.                       ! Offline coupling with dynamics : Read bbl coef and bbl transport from input files