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)

Author:

frrh

Message:

Commit changes relating to Met Office GMED ticket 340 for the
tidying of MEDUSA related code and debugging statements in the TOP code.

Only code introduced at revision 8434 of branch
​http://fcm3/projects/NEMO.xm/log/branches/NERC/dev_r5518_GO6_split_trcbiomedusa
is included here, all previous revisions of that branch having been dealt with
under GMED ticket 339.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90 (modified) (6 diffs)

branches/UKMO/dev_r5518_GO6_package/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