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

Timestamp:

2019-10-18T16:49:33+02:00 (5 years ago)

Author:

jpalmier

Message:

add Changes to enable Alkalinity geo-ingeneering tests within MEDUSA

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)
+               IF( med_diag%GEOENG_ALK%dgsave ) THEN
+                  geoengalk2d(ji,jj) = geoengalk2d(ji,jj) +                  &
+                                       (f_geoeng_alk(ji,jj) *                &
+                                       fse3t(ji,jj,jk))
+               ENDIF                 
                IF( med_diag%DETC%dgsave ) THEN
                   fslowc2d(ji,jj) = fslowc2d(ji,jj) +                        &