Changeset 675 for trunk/NEMO/LIM_SRC/iceini.F90
- Timestamp:
- 2007-06-01T19:40:03+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/iceini.F90
r508 r675 16 16 !!---------------------------------------------------------------------- 17 17 USE dom_oce 18 USE dom_ice 18 19 USE in_out_manager 19 20 USE ice_oce ! ice variables … … 98 99 !! ** input : Namelist namicerun 99 100 !!------------------------------------------------------------------- 100 NAMELIST/namicerun/ ln_limdyn, acrit, hsndif, hicdif101 NAMELIST/namicerun/ ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 101 102 !!------------------------------------------------------------------- 102 103 ! … … 111 112 WRITE(numout,*) ' ~~~~~~' 112 113 WRITE(numout,*) ' switch for ice dynamics (1) or not (0) ln_limdyn = ', ln_limdyn 114 WRITE(numout,*) ' Ice damping ln_limdmp = ', ln_limdmp 113 115 WRITE(numout,*) ' minimum fraction for leads in the NH (SH) acrit(1/2) = ', acrit(:) 114 116 WRITE(numout,*) ' computation of temp. in snow (=0) or not (=9999) hsndif = ', hsndif
Note: See TracChangeset
for help on using the changeset viewer.