Ignore:
Timestamp:
2017-09-07T20:08:11+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - reaching the end

File:
1 edited

Legend:

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

    r8498 r8512  
    107107      !! ** Purpose :   initialization of ice salinity parameters 
    108108      !! 
    109       !! ** Method  :   Read the namicesal namelist and check the parameter 
     109      !! ** Method  :   Read the namice_sal namelist and check the parameter 
    110110      !!              values called at the first timestep (nit000) 
    111111      !! 
    112       !! ** input   :   Namelist namicesal 
     112      !! ** input   :   Namelist namice_sal 
    113113      !!------------------------------------------------------------------- 
    114114      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    115115      !! 
    116       NAMELIST/namicesal/ ln_limdS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   & 
     116      NAMELIST/namice_sal/ ln_limdS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   & 
    117117         &                rn_sal_fl, rn_time_fl, rn_simax , rn_simin  
    118118      !!------------------------------------------------------------------- 
    119119      ! 
    120       REWIND( numnam_ice_ref )              ! Namelist namicesal in reference namelist : Ice salinity 
    121       READ  ( numnam_ice_ref, namicesal, IOSTAT = ios, ERR = 901) 
    122 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in reference namelist', lwp ) 
     120      REWIND( numnam_ice_ref )              ! Namelist namice_sal in reference namelist : Ice salinity 
     121      READ  ( numnam_ice_ref, namice_sal, IOSTAT = ios, ERR = 901) 
     122901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_sal in reference namelist', lwp ) 
    123123      ! 
    124       REWIND( numnam_ice_cfg )              ! Namelist namicesal in configuration namelist : Ice salinity 
    125       READ  ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 ) 
    126 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp ) 
    127       IF(lwm) WRITE ( numoni, namicesal ) 
     124      REWIND( numnam_ice_cfg )              ! Namelist namice_sal in configuration namelist : Ice salinity 
     125      READ  ( numnam_ice_cfg, namice_sal, IOSTAT = ios, ERR = 902 ) 
     126902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_sal in configuration namelist', lwp ) 
     127      IF(lwm) WRITE ( numoni, namice_sal ) 
    128128      ! 
    129129      IF(lwp) THEN                           ! control print 
     
    131131         WRITE(numout,*) 'ice_thd_sal_init : Ice parameters for salinity ' 
    132132         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    133          WRITE(numout,*) '   activate gravity drainage and flushing (T) or not (F)   ln_limdS   = ', ln_limdS 
    134          WRITE(numout,*) '   switch for salinity                                     nn_icesal  = ', nn_icesal 
    135          WRITE(numout,*) '   bulk salinity value if nn_icesal = 1                    rn_icesal  = ', rn_icesal 
    136          WRITE(numout,*) '   restoring salinity for gravity drainage                 rn_sal_gd  = ', rn_sal_gd 
    137          WRITE(numout,*) '   restoring time for for gravity drainage                 rn_time_gd = ', rn_time_gd 
    138          WRITE(numout,*) '   restoring salinity for flushing                         rn_sal_fl  = ', rn_sal_fl 
    139          WRITE(numout,*) '   restoring time for flushing                             rn_time_fl = ', rn_time_fl 
    140          WRITE(numout,*) '   Maximum tolerated ice salinity                          rn_simax   = ', rn_simax 
    141          WRITE(numout,*) '   Minimum tolerated ice salinity                          rn_simin   = ', rn_simin 
     133         WRITE(numout,*) '   Namelist namice_sal' 
     134         WRITE(numout,*) '      activate gravity drainage and flushing (T) or not (F)   ln_limdS   = ', ln_limdS 
     135         WRITE(numout,*) '      switch for salinity                                     nn_icesal  = ', nn_icesal 
     136         WRITE(numout,*) '      bulk salinity value if nn_icesal = 1                    rn_icesal  = ', rn_icesal 
     137         WRITE(numout,*) '      restoring salinity for gravity drainage                 rn_sal_gd  = ', rn_sal_gd 
     138         WRITE(numout,*) '      restoring time for for gravity drainage                 rn_time_gd = ', rn_time_gd 
     139         WRITE(numout,*) '      restoring salinity for flushing                         rn_sal_fl  = ', rn_sal_fl 
     140         WRITE(numout,*) '      restoring time for flushing                             rn_time_fl = ', rn_time_fl 
     141         WRITE(numout,*) '      Maximum tolerated ice salinity                          rn_simax   = ', rn_simax 
     142         WRITE(numout,*) '      Minimum tolerated ice salinity                          rn_simin   = ', rn_simin 
    142143      ENDIF 
    143144      ! 
Note: See TracChangeset for help on using the changeset viewer.