Changeset 826 for branches/dev_002_LIM/NEMO/OPA_SRC/opa.F90

Timestamp:

2008-03-06T13:05:46+01:00 (16 years ago)

Author:

ctlod

Message:

dev_002_LIM: change remaining cpp key key_ice_lim into key_lim3, see ticket:#71

File:

• branches/dev_002_LIM/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

branches/dev_002_LIM/NEMO/OPA_SRC/opa.F90

@@ -59 +59 @@
 
    USE phycst          ! physical constant                  (par_cst routine)
-#if defined key_ice_lim
+#if defined key_lim3
    USE iceini          ! initialization of sea-ice         (ice_init routine)
 #endif
@@ -287 +287 @@
       CALL oc_fz_pt                         ! Surface freezing point
 
-#if defined key_ice_lim
+#if defined key_lim3
       CALL ice_init                         ! Sea ice model LIM3
 #endif