Changeset 8434 for branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.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_init.F90 (modified) (3 diffs)

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

@@ -35 +35 @@
       USE par_oce,           ONLY: jpi, jpj, jpk
       USE sms_medusa,        ONLY: jdms
-      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000,     &
-                                   trc2d, trc3d
+      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000 
+      USE in_out_manager,    ONLY: lwp
 
 # if defined key_iomput
@@ -47 +47 @@
 
       IF( ln_diatrc ) THEN
-         !! blank 2D diagnostic array
-         trc2d(:,:,:) = 0.e0
-         !!
-         !! blank 3D diagnostic array
-         trc3d(:,:,:,:) = 0.e0
+         IF (lwp) write (numout,*) 'Diagnostics are now ALL through XIOS (key_xios)'
+         IF (lwp) write (numout,*) 'No more key_diatrc anymore.'
       ENDIF
 
@@ -171 +168 @@
       !! -----------------------------
       !! Juju :: add kt condition !!
-      IF ( lk_iomput .AND. .NOT.  ln_diatrc ) THEN 
+      IF ( lk_iomput ) THEN 
 
          !! initialise iom_use test