Changeset 10020 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

Timestamp:

2018-07-31T17:47:55+02:00 (6 years ago)

Author:

marc

Message:

GMED ticket 406. CPP key fixes.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

@@ -62 +62 @@
 # endif
                                    zchd, zchn, zdin, zsil
-      USE dom_oce,           ONLY: e3t_0, e3t_n, gphit, tmask, mig, mjg
-# if defined key_iomput
+      USE dom_oce,           ONLY: e3t_0, gphit, tmask, mig, mjg
+# if defined key_vvl
+      USE dom_oce,           ONLY: e3t_n
+# endif
       USE iom,               ONLY: lk_iomput
-# endif
       USE in_out_manager,    ONLY: lwp, numout
       USE par_kind,          ONLY: wp
@@ -185 +186 @@
                call trc_rst_dia_stat(zpho(:,:), 'zpho')
 #   endif
+#  if defined key_axy_carbchem
+#   if defined key_mocsy
       DO jj = 2,jpjm1
          DO ji = 2,jpim1
             if (tmask(ji,jj,1) == 1) then
                !!
-#  if defined key_axy_carbchem
-#   if defined key_mocsy
                !! Jpalm -- 12-09-2017 -- add extra check after reccurent
                !!          carbonate failure in the coupled run.