- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r5411 r6808 20 20 USE oce_trc ! shared variables between ocean and passive tracers 21 21 USE trc ! passive tracers common variables 22 USE trcnam_trp ! Transport namelist23 22 USE trcnam_pisces ! PISCES namelist 24 23 USE trcnam_cfc ! CFC SMS namelist … … 35 34 PUBLIC trc_nam ! called in trcini 36 35 37 !! * Substitutions38 # include "top_substitute.h90"39 36 !!---------------------------------------------------------------------- 40 37 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 42 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 43 40 !!---------------------------------------------------------------------- 44 45 41 CONTAINS 46 47 42 48 43 SUBROUTINE trc_nam … … 57 52 !!--------------------------------------------------------------------- 58 53 INTEGER :: jn ! dummy loop indice 59 ! ! Parameters of the run 60 IF( .NOT. lk_offline ) CALL trc_nam_run 61 62 ! ! passive tracer informations 63 CALL trc_nam_trc 64 65 ! ! Parameters of additional diagnostics 66 CALL trc_nam_dia 67 68 ! ! namelist of transport 69 CALL trc_nam_trp 70 71 72 IF( ln_rsttr ) ln_trcdta = .FALSE. ! restart : no need of clim data 73 ! 74 IF( ln_trcdmp .OR. ln_trcdmp_clo ) ln_trcdta = .TRUE. ! damping : need to have clim data 75 ! 76 IF( .NOT.ln_trcdta ) THEN 77 ln_trc_ini(:) = .FALSE. 78 ENDIF 79 80 IF(lwp) THEN ! control print 54 ! 55 IF( .NOT.lk_offline ) CALL trc_nam_run ! Parameters of the run 56 ! 57 CALL trc_nam_trc ! passive tracer informations 58 ! 59 CALL trc_nam_dia ! Parameters of additional diagnostics 60 ! 61 ! 62 IF( ln_rsttr ) ln_trcdta = .FALSE. ! restart : no need of clim data 63 ! 64 IF( ln_trcdmp .OR. ln_trcdmp_clo ) ln_trcdta = .TRUE. ! damping : need to have clim data 65 ! 66 IF( .NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE. 67 68 IF(lwp) THEN ! control print 81 69 WRITE(numout,*) 82 70 WRITE(numout,*) ' Namelist : namtrc' … … 110 98 111 99 112 rdttrc (:) = rdttra(:) * FLOAT( nn_dttrc ) ! vertical profile ofpassive tracer time-step100 rdttrc = rdt * FLOAT( nn_dttrc ) ! passive tracer time-step 113 101 114 102 IF(lwp) THEN ! control print 115 103 WRITE(numout,*) 116 WRITE(numout,*) ' Passive Tracer time step rdttrc = ', rdttrc (1)104 WRITE(numout,*) ' Passive Tracer time step rdttrc = ', rdttrc 117 105 WRITE(numout,*) 118 106 ENDIF … … 149 137 ! Call the ice module for tracers 150 138 ! ------------------------------- 151 CALL trc_nam_ice139 CALL trc_nam_ice 152 140 153 141 ! namelist of SMS … … 171 159 END SUBROUTINE trc_nam 172 160 161 173 162 SUBROUTINE trc_nam_run 174 163 !!--------------------------------------------------------------------- … … 180 169 NAMELIST/namtrc_run/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, ln_top_euler, & 181 170 & cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 182 183 171 ! 184 172 INTEGER :: ios ! Local integer output status for namelist read 185 186 !!--------------------------------------------------------------------- 187 188 189 IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 173 !!--------------------------------------------------------------------- 174 ! 175 IF(lwp) WRITE(numout,*) 'trc_nam_run : read the passive tracer namelists' 190 176 IF(lwp) WRITE(numout,*) '~~~~~~~' 191 177 … … 220 206 END SUBROUTINE trc_nam_run 221 207 208 222 209 SUBROUTINE trc_nam_ice 223 210 !!--------------------------------------------------------------------- … … 229 216 !! 230 217 !!--------------------------------------------------------------------- 231 ! --- Variable declarations --- !232 218 INTEGER :: jn ! dummy loop indices 233 219 INTEGER :: ios ! Local integer output status for namelist read 234 235 ! --- Namelist declarations --- ! 220 ! 236 221 TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 222 !! 237 223 NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 238 224 !!--------------------------------------------------------------------- 225 ! 239 226 IF(lwp) THEN 240 227 WRITE(numout,*) … … 271 258 END SUBROUTINE trc_nam_ice 272 259 260 273 261 SUBROUTINE trc_nam_trc 274 262 !!--------------------------------------------------------------------- … … 278 266 !! 279 267 !!--------------------------------------------------------------------- 280 TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput281 !!282 NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo283 284 268 INTEGER :: ios ! Local integer output status for namelist read 285 269 INTEGER :: jn ! dummy loop indice 270 ! 271 TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput 272 !! 273 NAMELIST/namtrc/ sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo 286 274 !!--------------------------------------------------------------------- 287 275 IF(lwp) WRITE(numout,*) 288 IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists'276 IF(lwp) WRITE(numout,*) 'trc_nam_trc : read the passive tracer namelists' 289 277 IF(lwp) WRITE(numout,*) '~~~~~~~' 290 291 278 292 279 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables … … 304 291 ctrcun (jn) = TRIM( sn_tracer(jn)%clunit ) 305 292 ln_trc_ini(jn) = sn_tracer(jn)%llinit 293 #if defined key_my_trc 294 ln_trc_sbc(jn) = sn_tracer(jn)%llsbc 295 ln_trc_cbc(jn) = sn_tracer(jn)%llcbc 296 ln_trc_obc(jn) = sn_tracer(jn)%llobc 297 #endif 306 298 ln_trc_wri(jn) = sn_tracer(jn)%llsave 307 299 END DO 308 309 300 ! 301 END SUBROUTINE trc_nam_trc 310 302 311 303 … … 320 312 !! ( (PISCES, CFC, MY_TRC ) 321 313 !!--------------------------------------------------------------------- 314 INTEGER :: ios ! Local integer output status for namelist read 322 315 INTEGER :: ierr 316 !! 323 317 #if defined key_trdmxl_trc || defined key_trdtrc 324 318 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & … … 327 321 #endif 328 322 NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio 329 330 INTEGER :: ios ! Local integer output status for namelist read 331 !!--------------------------------------------------------------------- 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,*) '~~~~~~~' 323 !!--------------------------------------------------------------------- 336 324 337 325 IF(lwp) WRITE(numout,*) … … 397 385 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 398 386 !!====================================================================== 399 END MODULE 387 END MODULE trcnam
Note: See TracChangeset
for help on using the changeset viewer.