Changeset 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

Timestamp:

2017-05-12T10:21:30+02:00 (7 years ago)

Author:

marc

Message:

Tidying up of headers for several files

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 (modified) (3 diffs)

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

@@ -33 +33 @@
       !!---------------------------------------------------------------------- 
       USE bio_medusa_mod
-      USE iom,               ONLY: lk_iomput, numout
       USE par_oce,           ONLY: jpi, jpj, jpk
       USE sms_medusa,        ONLY: jdms
-      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000
+      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000,     &
+                                   trc2d, trc3d
+      USE wrk_nemo,          ONLY: wrk_alloc
+
+# if defined key_iomput
+      USE iom,               ONLY: lk_iomput, numout
       USE trcnam_medusa,     ONLY: trc_nam_iom_medusa
-      USE wrk_nemo,          ONLY: wrk_alloc
+# endif
 
       !! time (integer timestep)
@@ -47 +51 @@
       flush(numout)
 !
+
+      IF( ln_diatrc ) THEN
+         !! blank 2D diagnostic array
+         trc2d(:,:,:) = 0.e0
+         !!
+         !! blank 3D diagnostic array
+         trc3d(:,:,:,:) = 0.e0
+      ENDIF
+
       !!----------------------------------------------------------------------
       !! Zero fast-sinking detritus 2D fields
@@ -92 +105 @@
       ftot_o2(:,:) = 0.0        !! oxygen     inventory
       fifd_c(:,:)  = 0.0        !! carbon     fast detritus production
-      fifd_a(:,:)  = 0.0        !! alkalinity fast detritus production
-      fifd_o2(:,:) = 0.0        !! oxygen     fast detritus production
+! I don't think fifd_a or fifd_o2 are used - marc 11/5/17
+!      fifd_a(:,:)  = 0.0        !! alkalinity fast detritus production
+!      fifd_o2(:,:) = 0.0        !! oxygen     fast detritus production
       fofd_c(:,:)  = 0.0        !! carbon     fast detritus remineralisation
-      fofd_a(:,:)  = 0.0        !! alkalinity fast detritus remineralisation
-      fofd_o2(:,:) = 0.0        !! oxygen     fast detritus remineralisation
+! I don't think fofd_a or fofd_o2 are used - marc 11/5/17
+!      fofd_a(:,:)  = 0.0        !! alkalinity fast detritus remineralisation
+!      fofd_o2(:,:) = 0.0        !! oxygen     fast detritus remineralisation
       !!
       fnit_prod(:,:) = 0.0      !! (organic)   nitrogen production