- Timestamp:
- 2017-09-08T17:09:25+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90
r8512 r8514 55 55 SELECT CASE ( nn_icesal ) 56 56 ! 57 ! !---------------------------------------------!58 CASE( 2 ) ! time varying salinity with linear profile !59 ! !---------------------------------------------!57 ! !---------------------------------------------! 58 CASE( 2 ) ! time varying salinity with linear profile ! 59 ! !---------------------------------------------! 60 60 DO ji = 1, nidx 61 61 … … 71 71 sm_i_1d(ji) = sm_i_1d(ji) + zsm_i_bg + zsm_i_si 72 72 73 IF( ln_ limdS ) THEN73 IF( ln_icedS ) THEN 74 74 !--------------------------------------------------------- 75 75 ! Update ice salinity from brine drainage and flushing … … 91 91 CALL ice_var_salprof1d 92 92 ! 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 ! !---------------------------------------------! 96 96 CALL ice_var_salprof1d 97 97 ! … … 114 114 INTEGER :: ios ! Local integer output status for namelist read 115 115 !! 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, & 117 117 & rn_sal_fl, rn_time_fl, rn_simax , rn_simin 118 118 !!------------------------------------------------------------------- … … 132 132 WRITE(numout,*) '~~~~~~~~~~~~~~~~' 133 133 WRITE(numout,*) ' Namelist namice_sal' 134 WRITE(numout,*) ' activate gravity drainage and flushing (T) or not (F) ln_ limdS = ', ln_limdS134 WRITE(numout,*) ' activate gravity drainage and flushing (T) or not (F) ln_icedS = ', ln_icedS 135 135 WRITE(numout,*) ' switch for salinity nn_icesal = ', nn_icesal 136 136 WRITE(numout,*) ' bulk salinity value if nn_icesal = 1 rn_icesal = ', rn_icesal
Note: See TracChangeset
for help on using the changeset viewer.