Changeset 4689 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

Timestamp:

2014-06-25T01:40:18+02:00 (10 years ago)

Author:

clem

Message:

new version of LIM3 with perfect conservation of heat, see ticket #1352

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

@@ -109 +109 @@
                                                               !: = 1 read it in a NetCDF file
 #endif
+#if defined key_lim3
+   REAL,    DIMENSION(jp_bdy) ::   rn_ice_tem               !: choice of the temperature of incoming sea ice
+   REAL,    DIMENSION(jp_bdy) ::   rn_ice_sal               !: choice of the salinity    of incoming sea ice
+   REAL,    DIMENSION(jp_bdy) ::   rn_ice_age               !: choice of the age         of incoming sea ice
+#endif
    !