- Timestamp:
- 2015-07-10T13:28:53+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4793 r5581 25 25 USE trcnam_c14b ! C14 SMS namelist 26 26 USE trcnam_my_trc ! MY_TRC SMS namelist 27 USE trd mod_oce28 USE trd mod_trc_oce27 USE trd_oce 28 USE trdtrc_oce 29 29 USE iom ! I/O manager 30 30 … … 39 39 !!---------------------------------------------------------------------- 40 40 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 41 !! $Id$ 41 !! $Id$ 42 42 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 43 43 !!---------------------------------------------------------------------- … … 119 119 120 120 121 #if defined key_trdm ld_trc || defined key_trdtrc121 #if defined key_trdmxl_trc || defined key_trdtrc 122 122 123 123 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends … … 132 132 IF(lwp) THEN 133 133 WRITE(numout,*) 134 WRITE(numout,*) ' trd_m ld_trc_init : read namelist namtrc_trd '134 WRITE(numout,*) ' trd_mxl_trc_init : read namelist namtrc_trd ' 135 135 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~ ' 136 136 WRITE(numout,*) ' * frequency of trends diagnostics nn_trd_trc = ', nn_trd_trc 137 137 WRITE(numout,*) ' * control surface type nn_ctls_trc = ', nn_ctls_trc 138 WRITE(numout,*) ' * restart for ML diagnostics ln_trdm ld_trc_restart = ', ln_trdmld_trc_restart138 WRITE(numout,*) ' * restart for ML diagnostics ln_trdmxl_trc_restart = ', ln_trdmxl_trc_restart 139 139 WRITE(numout,*) ' * flag to diagnose trends of ' 140 WRITE(numout,*) ' instantantaneous or mean ML T/S ln_trdm ld_trc_instant = ', ln_trdmld_trc_instant140 WRITE(numout,*) ' instantantaneous or mean ML T/S ln_trdmxl_trc_instant = ', ln_trdmxl_trc_instant 141 141 WRITE(numout,*) ' * unit conversion factor rn_ucf_trc = ', rn_ucf_trc 142 142 DO jn = 1, jptra … … 147 147 148 148 149 ! Call the ice module for tracers 150 ! ------------------------------- 151 CALL trc_nam_ice 152 149 153 ! namelist of SMS 150 154 ! --------------- … … 175 179 !!--------------------------------------------------------------------- 176 180 NAMELIST/namtrc_run/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, ln_top_euler, & 177 & cn_trcrst_in, cn_trcrst_out 181 & cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 182 178 183 179 184 INTEGER :: ios ! Local integer output status for namelist read … … 215 220 END SUBROUTINE trc_nam_run 216 221 222 SUBROUTINE trc_nam_ice 223 !!--------------------------------------------------------------------- 224 !! *** ROUTINE trc_nam_ice *** 225 !! 226 !! ** Purpose : Read the namelist for the ice effect on tracers 227 !! 228 !! ** Method : - 229 !! 230 !!--------------------------------------------------------------------- 231 ! --- Variable declarations --- ! 232 INTEGER :: jn ! dummy loop indices 233 INTEGER :: ios ! Local integer output status for namelist read 234 235 ! --- Namelist declarations --- ! 236 TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 237 NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 238 239 IF(lwp) THEN 240 WRITE(numout,*) 241 WRITE(numout,*) 'trc_nam_ice : Read the namelist for trc_ice' 242 WRITE(numout,*) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 243 ENDIF 244 245 IF( nn_timing == 1 ) CALL timing_start('trc_nam_ice') 246 247 ! 248 REWIND( numnat_ref ) ! Namelist namtrc_ice in reference namelist : Passive tracer input data 249 READ ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 250 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ', lwp ) 251 252 REWIND( numnat_cfg ) ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients 253 READ ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 254 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist', lwp ) 255 256 IF( lwp ) THEN 257 WRITE(numout,*) ' ' 258 WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr 259 WRITE(numout,*) ' ' 260 ENDIF 261 262 ! Assign namelist stuff 263 DO jn = 1, jptra 264 trc_ice_ratio(jn) = sn_tri_tracer(jn)%trc_ratio 265 trc_ice_prescr(jn) = sn_tri_tracer(jn)%trc_prescr 266 cn_trc_o (jn) = sn_tri_tracer(jn)%ctrc_o 267 END DO 268 269 IF( nn_timing == 1 ) CALL timing_stop('trc_nam_ice') 270 ! 271 END SUBROUTINE trc_nam_ice 217 272 218 273 SUBROUTINE trc_nam_trc … … 266 321 !!--------------------------------------------------------------------- 267 322 INTEGER :: ierr 268 #if defined key_trdm ld_trc || defined key_trdtrc323 #if defined key_trdmxl_trc || defined key_trdtrc 269 324 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 270 & ln_trdm ld_trc_restart, ln_trdmld_trc_instant, &325 & ln_trdmxl_trc_restart, ln_trdmxl_trc_instant, & 271 326 & cn_trdrst_trc_in, cn_trdrst_trc_out, ln_trdtrc 272 327 #endif … … 339 394 !!---------------------------------------------------------------------- 340 395 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 341 !! $Id$ 396 !! $Id$ 342 397 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 343 398 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.