Changeset 8442 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90
- 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/MEDUSA/bio_medusa_diag_slice.F90
r8441 r8442 60 60 !! 61 61 !!----------------------------------------- 62 IF (jk.eq.1) THEN63 62 # if defined key_debug_medusa 64 IF (lwp) write (numout,*) ' trc_bio_medusa: diag jk = 1'63 IF (lwp) write (numout,*) 'bio_medusa_diag_slice: start jk = ', jk 65 64 CALL flush(numout) 66 65 # endif 66 !! 67 IF (jk.eq.1) THEN 67 68 !! JPALM -- 02-06-2017 -- 68 69 !! add Chl surf coupling … … 245 246 # endif 246 247 ELSE IF (jk.eq.i0100) THEN 247 # if defined key_debug_medusa248 IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 100'249 CALL flush(numout)250 # endif251 248 IF( med_diag%SDT__100%dgsave ) THEN 252 249 zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk) … … 293 290 CALL iom_put( "epSI100" , ffastsi ) 294 291 ENDIF 295 ELSE IF (jk.eq.i0150) THEN296 # if defined key_debug_medusa297 IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 150'298 CALL flush(numout)299 # endif300 292 # endif 301 293 ELSE IF (jk.eq.i0200) THEN 302 # if defined key_debug_medusa303 IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 200'304 CALL flush(numout)305 # endif306 294 IF( med_diag%SDT__200%dgsave ) THEN 307 295 zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk) … … 333 321 # endif 334 322 ELSE IF (jk.eq.i0500) THEN 335 # if defined key_debug_medusa336 IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 500'337 CALL flush(numout)338 # endif339 323 IF( med_diag%SDT__500%dgsave ) THEN 340 324 zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk) … … 369 353 # endif 370 354 ELSE IF (jk.eq.i1000) THEN 371 # if defined key_debug_medusa372 IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 1000'373 CALL flush(numout)374 # endif375 355 IF( med_diag%SDT_1000%dgsave ) THEN 376 356 zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk) … … 420 400 ENDIF 421 401 # endif 402 # if defined key_debug_medusa 403 IF (lwp) write (numout,*) 'bio_medusa_diag_slice: end jk = ', jk 404 CALL flush(numout) 405 # endif 422 406 423 407 END SUBROUTINE bio_medusa_diag_slice
Note: See TracChangeset
for help on using the changeset viewer.