Changeset 8051

Timestamp:

2017-05-19T16:00:01+02:00 (7 years ago)

Author:

marc

Message:

Tidying up a few bits

Location:

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC

Files:

• MEDUSA/bio_med_diag_trc.F90 (modified) (1 diff)
• MEDUSA/bio_medusa_mod.F90 (modified) (1 diff)
• MEDUSA/trcbio_medusa.F90 (modified) (2 diffs)
• trcsms.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_trc.F90

@@ -613 +613 @@
       ENDIF
 
-! I'm keeping this the same as before, but it looks like it should 
-! be i0100 and not i0200 - marc 8/5/17
+! I'm keeping this the same as before for reproducibility, but it looks 
+! like it should be i0100 and not i0200 - marc 8/5/17
       IF (jk.eq.i0200) THEN
          DO jj = 2,jpjm1

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

@@ -335 +335 @@
 !               fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj),      &
 !               fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj),      &
-               fifd_c(jpi,jpj),                                       &
-               fofd_c(jpi,jpj),                                       &
+               fifd_c(jpi,jpj), fofd_c(jpi,jpj),                      &
 # endif
                fzmi_i(jpi,jpj),fzmi_o(jpi,jpj),fzme_i(jpi,jpj),       &

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -556 +556 @@
 # endif
 # if defined key_debug_medusa
-! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17
+! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17
 !         if (idf.eq.1.AND.idfval.eq.1) then
 !            DO jj = 2,jpjm1
@@ -588 +588 @@
 
 # if defined key_debug_medusa
-! I'M NOT SURE THIS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17
+! I'M NOT SURE THIS IS USEFUL NOW THAT I'VE SPLIT THE DO LOOP - marc 8/5/17
 !         if (idf.eq.1.AND.idfval.eq.1.AND.jk.eq.1) then
 !            DO jj = 2,jpjm1

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

@@ -53 +53 @@
       !
       IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES 
-! tmp - marc
-      write(numout,*) 'bbb32. before call to trc_bio_medusa'
-      flush(numout)
-!
       IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers
-! tmp - marc
-      write(numout,*) 'bbb33. after call to trc_bio_medusa'
-      flush(numout)
-!
 # if defined key_debug_medusa
          IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK --  next IDTRA -- '