Changeset 830 for branches/dev_002_LIM/NEMO/LIM_SRC_3/iceini.F90
- Timestamp:
- 2008-03-06T19:46:43+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_002_LIM/NEMO/LIM_SRC_3/iceini.F90
r825 r830 41 41 numit !: iteration number 42 42 REAL(wp), PUBLIC :: & !: 43 hsndif = 0.e0 , & !: computation of temp. in snow (0) or not (9999) 44 hicdif = 0.e0 , & !: computation of temp. in ice (0) or not (9999) 45 tpstot !: time of the run in seconds 43 hsndif = 0.e0 , & !: computation of temp. in snow (0) or not (9999) 44 hicdif = 0.e0 , & !: computation of temp. in ice (0) or not (9999) 45 tpstot , & !: time of the run in seconds 46 cai = 1.40e-3 , & !: atmospheric drag over sea ice 47 cao = 1.00e-3 !: atmospheric drag over ocean 46 48 REAL(wp), PUBLIC, DIMENSION(2) :: & !: 47 49 acrit = (/ 1.e-06 , 1.e-06 /) !: minimum fraction for leads in … … 129 131 !! 2.0 ! 03-08 (C. Ethe) Original code 130 132 !!------------------------------------------------------------------- 131 NAMELIST/namicerun/ ln_limdyn, acrit, hsndif, hicdif, ln_nicep133 NAMELIST/namicerun/ ln_limdyn, acrit, hsndif, hicdif, cai, cao, ln_nicep 132 134 !!------------------------------------------------------------------- 133 135 … … 143 145 WRITE(numout,*) ' computation of temp. in snow (=0) or not (=9999) hsndif = ', hsndif 144 146 WRITE(numout,*) ' computation of temp. in ice (=0) or not (=9999) hicdif = ', hicdif 147 WRITE(numout,*) ' atmospheric drag over sea ice = ', cai 148 WRITE(numout,*) ' atmospheric drag over ocean = ', cao 145 149 WRITE(numout,*) ' Several ice points in the ice or not in ocean.output = ', ln_nicep 146 150 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.