Changeset 8515 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

Timestamp:

2017-09-08T18:19:17+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - very nearly finished

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

@@ -539 +539 @@
       INTEGER  ::   ios   ! Local integer output status for namelist read
       !!
-      NAMELIST/namice_thd/ ln_icethd, rn_kappa_i, ln_cndi_U64, ln_cndi_P07, ln_dqns_i, rn_cnd_s,          &
-         &                ln_icedH, rn_blow_s,                                                             &
-         &                ln_icedA, rn_beta, rn_dmin,                                                     &
-         &                ln_icedO, rn_hinew, ln_frazil, rn_maxfraz, rn_vfraz, rn_Cfraz, rn_himin,   &
-         &                nn_iceflx
+      NAMELIST/namice_thd/ ln_icethd, rn_kappa_i, ln_cndi_U64, ln_cndi_P07, ln_dqns_i, rn_cnd_s,   &
+         &                 ln_icedH, rn_blow_s,                                                    &
+         &                 ln_icedA, rn_beta, rn_dmin,                                             &
+         &                 ln_icedO, rn_hinew, ln_frazil, rn_maxfraz, rn_vfraz, rn_Cfraz,          &
+         &                 nn_iceflx
       !!-------------------------------------------------------------------
       !
@@ -581 +581 @@
          WRITE(numout,*) '      Threshold relative drift speed for collection of frazil rn_vfraz     = ', rn_vfraz
          WRITE(numout,*) '      Squeezing coefficient for collection of frazil          rn_Cfraz     = ', rn_Cfraz
-         WRITE(numout,*) '   -- iceitd --'
-         WRITE(numout,*) '      minimum ice thickness                                   rn_himin     = ', rn_himin 
          WRITE(numout,*) '   -- icestp --'
          WRITE(numout,*) '      Multicategory heat flux formulation                     nn_iceflx    = ', nn_iceflx