Changeset 1242 for trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2009-01-06T11:21:38+01:00 (15 years ago)

Author:

rblod

Message:

Fix runtime issues with AGRIF on NEC and add the ability to run without sea-ice on the fine grid hierarchy

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -85 +85 @@
 !!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( lk_lim2 )            nn_ice      = 2
-      IF( lk_lim3 )            nn_ice      = 3
+#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
       IF( cp_cfg == 'gyre' ) THEN
           ln_ana      = .TRUE.