Changeset 4689 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.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/bdyini.F90 (modified) (2 diffs)

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

@@ -102 +102 @@
 #if ( defined key_lim2 || defined key_lim3 )
          &             cn_ice_lim, nn_ice_lim_dta,                           &
+#endif
+#if defined key_lim3
+         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                 &
 #endif
          &             ln_vol, nn_volctl, nn_rimwidth
@@ -359 +362 @@
         ENDIF
         IF(lwp) WRITE(numout,*)
+        IF(lwp) WRITE(numout,*) '      tem of bdy sea-ice = ', rn_ice_tem(ib_bdy)         
+        IF(lwp) WRITE(numout,*) '      sal of bdy sea-ice = ', rn_ice_sal(ib_bdy)         
+        IF(lwp) WRITE(numout,*) '      age of bdy sea-ice = ', rn_ice_age(ib_bdy)         
 #endif