Changeset 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90

Timestamp:

2017-09-01T15:49:35+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part1 - (now the code looks better txs to Gurvan's comments)

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90 (modified) (5 diffs)

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

@@ -31 +31 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: icethd_sal.F90 8420 2017-08-08 12:18:46Z clem $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -102 +102 @@
       !------------------------------------------------------------------------------|
       IF(  nn_icesal == 3  )   CALL ice_var_salprof1d
-
       !
    END SUBROUTINE ice_thd_sal
@@ -119 +118 @@
       !!-------------------------------------------------------------------
       INTEGER  ::   ios                 ! Local integer output status for namelist read
-      NAMELIST/namicesal/ ln_limdS, nn_icesal, rn_icesal, rn_sal_gd, rn_time_gd,   &
-         &                rn_sal_fl, rn_time_fl, rn_simax, rn_simin 
+      !!
+      NAMELIST/namicesal/ ln_limdS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   &
+         &                rn_sal_fl, rn_time_fl, rn_simax , rn_simin 
       !!-------------------------------------------------------------------
       !
@@ -126 +126 @@
       READ  ( numnam_ice_ref, namicesal, IOSTAT = ios, ERR = 901)
 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in reference namelist', lwp )
-
+      !
       REWIND( numnam_ice_cfg )              ! Namelist namicesal in configuration namelist : Ice salinity
       READ  ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 )
@@ -154 +154 @@
    !!----------------------------------------------------------------------
 #endif
+
    !!======================================================================
 END MODULE icethd_sal