New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5047 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90 – NEMO

Ignore:
Timestamp:
2015-01-29T14:13:14+01:00 (9 years ago)
Author:
clem
Message:

LIM3 cleaning (1): namelist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r4990 r5047  
    563563      !!------------------------------------------------------------------- 
    564564      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    565       NAMELIST/namicethd/ hmelt , hiccrit, fraz_swi, maxfrazb, vfrazb, Cfrazb,   & 
    566          &                hiclim, hnzst, parsub, betas,                          &  
     565      NAMELIST/namicethd/ hiccrit, fraz_swi, maxfrazb, vfrazb, Cfrazb,   & 
     566         &                hiclim, parsub, betas,                          &  
    567567         &                kappa_i, nconv_i_thd, maxer_i_thd, thcon_i_swi 
    568568      !!------------------------------------------------------------------- 
     
    588588         WRITE(numout,*) 
    589589         WRITE(numout,*)'   Namelist of ice parameters for ice thermodynamic computation ' 
    590          WRITE(numout,*)'      maximum melting at the bottom                           hmelt        = ', hmelt 
    591590         WRITE(numout,*)'      ice thick. for lateral accretion                        hiccrit      = ', hiccrit 
    592591         WRITE(numout,*)'      Frazil ice thickness as a function of wind or not       fraz_swi     = ', fraz_swi 
     
    596595         WRITE(numout,*)'      minimum ice thickness                                   hiclim       = ', hiclim  
    597596         WRITE(numout,*)'      numerical carac. of the scheme for diffusion in ice ' 
    598          WRITE(numout,*)'      thickness of the surf. layer in temp. computation       hnzst        = ', hnzst 
    599597         WRITE(numout,*)'      switch for snow sublimation  (=1) or not (=0)           parsub       = ', parsub   
    600598         WRITE(numout,*)'      coefficient for ice-lead partition of snowfall          betas        = ', betas 
Note: See TracChangeset for help on using the changeset viewer.