Changeset 8434 for branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

Timestamp:

2017-08-11T12:47:19+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- 11-08-2017 -- MEDUSA cleaned and purged

File:

• branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

@@ -161 +161 @@
 
    !! Add DMS in MEDUSA for UKESM1 model
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_surf
+   REAL(wp)                              :: dms_surf,dms_andm
    !! AXY (13/03/15): add in other DMS calculations
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andr,dms_simo,dms_aran,dms_hall
-   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andm, dms_nlim, dms_wtkn
+   REAL(wp)                              :: dms_andr,dms_simo,dms_aran,dms_hall
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_nlim, dms_wtkn
 # endif
 
@@ -360 +360 @@
                foxy_prod(jpi,jpj), foxy_cons(jpi,jpj),                &
                foxy_anox(jpi,jpj),                                    &
-               dms_surf(jpi,jpj),                                     &
-               dms_andr(jpi,jpj),dms_simo(jpi,jpj),                   &
-               dms_aran(jpi,jpj),dms_hall(jpi,jpj),dms_andm(jpi,jpj), &
                dms_nlim(jpi,jpj),dms_wtkn(jpi,jpj),                   &
 # endif