- Timestamp:
- 2020-05-13T15:06:34+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceitd.F90
r12832 r12920 47 47 LOGICAL :: ln_cat_usr ! ice categories are defined by rn_catbnd 48 48 REAL(wp), DIMENSION(0:100) :: rn_catbnd ! ice categories bounds 49 REAL(wp) :: rn_himax ! maximum ice thickness allowed 49 50 ! 50 51 !!---------------------------------------------------------------------- … … 691 692 REAL(wp) :: zhmax, znum, zden, zalpha ! - - 692 693 ! 693 NAMELIST/namitd/ ln_cat_hfn, rn_himean, ln_cat_usr, rn_catbnd, rn_himin 694 NAMELIST/namitd/ ln_cat_hfn, rn_himean, ln_cat_usr, rn_catbnd, rn_himin, rn_himax 694 695 !!------------------------------------------------------------------ 695 696 ! … … 710 711 WRITE(numout,*) ' mean ice thickness in the domain rn_himean = ', rn_himean 711 712 WRITE(numout,*) ' Ice categories are defined by rn_catbnd ln_cat_usr = ', ln_cat_usr 712 WRITE(numout,*) ' minimum ice thickness rn_himin = ', rn_himin 713 WRITE(numout,*) ' minimum ice thickness allowed rn_himin = ', rn_himin 714 WRITE(numout,*) ' maximum ice thickness allowed rn_himax = ', rn_himax 713 715 ENDIF 714 716 ! … … 747 749 END DO 748 750 ! 749 hi_max(jpl) = 99._wp! set to a big value to ensure that all ice is thinner than hi_max(jpl)751 hi_max(jpl) = rn_himax ! set to a big value to ensure that all ice is thinner than hi_max(jpl) 750 752 ! 751 753 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.