Changeset 477
- Timestamp:
- 2006-06-19T15:12:38+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limdmp.F90
r420 r477 4 4 !! Ice model : restoring Ice thickness and Fraction leads 5 5 !!====================================================================== 6 #if defined key_ice_lim 6 #if defined key_ice_lim && defined key_tradmp 7 7 !!---------------------------------------------------------------------- 8 8 !! 'key_ice_lim' : LIM sea-ice model … … 196 196 ! Read monthly ice thickness Levitus 197 197 198 CALL flinget( numice_dmp, 'i cethic', jpidta, jpjdta, jpk, &198 CALL flinget( numice_dmp, 'iicethic', jpidta, jpjdta, jpk, & 199 199 & jpmois, nice1, nice1, mig(1), nlci, mjg(1), nlcj, hicif_data(1:nlci,1:nlcj,1) ) 200 CALL flinget( numice_dmp, 'i cethic', jpidta, jpjdta, jpk, &200 CALL flinget( numice_dmp, 'iicethic', jpidta, jpjdta, jpk, & 201 201 & jpmois, nice2, nice2, mig(1), nlci, mjg(1), nlcj, hicif_data(1:nlci,1:nlcj,2) ) 202 202
Note: See TracChangeset
for help on using the changeset viewer.