Changeset 7510 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
- Timestamp:
- 2016-12-19T16:20:16+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r6994 r7510 331 331 DO ji = 1, nbpac 332 332 ztmelts = - tmut * zs_newice(ji) + rt0 ! Melting point (K) 333 ze_newice(ji) = rhoic * ( cpic * ( ztmelts - t_bo_1d(ji) ) &333 ze_newice(ji) = rhoic * ( cpic * ( ztmelts - t_bo_1d(ji) ) & 334 334 & + lfus * ( 1.0 - ( ztmelts - rt0 ) / MIN( t_bo_1d(ji) - rt0, -epsi10 ) ) & 335 335 & - rcp * ( ztmelts - rt0 ) )
Note: See TracChangeset
for help on using the changeset viewer.