Changeset 1804 for branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2010-02-08T11:51:02+01:00 (14 years ago)

Author:

sga

Message:

merge of trunk changes from r1782 to r1802 into NEMO branch dev_005_AWL

File:

• branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)

branches/dev_005_AWL/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -86 +86 @@
 !!gm here no overwrite, test all option via namelist change: require more incore memory
 !!gm  IF( lk_sbc_cpl       ) THEN   ;   ln_cpl      = .TRUE.   ;   ELSE   ;   ln_cpl      = .FALSE.   ;   ENDIF
-#if defined key_agrif
+
       IF ( Agrif_Root() ) THEN
-#endif
         IF( lk_lim2 )            nn_ice      = 2
         IF( lk_lim3 )            nn_ice      = 3
-#if defined key_agrif
-      ENDIF
-#endif
+      ENDIF
+      !
       IF( cp_cfg == 'gyre' ) THEN
           ln_ana      = .TRUE.