Changeset 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.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/bio_medusa_mod.F90 (modified) (10 diffs)

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

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    !!   'key_medusa'                                           MEDUSA
+   !!----------------------------------------------------------------------
+   !! Variable conventions
+   !!----------------------------------------------------------------------
+   !!
+   !! names: z*** - state variable 
+   !!        f*** - function (or temporary variable used in part of a function)
+   !!        b*** - right-hand part (sources and sinks)
+   !!        i*** - integer variable (usually used in yes/no flags)
    !!----------------------------------------------------------------------
    USE par_kind,          ONLY: wp
@@ -115 +123 @@
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftot_c,ftot_a,ftot_o2
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fflx_c,fflx_a,fflx_o2
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fifd_c,fifd_a,fifd_o2
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fofd_c,fofd_a,fofd_o2
+! I don't think fifd_a, fifd_o2, fofd_a or fofd_o2 are used - marc 11/5/17
+!   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fifd_c,fifd_a,fifd_o2
+!   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fofd_c,fofd_a,fofd_o2
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fifd_c
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fofd_c
 # endif
 
@@ -136 +147 @@
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fsil_prod,fsil_cons
 
+# if defined key_roam
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_xco2a
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_ph,f_pco2w,f_h2co3
@@ -163 +175 @@
    !! AXY (13/03/15): add in other DMS calculations
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andr,dms_simo,dms_aran,dms_hall
+# endif
 
    !! Benthic fluxes
@@ -266 +279 @@
       USE lib_mpp,           ONLY: ctl_warn
       USE par_oce,           ONLY: jpi, jpj
-!    USE par_trc
       !!-------------------------------------------------------------------
       !
@@ -273 +285 @@
                zzme(jpi,jpj),zdet(jpi,jpj),zdtc(jpi,jpj),             &
                zdin(jpi,jpj),zsil(jpi,jpj),zfer(jpi,jpj),             &
+# if defined key_roam
                zdic(jpi,jpj),zalk(jpi,jpj),zoxy(jpi,jpj),             &
                ztmp(jpi,jpj),zsal(jpi,jpj),                           &
+# endif
+# if defined key_mocsy
                zpho(jpi,jpj),                                         &
+# endif
                fthetan(jpi,jpj),faln(jpi,jpj),fchn1(jpi,jpj),         &
                fchn(jpi,jpj),fjln(jpi,jpj),fprn(jpi,jpj),             &
@@ -307 +323 @@
                fdpn(jpi,jpj),fdpd(jpi,jpj),fdpds(jpi,jpj),            &
                fdzmi(jpi,jpj),fdzme(jpi,jpj),fdd(jpi,jpj),            &
+# if defined key_roam
                fddc(jpi,jpj),                                         &
+# endif
                fdpn2(jpi,jpj),fdpd2(jpi,jpj),fdpds2(jpi,jpj),         &
                fdzmi2(jpi,jpj),fdzme2(jpi,jpj),                       &
@@ -337 +355 @@
                ftot_c(jpi,jpj),ftot_a(jpi,jpj),ftot_o2(jpi,jpj),      &
                fflx_c(jpi,jpj),fflx_a(jpi,jpj),fflx_o2(jpi,jpj),      &
-               fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj),      &
-               fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj),      &
+! I don't think fifd_a, fifd_o2, fofd_a or fofd_o2 are used - marc 11/5/17
+!               fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj),      &
+!               fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj),      &
+               fifd_c(jpi,jpj),                                       &
+               fofd_c(jpi,jpj),                                       &
 # endif
                fzmi_i(jpi,jpj),fzmi_o(jpi,jpj),fzme_i(jpi,jpj),       &
@@ -347 +368 @@
                fnit_prod(jpi,jpj),fnit_cons(jpi,jpj),                 &
                fsil_prod(jpi,jpj),fsil_cons(jpi,jpj),                 &
+# if defined key_roam
                f_xco2a(jpi,jpj),                                      &
                f_ph(jpi,jpj),f_pco2w(jpi,jpj),f_h2co3(jpi,jpj),       &
@@ -369 +391 @@
                dms_andr(jpi,jpj),dms_simo(jpi,jpj),                   &
                dms_aran(jpi,jpj),dms_hall(jpi,jpj),                   &
+# endif
                f_sbenin_n(jpi,jpj),f_sbenin_fe(jpi,jpj),              &
                f_sbenin_c(jpi,jpj),                                   &