Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_user.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/NST_SRC/agrif_user.F90 (modified) (5 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -80 +80 @@
    CALL agrif_nemo_init
    CALL Agrif_InitValues_cont_dom
-# if ! defined key_offline
    CALL Agrif_InitValues_cont
-# endif       
 # if defined key_top
    CALL Agrif_InitValues_cont_top
@@ -154 +152 @@
 END SUBROUTINE agrif_declare_var_dom
 
-
-# if ! defined key_offline
 
 SUBROUTINE Agrif_InitValues_cont
@@ -464 +460 @@
    !
 END SUBROUTINE agrif_declare_var
-# endif
 
 #  if defined key_lim2
@@ -699 +694 @@
 
    IF( check_namelist ) THEN
-# if defined key_offline
       ! Check time steps
       IF( NINT(Agrif_Rhot()) * NINT(rdt) .NE. Agrif_Parent(rdt) ) THEN
@@ -742 +736 @@
          ENDIF
       ENDIF
-#  endif         
       ! Check passive tracer cell
       IF( nn_dttrc .NE. 1 ) THEN