Changeset 477 for trunk/NEMO/LIM_SRC/limdmp.F90

Timestamp:

2006-06-19T15:12:38+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_045 : CT : - Compilation fails if including LIM but not key_tradmp. Cause is that limdmp uses resto, which is provided by tradmp; add cpp key_tradmp in the module head

• syntax error in limdmp.F90, replace the variable name icethic by iicethic

File:

• trunk/NEMO/LIM_SRC/limdmp.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limdmp.F90

@@ -4 +4 @@
    !!  Ice model : restoring Ice thickness and Fraction leads
    !!======================================================================
-#if defined key_ice_lim
+#if defined key_ice_lim && defined key_tradmp
    !!----------------------------------------------------------------------
    !!   'key_ice_lim' :                                   LIM sea-ice model
@@ -196 +196 @@
          ! Read monthly ice thickness Levitus 
          
-         CALL flinget( numice_dmp, 'icethic', jpidta, jpjdta, jpk,  &
+         CALL flinget( numice_dmp, 'iicethic', jpidta, jpjdta, jpk,  &
             &          jpmois, nice1, nice1, mig(1), nlci, mjg(1), nlcj, hicif_data(1:nlci,1:nlcj,1) )
-         CALL flinget( numice_dmp, 'icethic', jpidta, jpjdta, jpk,  &
+         CALL flinget( numice_dmp, 'iicethic', jpidta, jpjdta, jpk,  &
             &          jpmois, nice2, nice2, mig(1), nlci, mjg(1), nlcj, hicif_data(1:nlci,1:nlcj,2) )