Changeset 1465 for trunk/NEMO/LIM_SRC_3/thd_ice.F90

Timestamp:

2009-06-11T09:29:51+02:00 (15 years ago)

Author:

smasson

Message:

supress ice_oce module, see ticket:448

File:

• trunk/NEMO/LIM_SRC_3/thd_ice.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/thd_ice.F90

@@ -85 +85 @@
       dqla_ice_1d ,     &  !:    "                  "      dqla_ice
                                 ! to reintegrate longwave flux inside the ice thermodynamics
-      qtur_ice_1d ,     &  !:    "                  "      qtur_ice
-      dqtu_ice_1d ,     &  !:    "                  "      dqtu_ice
-      catm_ice_1d ,     &  !:    "                  "      catm_ice
+!!sm: not used      qtur_ice_1d ,     &  !:    "                  "      qtur_ice
+!!sm: not used      dqtu_ice_1d ,     &  !:    "                  "      dqtu_ice
+!!sm: not used      catm_ice_1d ,     &  !:    "                  "      catm_ice
       tatm_ice_1d ,     &  !:    "                  "      tatm_ice
-      evsq_ice_1d ,     &  !:    "                  "      evsq_ice
-      sbud_ice_1d ,     &  !:    "                  "      sbud_ice
+!!sm: not used      evsq_ice_1d ,     &  !:    "                  "      evsq_ice
+!!sm: not used      sbud_ice_1d ,     &  !:    "                  "      sbud_ice
       fsup        ,     &  !:    Energy flux sent from bottom to lateral ablation if |dhb|> 0.15 m
       focea       ,     &  !:    Remaining energy in case of total ablation
@@ -102 +102 @@
       dsm_i_gd_1d ,     &  !:    Ice salinity variations due to gravity drainage
       dsm_i_se_1d ,     &  !:    Ice salinity variations due to basal salt entrapment
-      dsm_i_la_1d ,     &  !:    Ice salinity variations due to lateral accretion    
+!!sm: not used      dsm_i_la_1d ,     &  !:    Ice salinity variations due to lateral accretion    
       dsm_i_si_1d ,     &  !:    Ice salinity variations due to lateral accretion    
       hicol_b              !:    Ice collection thickness accumulated in fleads