- Timestamp:
- 2017-06-25T11:27:43+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r6715 r8213 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 … … 205 158 #endif 206 159 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 160 216 161 ! Call the ice module for tracers 217 162 ! ------------------------------- 218 163 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 164 229 165 ! namelist of SMS … … 232 168 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 233 169 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 ! 170 244 171 IF( lk_medusa ) THEN ; CALL trc_nam_medusa ! MEDUSA tracers 245 172 ELSE ; IF(lwp) WRITE(numout,*) ' MEDUSA not used' 246 173 ENDIF 247 ! 248 # if defined key_debug_medusa 249 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 # endif 256 ! 174 257 175 IF( lk_idtra ) THEN ; CALL trc_nam_idtra ! Idealize tracers 258 176 ELSE ; IF(lwp) WRITE(numout,*) ' Idealize tracers not used' 259 177 ENDIF 260 ! 261 # if defined key_debug_medusa 262 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 # endif 269 ! 178 270 179 IF( lk_cfc ) THEN ; CALL trc_nam_cfc ! CFC tracers 271 180 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 272 181 ENDIF 273 ! 274 # if defined key_debug_medusa 275 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 # endif 282 ! 182 283 183 IF( lk_c14b ) THEN ; CALL trc_nam_c14b ! C14 bomb tracers 284 184 ELSE ; IF(lwp) WRITE(numout,*) ' C14 not used' 285 185 ENDIF 286 ! 287 # if defined key_debug_medusa 288 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 # endif 295 ! 186 296 187 IF( lk_age ) THEN ; CALL trc_nam_age ! AGE tracer 297 188 ELSE ; IF(lwp) WRITE(numout,*) ' AGE not used' 298 189 ENDIF 299 ! 300 # if defined key_debug_medusa 301 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 # endif 308 ! 190 309 191 IF( lk_my_trc ) THEN ; CALL trc_nam_my_trc ! MY_TRC tracers 310 192 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' … … 504 386 CALL flush(numout) 505 387 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 !! 388 515 389 IF( ( ln_diatrc .AND. .NOT. lk_iomput ) .OR. ( ln_diatrc .AND. lk_medusa ) ) THEN 516 390 ALLOCATE( trc2d(jpi,jpj,jpdia2d), trc3d(jpi,jpj,jpk,jpdia3d), & … … 522 396 trc3d(:,:,:,:) = 0._wp ; ctrc3d(:) = ' ' ; ctrc3l(:) = ' ' ; ctrc3u(:) = ' ' 523 397 ! 524 !! ELSE IF ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN525 !! CALL trc_nam_iom_medusa526 398 ENDIF 527 399 … … 553 425 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 554 426 !!====================================================================== 555 END MODULE 427 END MODULE trcnam
Note: See TracChangeset
for help on using the changeset viewer.