Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

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

    r8512 r8514  
    5555      SELECT CASE ( nn_icesal ) 
    5656      ! 
    57       !              !---------------------------------------------! 
    58       CASE( 2 )      !  time varying salinity with linear profile  ! 
    59       !              !---------------------------------------------! 
     57      !               !---------------------------------------------! 
     58      CASE( 2 )       !  time varying salinity with linear profile  ! 
     59      !               !---------------------------------------------! 
    6060         DO ji = 1, nidx 
    6161 
     
    7171            sm_i_1d(ji) = sm_i_1d(ji) + zsm_i_bg + zsm_i_si 
    7272 
    73             IF( ln_limdS ) THEN 
     73            IF( ln_icedS ) THEN 
    7474               !--------------------------------------------------------- 
    7575               !  Update ice salinity from brine drainage and flushing 
     
    9191         CALL ice_var_salprof1d 
    9292         ! 
    93       !                 !---------------------------------------------! 
    94       CASE( 3 )         ! constant salinity with a fix profile        ! (Schwarzacher (1959) multiyear salinity profile(mean = 2.30) 
    95       !                 !---------------------------------------------! 
     93      !         !---------------------------------------------! 
     94      CASE( 3 ) ! constant salinity with a fixed profile      ! (Schwarzacher (1959) multiyear salinity profile(mean = 2.30) 
     95      !         !---------------------------------------------! 
    9696         CALL ice_var_salprof1d 
    9797      ! 
     
    114114      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    115115      !! 
    116       NAMELIST/namice_sal/ ln_limdS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   & 
     116      NAMELIST/namice_sal/ ln_icedS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   & 
    117117         &                rn_sal_fl, rn_time_fl, rn_simax , rn_simin  
    118118      !!------------------------------------------------------------------- 
     
    132132         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    133133         WRITE(numout,*) '   Namelist namice_sal' 
    134          WRITE(numout,*) '      activate gravity drainage and flushing (T) or not (F)   ln_limdS   = ', ln_limdS 
     134         WRITE(numout,*) '      activate gravity drainage and flushing (T) or not (F)   ln_icedS   = ', ln_icedS 
    135135         WRITE(numout,*) '      switch for salinity                                     nn_icesal  = ', nn_icesal 
    136136         WRITE(numout,*) '      bulk salinity value if nn_icesal = 1                    rn_icesal  = ', rn_icesal 
Note: See TracChangeset for help on using the changeset viewer.