Changeset 2057 for LMDZ5/trunk/libf/phylmd/surface_data.F90

Timestamp:

Jun 16, 2014, 4:33:38 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Preparatory stuff to fix and improve the slab ocean model.
FC

File:

• LMDZ5/trunk/libf/phylmd/surface_data.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surface_data.F90

@@ -7 +7 @@
   REAL, PARAMETER        :: tau_gl=86400.*5.
   REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
+  REAL, PARAMETER        :: t_freeze=271.35
+  REAL, PARAMETER        :: t_melt=273.15
   
   LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
@@ -20 +22 @@
 
   ! if type_ocean=couple : version_ocean=opa8 ou nemo
-  ! if type_ocean=slab   : version_ocean=sicOBS
+  ! if type_ocean=slab   : version_ocean=sicOBS or sicINT or sicNO
   CHARACTER(len=6), SAVE :: version_ocean 
   !$OMP THREADPRIVATE(version_ocean)