- Timestamp:
- 2017-08-17T13:39:18+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r8280 r8442 25 25 USE trcnam_cfc ! CFC SMS namelist 26 26 USE trcnam_c14b ! C14 SMS namelist 27 USE trcnam_age ! AGE SMS namelist 27 28 USE trcnam_my_trc ! MY_TRC SMS namelist 29 USE trcnam_idtra ! Idealise tracer namelist 28 30 USE trcnam_medusa ! MEDUSA namelist 29 USE trcnam_idtra ! Idealise tracer namelist30 USE trcnam_age ! AGE SMS namelist31 31 USE trd_oce 32 32 USE trdtrc_oce … … 65 65 66 66 ! ! passive tracer informations 67 # if defined key_debug_medusa68 CALL flush(numout)69 IF (lwp) write (numout,*) '------------------------------'70 IF (lwp) write (numout,*) 'Jpalm - debug'71 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_trc'72 IF (lwp) write (numout,*) ' '73 # endif74 !75 67 CALL trc_nam_trc 76 68 77 69 ! ! Parameters of additional diagnostics 78 # if defined key_debug_medusa79 CALL flush(numout)80 IF (lwp) write (numout,*) '------------------------------'81 IF (lwp) write (numout,*) 'Jpalm - debug'82 IF (lwp) write (numout,*) 'CALL trc_nam_trc -- OK'83 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_dia'84 IF (lwp) write (numout,*) ' '85 # endif86 !87 88 70 CALL trc_nam_dia 89 71 90 72 ! ! namelist of transport 91 # if defined key_debug_medusa92 CALL flush(numout)93 IF (lwp) write (numout,*) '------------------------------'94 IF (lwp) write (numout,*) 'Jpalm - debug'95 IF (lwp) write (numout,*) 'CALL trc_nam_dia -- OK'96 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_trp'97 IF (lwp) write (numout,*) ' '98 # endif99 !100 73 CALL trc_nam_trp 101 !102 # if defined key_debug_medusa103 CALL flush(numout)104 IF (lwp) write (numout,*) '------------------------------'105 IF (lwp) write (numout,*) 'Jpalm - debug'106 IF (lwp) write (numout,*) 'CALL trc_nam_trp -- OK'107 IF (lwp) write (numout,*) 'continue trc_nam '108 IF (lwp) write (numout,*) ' '109 CALL flush(numout)110 # endif111 !112 74 113 75 … … 131 93 END DO 132 94 WRITE(numout,*) ' ' 133 # if defined key_debug_medusa134 CALL flush(numout)135 # endif136 95 ENDIF 137 96 … … 152 111 WRITE(numout,*) 153 112 ENDIF 154 # if defined key_debug_medusa155 CALL flush(numout)156 # endif157 113 ENDIF 158 114 … … 170 126 WRITE(numout,*) ' Passive Tracer time step rdttrc = ', rdttrc(1) 171 127 WRITE(numout,*) 172 # if defined key_debug_medusa173 CALL flush(numout)174 # endif175 128 ENDIF 176 129 … … 200 153 IF( ln_trdtrc(jn) ) WRITE(numout,*) ' compute ML trends for tracer number :', jn 201 154 END DO 202 WRITE(numout,*) ' '203 CALL flush(numout)204 155 ENDIF 205 156 #endif 206 157 207 # if defined key_debug_medusa208 CALL flush(numout)209 IF (lwp) write (numout,*) '------------------------------'210 IF (lwp) write (numout,*) 'Jpalm - debug'211 IF (lwp) write (numout,*) 'just before ice module for tracers call : '212 IF (lwp) write (numout,*) ' '213 # endif214 !215 158 216 159 ! Call the ice module for tracers 217 160 ! ------------------------------- 218 161 CALL trc_nam_ice 219 220 # if defined key_debug_medusa221 CALL flush(numout)222 IF (lwp) write (numout,*) '------------------------------'223 IF (lwp) write (numout,*) 'Jpalm - debug'224 IF (lwp) write (numout,*) 'Will now read SMS namelists : '225 IF (lwp) write (numout,*) ' '226 # endif227 !228 162 229 163 ! namelist of SMS … … 232 166 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 233 167 ENDIF 234 ! 235 # if defined key_debug_medusa 236 CALL flush(numout) 237 IF (lwp) write (numout,*) '------------------------------' 238 IF (lwp) write (numout,*) 'Jpalm - debug' 239 IF (lwp) write (numout,*) 'CALL trc_nam_pisces -- OK' 240 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_medusa' 241 IF (lwp) write (numout,*) ' ' 242 # endif 243 ! 168 169 IF( lk_cfc ) THEN ; CALL trc_nam_cfc ! CFC tracers 170 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 171 ENDIF 172 173 IF( lk_c14b ) THEN ; CALL trc_nam_c14b ! C14 bomb tracers 174 ELSE ; IF(lwp) WRITE(numout,*) ' C14 not used' 175 ENDIF 176 177 IF( lk_age ) THEN ; CALL trc_nam_age ! AGE tracer 178 ELSE ; IF(lwp) WRITE(numout,*) ' AGE not used' 179 ENDIF 180 181 IF( lk_my_trc ) THEN ; CALL trc_nam_my_trc ! MY_TRC tracers 182 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 183 ENDIF 184 185 IF( lk_idtra ) THEN ; CALL trc_nam_idtra ! Idealize tracers 186 ELSE ; IF(lwp) WRITE(numout,*) ' Idealize tracers not used' 187 ENDIF 188 244 189 IF( lk_medusa ) THEN ; CALL trc_nam_medusa ! MEDUSA tracers 245 190 ELSE ; IF(lwp) WRITE(numout,*) ' MEDUSA not used' 246 191 ENDIF 247 192 ! 248 # if defined key_debug_medusa249 CALL flush(numout)250 IF (lwp) write (numout,*) '------------------------------'251 IF (lwp) write (numout,*) 'Jpalm - debug'252 IF (lwp) write (numout,*) 'CALL trc_nam_medusa -- OK'253 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_idtra'254 IF (lwp) write (numout,*) ' '255 # endif256 !257 IF( lk_idtra ) THEN ; CALL trc_nam_idtra ! Idealize tracers258 ELSE ; IF(lwp) WRITE(numout,*) ' Idealize tracers not used'259 ENDIF260 !261 # if defined key_debug_medusa262 CALL flush(numout)263 IF (lwp) write (numout,*) '------------------------------'264 IF (lwp) write (numout,*) 'Jpalm - debug'265 IF (lwp) write (numout,*) 'CALL trc_nam_idtra -- OK'266 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_cfc'267 IF (lwp) write (numout,*) ' '268 # endif269 !270 IF( lk_cfc ) THEN ; CALL trc_nam_cfc ! CFC tracers271 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used'272 ENDIF273 !274 # if defined key_debug_medusa275 CALL flush(numout)276 IF (lwp) write (numout,*) '------------------------------'277 IF (lwp) write (numout,*) 'Jpalm - debug'278 IF (lwp) write (numout,*) 'CALL trc_nam_cfc -- OK'279 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_c14'280 IF (lwp) write (numout,*) ' '281 # endif282 !283 IF( lk_c14b ) THEN ; CALL trc_nam_c14b ! C14 bomb tracers284 ELSE ; IF(lwp) WRITE(numout,*) ' C14 not used'285 ENDIF286 !287 # if defined key_debug_medusa288 CALL flush(numout)289 IF (lwp) write (numout,*) '------------------------------'290 IF (lwp) write (numout,*) 'Jpalm - debug'291 IF (lwp) write (numout,*) 'CALL trc_nam_c14 -- OK'292 IF (lwp) write (numout,*) 'in trc_nam - just before CALL trc_nam_age'293 IF (lwp) write (numout,*) ' '294 # endif295 !296 IF( lk_age ) THEN ; CALL trc_nam_age ! AGE tracer297 ELSE ; IF(lwp) WRITE(numout,*) ' AGE not used'298 ENDIF299 !300 # if defined key_debug_medusa301 CALL flush(numout)302 IF (lwp) write (numout,*) '------------------------------'303 IF (lwp) write (numout,*) 'Jpalm - debug'304 IF (lwp) write (numout,*) 'CALL trc_nam_age -- OK'305 IF (lwp) write (numout,*) 'in trc_nam - CALL trc_nam -- OK'306 IF (lwp) write (numout,*) ' '307 # endif308 !309 IF( lk_my_trc ) THEN ; CALL trc_nam_my_trc ! MY_TRC tracers310 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used'311 ENDIF312 313 IF(lwp) CALL flush(numout)314 193 END SUBROUTINE trc_nam 315 194 … … 450 329 ln_trc_wri(jn) = sn_tracer(jn)%llsave 451 330 END DO 452 IF(lwp) CALL flush(numout) 453 331 454 332 END SUBROUTINE trc_nam_trc 455 333 … … 504 382 CALL flush(numout) 505 383 ENDIF 506 !! 507 !! JPALM -- 17-07-2015 -- 508 !! MEDUSA is not yet up-to-date with the iom server. 509 !! we use it for the main tracer, but not fully with diagnostics. 510 !! will have to adapt it properly when visiting Christian Ethee 511 !! for now, we change 512 !! IF( ln_diatrc .AND. .NOT. lk_iomput ) THEN 513 !! to : 514 !! 384 515 385 IF( ( ln_diatrc .AND. .NOT. lk_iomput ) .OR. ( ln_diatrc .AND. lk_medusa ) ) THEN 516 386 ALLOCATE( trc2d(jpi,jpj,jpdia2d), trc3d(jpi,jpj,jpk,jpdia3d), & … … 522 392 trc3d(:,:,:,:) = 0._wp ; ctrc3d(:) = ' ' ; ctrc3l(:) = ' ' ; ctrc3u(:) = ' ' 523 393 ! 524 !! ELSE IF ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN525 !! CALL trc_nam_iom_medusa526 394 ENDIF 527 395
Note: See TracChangeset
for help on using the changeset viewer.