Changeset 1572 for trunk/NEMO/LIM_SRC_3/limitd_me.F90
- Timestamp:
- 2009-08-03T16:53:15+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limitd_me.F90
r1571 r1572 1 1 MODULE limitd_me 2 3 #if defined key_lim34 !!----------------------------------------------------------------------5 !! 'key_lim3' : LIM3 sea-ice model6 !!----------------------------------------------------------------------7 !!8 2 !!====================================================================== 9 3 !! *** MODULE limitd_me *** … … 11 5 !! computation of changes in g(h) 12 6 !!====================================================================== 13 !! 7 !! History : LIM ! 2006-02 (M. Vancoppenolle) Original code 8 !! 3.2 ! 2009-07 (M. Vancoppenolle, Y. Aksenov, G. Madec) bug correction in smsw & fsalt_rpo 14 9 !!---------------------------------------------------------------------- 15 !! * Modules used 10 #if defined key_lim3 11 !!---------------------------------------------------------------------- 12 !! 'key_lim3' : LIM3 sea-ice model 13 !!---------------------------------------------------------------------- 16 14 USE dom_ice 17 15 USE par_oce ! ocean parameters … … 150 148 !! Babko et al., JGR 2002 151 149 !! 152 !! ** History : 153 !! This routine is based on CICE code 154 !! and authors William H. Lipscomb, 155 !! and Elizabeth C. Hunke, LANL 156 !! are gratefully acknowledged 157 !! 158 !! (02-2006) Martin Vancoppenolle, UCL-ASTR 159 !! 150 !! This routine is based on CICE code and authors William H. Lipscomb, 151 !! and Elizabeth C. Hunke, LANL are gratefully acknowledged 160 152 !!--------------------------------------------------------------------! 161 153 !! * Arguments … … 1366 1358 !------------- 1367 1359 smsw(ji,jj) = sss_m(ji,jj) * vsw(ji,jj) * rhoic / rau0 ! salt content of water frozen in voids 1368 1360 1369 1361 zsrdg2 = srdg1(ji,jj) + smsw(ji,jj) ! salt content of new ridge 1370 1362 1371 1363 srdg2(ji,jj) = MIN( s_i_max * vrdg2(ji,jj) , zsrdg2 ) ! impose a maximum salinity 1372 1364 1373 1365 ! ! excess of salt is flushed into the ocean 1374 fsalt_rpo(ji,jj) = fsalt_rpo(ji,jj) + ( zsrdg2 - srdg2(ji,jj) ) * rhoic / rdt_ice 1375 1366 fsalt_rpo(ji,jj) = fsalt_rpo(ji,jj) + ( zsrdg2 - srdg2(ji,jj) ) * rhoic / rdt_ice 1367 1376 1368 !------------------------------------ 1377 1369 ! 3.6 Increment ridging diagnostics
Note: See TracChangeset
for help on using the changeset viewer.