Changeset 833 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2008-03-07T14:51:35+01:00 (16 years ago)

Author:

rblod

Message:

Merge branche dev_002_LIM back to trunk ticket #70 and #71

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -144 +144 @@
       CALL iom_rstput( kt, nitrst, numrow, 'hdivn'  , hdivn   )
 
-#if defined key_ice_lim        
+#if defined key_lim3 || defined key_lim2
       CALL iom_rstput( kt, nitrst, numrow, 'nfice'  , REAL( nfice, wp) )   !  ice computation frequency
       CALL iom_rstput( kt, nitrst, numrow, 'sst_io' , sst_io  )
@@ -210 +210 @@
       !!----------------------------------------------------------------------
       REAL(wp) ::   zcoef, zkt, zrdt, zrdttra1, zndastp, znfice, znfbulk
-#if defined key_ice_lim
+#if defined key_lim3 || defined key_lim2
       INTEGER  ::   ji, jj
 #endif
@@ -306 +306 @@
       !!sm: TO BE MOVED IN NEW SURFACE MODULE...
 
-#if defined key_ice_lim
+#if defined key_lim3 || defined key_lim2
       ! Louvain La Neuve Sea Ice Model
       IF( iom_varid( numror, 'nfice', ldstop = .FALSE. ) > 0 ) then