Changeset 7927 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

Timestamp:

2017-04-18T17:47:38+02:00 (7 years ago)

Author:

marc

Message:

Moving the diagnostics at end of the big DO loop in trcbio_medusa.F90 into bio_medusa_diag_slice.F90

File:

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

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

@@ -27 +27 @@
 
    !! Mortality/Remineralisation
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslownflux, fslowcflux
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfast,fregenfastsi
 # if defined key_roam
@@ -173 +174 @@
       ALLOCATE(fprn_ml(jpi,jpj),fprd_ml(jpi,jpj),                     &
                xFree(jpi,jpj),                                        &
+               fslownflux(jpi,jpj),fslowcflux(jpi,jpj),               &
                fregenfast(jpi,jpj),fregenfastsi(jpi,jpj),             &
 # if defined key_roam