Changeset 11828 for branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

Timestamp:

2019-10-29T16:30:24+01:00 (4 years ago)

Author:

jpalmier

Message:

DIRTY temporal debug

File:

• branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_GeoAlk_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

@@ -445 +445 @@
                                      fse3t(ji,jj,jk))
                ENDIF
-               !! AXY (16/10/19)
+               !! AXY (16/10/19) : SUPER DIRTY !! to be cleaned
                IF( med_diag%GEOENG_ALK%dgsave ) THEN
-                  geoengalk2d(ji,jj) = geoengalk2d(ji,jj) +                  &
-                                       (f_geoeng_alk(ji,jj) *                &
-                                       fse3t(ji,jj,jk))
+                  IF (jk.eq.1) THEN
+                     geoengalk2d(ji,jj) = geoengalk2d(ji,jj) +                  &
+                                          (f_geoeng_alk(ji,jj) *                &
+                                          fse3t(ji,jj,jk))
+                  ENDIF
                ENDIF                 
                IF( med_diag%DETC%dgsave ) THEN