Ignore:
Timestamp:
2017-09-08T18:19:17+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - very nearly finished

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

    r8514 r8515  
    539539      INTEGER  ::   ios   ! Local integer output status for namelist read 
    540540      !! 
    541       NAMELIST/namice_thd/ ln_icethd, rn_kappa_i, ln_cndi_U64, ln_cndi_P07, ln_dqns_i, rn_cnd_s,          & 
    542          &                ln_icedH, rn_blow_s,                                                             & 
    543          &                ln_icedA, rn_beta, rn_dmin,                                                     & 
    544          &                ln_icedO, rn_hinew, ln_frazil, rn_maxfraz, rn_vfraz, rn_Cfraz, rn_himin,   & 
    545          &                nn_iceflx 
     541      NAMELIST/namice_thd/ ln_icethd, rn_kappa_i, ln_cndi_U64, ln_cndi_P07, ln_dqns_i, rn_cnd_s,   & 
     542         &                 ln_icedH, rn_blow_s,                                                    & 
     543         &                 ln_icedA, rn_beta, rn_dmin,                                             & 
     544         &                 ln_icedO, rn_hinew, ln_frazil, rn_maxfraz, rn_vfraz, rn_Cfraz,          & 
     545         &                 nn_iceflx 
    546546      !!------------------------------------------------------------------- 
    547547      ! 
     
    581581         WRITE(numout,*) '      Threshold relative drift speed for collection of frazil rn_vfraz     = ', rn_vfraz 
    582582         WRITE(numout,*) '      Squeezing coefficient for collection of frazil          rn_Cfraz     = ', rn_Cfraz 
    583          WRITE(numout,*) '   -- iceitd --' 
    584          WRITE(numout,*) '      minimum ice thickness                                   rn_himin     = ', rn_himin  
    585583         WRITE(numout,*) '   -- icestp --' 
    586584         WRITE(numout,*) '      Multicategory heat flux formulation                     nn_iceflx    = ', nn_iceflx 
Note: See TracChangeset for help on using the changeset viewer.