Changeset 8434 for branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

Timestamp:

2017-08-11T12:47:19+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- 11-08-2017 -- MEDUSA cleaned and purged

File:

• branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90 (modified) (6 diffs)

branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

@@ -60 +60 @@
       !!
       !!-----------------------------------------
-      IF (jk.eq.1) THEN
 #   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 1'
+         IF (lwp) write (numout,*) 'bio_medusa_diag_slice: start jk = ', jk
          CALL flush(numout)
 #   endif
+      !!
+      IF (jk.eq.1) THEN
          !! JPALM -- 02-06-2017 --
          !! add Chl surf coupling
@@ -245 +246 @@
 # endif                     
       ELSE IF (jk.eq.i0100) THEN 
-#   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 100'
-         CALL flush(numout)
-#   endif
          IF( med_diag%SDT__100%dgsave ) THEN
             zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk)
@@ -293 +290 @@
             CALL iom_put( "epSI100"   , ffastsi )
          ENDIF         
-      ELSE IF (jk.eq.i0150) THEN
-#   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 150'
-         CALL flush(numout)
-#   endif
 # endif                     
       ELSE IF (jk.eq.i0200) THEN
-#   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 200'
-         CALL flush(numout)
-#   endif
          IF( med_diag%SDT__200%dgsave ) THEN
             zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk)
@@ -333 +321 @@
 # endif                     
       ELSE IF (jk.eq.i0500) THEN
-#   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 500'
-         CALL flush(numout)
-#   endif
          IF( med_diag%SDT__500%dgsave ) THEN
             zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk)
@@ -369 +353 @@
 # endif                      
       ELSE IF (jk.eq.i1000) THEN
-#   if defined key_debug_medusa
-         IF (lwp) write (numout,*) 'trc_bio_medusa: diag jk = 1000'
-         CALL flush(numout)
-#   endif
          IF( med_diag%SDT_1000%dgsave ) THEN
             zw2d(:,:) = fslownflux(:,:) * tmask(:,:,jk)
@@ -420 +400 @@
       ENDIF         
 # endif          
+#   if defined key_debug_medusa
+         IF (lwp) write (numout,*) 'bio_medusa_diag_slice: end jk = ', jk
+         CALL flush(numout)
+#   endif
 
    END SUBROUTINE bio_medusa_diag_slice