Changeset 2580 for trunk/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2011-02-08T09:01:02+01:00 (13 years ago)

Author:

cbricaud

Message:

Corrections for EVP rheology in LIM2: add missing lines in limrhg.F90 and change parameters for ORCA2 in namelist_ice_lim2

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

@@ -190 +190 @@
             zpresh(ji,jj) = tms(ji,jj) *  strength(ji,jj) * 0.5_wp
 #endif
+#if defined key_lim2
+            zpresh(ji,jj) = tms(ji,jj) *  pstar * vt_i(ji,jj) * EXP( -c_rhg * (1. - at_i(ji,jj) ) )
+#endif
             ! tmi = 1 where there is ice or on land
             tmi(ji,jj)    = 1._wp - ( 1._wp - MAX( 0._wp , SIGN ( 1._wp , vt_i(ji,jj) - epsd ) ) ) * tms(ji,jj)