- Timestamp:
- 2017-03-23T15:36:14+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_nemo_fabm_ukmo/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r7827 r7829 25 25 USE trcnam_c14b ! C14 SMS namelist 26 26 USE trcnam_my_trc ! MY_TRC SMS namelist 27 ! +++>>> FABM 28 USE trcnam_fabm ! FABM SMS namelist 29 ! FABM <<<+++ 27 30 USE trd_oce 28 31 USE trdtrc_oce … … 34 37 PUBLIC trc_nam_run ! called in trcini 35 38 PUBLIC trc_nam ! called in trcini 39 PUBLIC trc_nam_dia 40 #if defined key_trdmxl_trc || defined key_trdtrc 41 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 42 & ln_trdmxl_trc_restart, ln_trdmxl_trc_instant, & 43 & cn_trdrst_trc_in, cn_trdrst_trc_out, ln_trdtrc 44 #endif 36 45 37 46 !! * Substitutions … … 57 66 !!--------------------------------------------------------------------- 58 67 INTEGER :: jn ! dummy loop indice 68 #if defined key_trdmxl_trc || defined key_trdtrc 69 INTEGER :: ios 70 #endif 71 59 72 ! ! Parameters of the run 60 73 IF( .NOT. lk_offline ) CALL trc_nam_run … … 168 181 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 169 182 ENDIF 183 184 ! +++>>> FABM 185 IF( lk_fabm ) THEN ; CALL trc_nam_fabm ! FABM tracers 186 ELSE ; IF(lwp) WRITE(numout,*) ' FABM not used' 187 ENDIF 188 ! FABM <<<+++ 170 189 ! 171 190 END SUBROUTINE trc_nam … … 187 206 188 207 189 IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists'208 IF(lwp) WRITE(numout,*) 'trc_nam_run : read the passive tracer namelists' 190 209 IF(lwp) WRITE(numout,*) '~~~~~~~' 191 210 … … 234 253 235 254 ! --- Namelist declarations --- ! 236 TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 255 ! --->>> FABM 256 !TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 257 ! FABM <<<--- 258 ! +++>>> FABM 259 TYPE(TRC_I_NML), DIMENSION(jpmaxtrc) :: sn_tri_tracer 260 ! FABM <<<+++ 237 261 NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 238 262 … … 278 302 !! 279 303 !!--------------------------------------------------------------------- 280 TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput 281 !! 282 NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 304 ! --->>> FABM 305 !TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput 306 ! FABM <<<--- 307 ! +++>>> FABM 308 TYPE(PTRACER), DIMENSION(jpmaxtrc) :: sn_tracer ! type of tracer for saving if not key_iomput 309 ! FABM <<<+++ 310 !! 311 NAMELIST/namtrc/ sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo 283 312 284 313 INTEGER :: ios ! Local integer output status for namelist read … … 286 315 !!--------------------------------------------------------------------- 287 316 IF(lwp) WRITE(numout,*) 288 IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists'317 IF(lwp) WRITE(numout,*) 'trc_nam_trc : read the passive tracer namelists' 289 318 IF(lwp) WRITE(numout,*) '~~~~~~~' 290 319 320 ! Initialise logical flags to .FALSE.: 321 sn_tracer(:)%llinit = .FALSE. 322 sn_tracer(:)%llsave = .FALSE. 323 #ifdef key_fabm 324 sn_tracer(:)%llsbc = .FALSE. 325 sn_tracer(:)%llcbc = .FALSE. 326 sn_tracer(:)%llcbc = .FALSE. 327 #endif 291 328 292 329 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables … … 304 341 ctrcun (jn) = TRIM( sn_tracer(jn)%clunit ) 305 342 ln_trc_ini(jn) = sn_tracer(jn)%llinit 343 ! --->>> FABM 344 !!#if defined key_my_trc 345 ! FABM <<<--- 346 ! +++>>> FABM 347 #if defined key_fabm 348 ! FABM <<<+++ 349 ln_trc_sbc(jn) = sn_tracer(jn)%llsbc 350 ln_trc_cbc(jn) = sn_tracer(jn)%llcbc 351 ln_trc_obc(jn) = sn_tracer(jn)%llobc 352 #endif 306 353 ln_trc_wri(jn) = sn_tracer(jn)%llsave 307 354 END DO 308 355 356 ! +++>>> FABM 357 if (lk_fabm) CALL trc_nam_fabm_override 358 ! FABM <<<+++ 309 359 END SUBROUTINE trc_nam_trc 310 360 … … 322 372 INTEGER :: ierr 323 373 #if defined key_trdmxl_trc || defined key_trdtrc 324 325 326 374 ! NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 375 ! & ln_trdmxl_trc_restart, ln_trdmxl_trc_instant, & 376 ! & cn_trdrst_trc_in, cn_trdrst_trc_out, ln_trdtrc 327 377 #endif 328 378 NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio … … 330 380 INTEGER :: ios ! Local integer output status for namelist read 331 381 !!--------------------------------------------------------------------- 332 333 IF(lwp) WRITE(numout,*)334 IF(lwp) WRITE(numout,*) 'trc_nam_dia : read the passive tracer diagnostics options'335 IF(lwp) WRITE(numout,*) '~~~~~~~'336 382 337 383 IF(lwp) WRITE(numout,*) … … 397 443 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 398 444 !!====================================================================== 399 END MODULE 445 END MODULE trcnam
Note: See TracChangeset
for help on using the changeset viewer.