Changeset 5982 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO

Timestamp:

2015-12-02T16:50:22+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM --02-12-2015-- iom-use debugg

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -3780 +3780 @@
                       !CALL iom_put( "TPP3"  , tpp3d )
                   ENDIF
-
                   IF( med_diag%REMIN3N%dgsave ) THEN
                       remin3dn(ji,jj,jk) = fregen + (freminn * fthk)  !! remineralisation
                       !CALL iom_put( "REMIN3N"  , remin3dn )
                   ENDIF
-                  IF( med_diag%PH3%dgsave ) THEN
-                      CALL iom_put( "PH3"  , f3_pH )
-                  ENDIF
-                  IF( med_diag%OM_CAL3%dgsave ) THEN
-                      CALL iom_put( "OM_CAL3"  , f3_omcal )
-                  ENDIF
+                  !! IF( med_diag%PH3%dgsave ) THEN
+                  !!     CALL iom_put( "PH3"  , f3_pH )
+                  !!  ENDIF
+                  !! IF( med_diag%OM_CAL3%dgsave ) THEN
+                  !!     CALL iom_put( "OM_CAL3"  , f3_omcal )
+                  !! ENDIF
          !!
          !!
@@ -4160 +4159 @@
                      ENDIF
                      IF( med_diag%MED_XPAR%dgsave ) THEN
-                         CALL iom_put( "MED_XPAR"  , xpar ) !
+                         CALL iom_put( "MED_XPAR"  , xpar(:,:,jk) ) !
                      ENDIF       
                      IF( med_diag%OCAL_CCD%dgsave ) THEN