Changeset 5836 for trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
- Timestamp:
- 2015-10-26T15:49:40+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r5656 r5836 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' … … 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 173 !!--------------------------------------------------------------------- 174 ! 189 175 IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 190 176 IF(lwp) WRITE(numout,*) '~~~~~~~' … … 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 276 IF(lwp) WRITE(numout,*) 'trc_nam : 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 … … 306 293 ln_trc_wri(jn) = sn_tracer(jn)%llsave 307 294 END DO 308 309 295 ! 296 END SUBROUTINE trc_nam_trc 310 297 311 298 … … 320 307 !! ( (PISCES, CFC, MY_TRC ) 321 308 !!--------------------------------------------------------------------- 309 INTEGER :: ios ! Local integer output status for namelist read 322 310 INTEGER :: ierr 311 !! 323 312 #if defined key_trdmxl_trc || defined key_trdtrc 324 313 NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & … … 327 316 #endif 328 317 NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio 329 330 INTEGER :: ios ! Local integer output status for namelist read331 318 !!--------------------------------------------------------------------- 332 319
Note: See TracChangeset
for help on using the changeset viewer.