Changeset 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

Timestamp:

2017-05-12T10:21:30+02:00 (7 years ago)

Author:

marc

Message:

Tidying up of headers for several files

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

@@ -39 +39 @@
                                    f_pco2w, f_ph, f_pp0, f_rhosw,         &
                                    f_schmidtco2, f_TALK, f_TDIC, f_xco2a, &
-                                   zalk, zdic, zpho, zsal, zsil, ztmp 
+# if defined key_mocsy
+                                   zpho,                                  &
+# endif
+                                   zalk, zdic, zsal, zsil, ztmp 
       USE dom_oce,           ONLY: gdept_0, gdept_n, gdepw_0, gdepw_n,    &
                                    gphit, mbathy, tmask
       USE in_out_manager,    ONLY: lwp, numout
-      USE mocsy_wrapper,     ONLY: mocsy_interface
       USE oce,               ONLY: PCO2a_in_cpl, tsb, tsn
       USE par_kind,          ONLY: wp
@@ -54 +56 @@
                                    f3_omcal, f3_pH
       USE trc,               ONLY: trn
+
+# if defined key_mocsy
+      USE mocsy_wrapper,     ONLY: mocsy_interface
+# else
       USE trcco2_medusa,     ONLY: trc_co2_medusa
+# endif
 
    !!* Substitution