New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
bio_medusa_mod.F90 in branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA – NEMO

source: branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90 @ 7978

Last change on this file since 7978 was 7978, checked in by marc, 7 years ago

Moved the iron chemistry and scavenging out of trcbio_medusa.F90
File size: 20.3 KB
Line 
1MODULE bio_medusa_mod
2   !!======================================================================
3   !!                      ***  MODULE  bio_medusa_mod  ***
4   !! MEDUSA variables   :  module for MEDUSA variables which are shared
5   !!                       across subroutines
6   !!======================================================================
7   !! History :
8   !!   -   ! 2017-04 (M. Stringer)        Code taken from trcbio_medusa.F90
9   !!----------------------------------------------------------------------
10#if defined key_medusa
11   !!----------------------------------------------------------------------
12   !!   'key_medusa'                                           MEDUSA
13   !!----------------------------------------------------------------------
14   USE par_kind,          ONLY: wp
15   
16   IMPLICIT NONE
17   PUBLIC
18
19   PUBLIC   bio_medusa_alloc     ! called by trcini.F90
20
21   !! model state variables
22   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zchn,zchd,zphn,zphd,zpds,zzmi
23   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zzme,zdet,zdtc,zdin,zsil,zfer
24# if defined key_roam
25   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdic, zalk, zoxy
26   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ztmp, zsal
27# endif
28# if defined key_mocsy
29   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zpho
30# endif
31
32   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fthetan,faln,fchn1,fchn
33   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fjln,fprn,frn
34   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fthetad,fald,fchd1,fchd
35   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fjld,fprd,frd
36
37   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fjlim_pn, fjlim_pd
38   !! AXY (03/02/11): add in Liebig terms
39   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fpnlim, fpdlim
40   !! AXY (16/07/09): add in Eppley curve functionality
41   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fun_T,xvpnT,xvpdT
42
43   !! AXY (16/05/11): per Katya's prompting, add in new T-dependence
44   !!                 for phytoplankton growth only (i.e. no change
45   !!                 for remineralisation)
46   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fun_Q10
47   !! AXY (01/03/10): add in mixed layer PP diagnostics
48   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fprn_ml,fprd_ml
49   !!
50   !! nutrient limiting factors
51   !! N and Fe (renaming ffln to ffln2 to avoid conflict with
52   !! ffln in module sms_medusa - marc 25/4/17)
53   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fnln,ffln2
54   !! N, Fe and Si
55   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fnld,ffld,fsld,fsld2
56   !!
57   !! silicon cycle
58   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fsin,fnsi,fprds,fsdiss
59
60   !! iron cycle; includes parameters for Parekh et al. (2005) iron scheme
61   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ffetop,ffebot,ffescav
62   !! Variable for iron-ligand system
63   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: xFree
64
65   !! Microzooplankton grazing
66   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fmi1,fmi,fgmipn,fgmid,fgmidc
67   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: finmi,ficmi,fstarmi,fmith
68   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fmigrow,fmiexcr,fmiresp
69   !!
70   !! Mesozooplankton grazing
71   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fme1,fme,fgmepn,fgmepd
72   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fgmepds,fgmezmi,fgmed,fgmedc
73   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: finme,ficme,fstarme,fmeth
74   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fmegrow,fmeexcr,fmeresp
75   !!
76   !! mortality/Remineralisation (defunct parameter "fz" removed)
77   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fdpn,fdpd,fdpds,fdzmi,fdzme,fdd
78# if defined key_roam
79   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fddc
80# endif
81   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fdpn2,fdpd2,fdpds2,fdzmi2,fdzme2
82
83   !! Mortality/Remineralisation
84   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslownflux, fslowcflux
85   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfast,fregenfastsi
86# if defined key_roam
87   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfastc
88# endif
89
90   !! Particle flux
91   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fdep1,fcaco3
92   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftempn,ftempsi,ftempfe
93   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftempc,ftempca
94   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: freminn,freminsi,freminfe
95   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: freminc,freminca
96   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ffastn,ffastsi,ffastfe
97   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ffastc,ffastca
98   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fprotf
99   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fsedn,fsedsi,fsedfe,fsedc,fsedca
100   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fccd
101   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fccd_dep
102
103   !! water column nutrient and flux integrals
104   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftot_n,ftot_si,ftot_fe
105   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fflx_n,fflx_si,fflx_fe
106   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fifd_n,fifd_si,fifd_fe
107   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fofd_n,fofd_si,fofd_fe
108# if defined key_roam
109   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftot_c,ftot_a,ftot_o2
110   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fflx_c,fflx_a,fflx_o2
111   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fifd_c,fifd_a,fifd_o2
112   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fofd_c,fofd_a,fofd_o2
113# endif
114
115   !! Zooplankton grazing integrals
116   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fzmi_i,fzmi_o,fzme_i,fzme_o
117
118   !! Limitation term temporary variables
119   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftot_pn,ftot_pd
120   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ftot_zmi,ftot_zme,ftot_det,ftot_dtc
121
122   !! diagnose fluxes (should only be used in 1D runs)
123   INTEGER                               :: idf, idfval
124
125   !! Nitrogen and silicon production and consumption
126   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fnit_prod,fnit_cons
127   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fsil_prod,fsil_cons
128
129   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_xco2a
130   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_ph,f_pco2w,f_h2co3
131   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_hco3,f_co3,f_co2flux
132   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_TDIC,f_TALK,f_dcf,f_henry
133   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_pp0
134   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_kw660,f_o2flux,f_o2sat
135   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_omcal,f_omarg
136
137   !! AXY (23/06/15): additional diagnostics for MOCSY and oxygen
138   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_fco2w,f_BetaD,f_rhosw,f_opres
139   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_insitut,f_pco2atm,f_fco2atm
140   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_schmidtco2,f_kwco2,f_K0
141   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_co2starair,f_dpco2,f_kwo2
142
143   INTEGER, ALLOCATABLE, DIMENSION(:,:)  :: iters 
144
145   !! Carbon, alkalinity production and consumption
146   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fcomm_resp
147   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fcar_prod,fcar_cons
148
149   !! Oxygen production and consumption (and non-consumption)
150   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: foxy_prod,foxy_cons,foxy_anox
151
152   !! Add DMS in MEDUSA for UKESM1 model
153   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_surf
154   !! AXY (13/03/15): add in other DMS calculations
155   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andr,dms_simo,dms_aran,dms_hall
156
157   !! Benthic fluxes
158   INTEGER  ::    ibenthic
159   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_sbenin_n,f_sbenin_fe,f_sbenin_c
160   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_fbenin_n,f_fbenin_fe,f_fbenin_si
161   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_fbenin_c,f_fbenin_ca
162   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_benout_n,f_benout_fe,f_benout_si 
163   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_benout_c,f_benout_ca
164
165   !! Benthic fluxes of CaCO3 that shouldn't happen because of lysocline
166   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_benout_lyso_ca
167
168   !! riverine fluxes
169   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_runoff,f_riv_n,f_riv_si
170   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: f_riv_c,f_riv_alk
171
172   !! Jpalm -- 11-10-2015 -- adapt diag to iom_use
173   !! 2D var for diagnostics.
174   REAL(wp), POINTER, DIMENSION(:,:) :: fprn2d, fdpn2d, fprd2d, fdpd2d
175   REAL(wp), POINTER, DIMENSION(:,:) :: fprds2d, fsdiss2d, fgmipn2d
176   REAL(wp), POINTER, DIMENSION(:,:) :: fgmid2d, fdzmi2d, fgmepn2d
177   REAL(wp), POINTER, DIMENSION(:,:) :: fgmepd2d, fgmezmi2d, fgmed2d
178   REAL(wp), POINTER, DIMENSION(:,:) :: fdzme2d, fslown2d, fdd2d
179   REAL(wp), POINTER, DIMENSION(:,:) :: ffetop2d, ffebot2d, ffescav2d
180   REAL(wp), POINTER, DIMENSION(:,:) :: fjln2d, fnln2d, ffln2d, fjld2d
181   REAL(wp), POINTER, DIMENSION(:,:) :: fnld2d, ffld2d, fsld2d2
182   REAL(wp), POINTER, DIMENSION(:,:) :: fsld2d, fregen2d, fregensi2d
183   REAL(wp), POINTER, DIMENSION(:,:) :: ftempn2d, ftempsi2d, ftempfe2d
184   REAL(wp), POINTER, DIMENSION(:,:) :: ftempc2d, ftempca2d, freminn2d
185   REAL(wp), POINTER, DIMENSION(:,:) :: freminsi2d, freminfe2d
186   REAL(wp), POINTER, DIMENSION(:,:) :: freminc2d, freminca2d
187   REAL(wp), POINTER, DIMENSION(:,:) :: zw2d
188# if defined key_roam
189   REAL(wp), POINTER, DIMENSION(:,:) :: ffastca2d, rivn2d, rivsi2d
190   REAL(wp), POINTER, DIMENSION(:,:) :: rivc2d, rivalk2d, fslowc2d
191   REAL(wp), POINTER, DIMENSION(:,:) :: fdpn22d, fdpd22d, fdzmi22d
192   REAL(wp), POINTER, DIMENSION(:,:) :: fdzme22d, zimesn2d, zimesd2d
193   REAL(wp), POINTER, DIMENSION(:,:) :: zimesc2d, zimesdc2d, ziexcr2d
194   REAL(wp), POINTER, DIMENSION(:,:) :: ziresp2d, zigrow2d, zemesn2d
195   REAL(wp), POINTER, DIMENSION(:,:) :: zemesd2d, zemesc2d, zemesdc2d
196   REAL(wp), POINTER, DIMENSION(:,:) :: zeexcr2d, zeresp2d, zegrow2d
197   REAL(wp), POINTER, DIMENSION(:,:) :: mdetc2d, gmidc2d, gmedc2d
198   REAL(wp), POINTER, DIMENSION(:,:) :: f_pco2a2d, f_pco2w2d, f_co2flux2d
199   REAL(wp), POINTER, DIMENSION(:,:) :: f_TDIC2d, f_TALK2d, f_kw6602d
200   REAL(wp), POINTER, DIMENSION(:,:) :: f_pp02d, f_o2flux2d, f_o2sat2d
201   REAL(wp), POINTER, DIMENSION(:,:) :: dms_andr2d, dms_simo2d, dms_aran2d
202   REAL(wp), POINTER, DIMENSION(:,:) :: dms_hall2d, dms_surf2d
203   REAL(wp), POINTER, DIMENSION(:,:) :: iben_n2d, iben_fe2d, iben_c2d
204   REAL(wp), POINTER, DIMENSION(:,:) :: iben_si2d, iben_ca2d, oben_n2d
205   REAL(wp), POINTER, DIMENSION(:,:) :: oben_fe2d, oben_c2d, oben_si2d
206   REAL(wp), POINTER, DIMENSION(:,:) :: oben_ca2d, sfr_ocal2d
207   REAL(wp), POINTER, DIMENSION(:,:) :: sfr_oarg2d, lyso_ca2d 
208   !! AXY (23/11/16): extra MOCSY diagnostics
209   REAL(wp), POINTER, DIMENSION(:,:) :: f_xco2a_2d, f_fco2w_2d, f_fco2a_2d
210   REAL(wp), POINTER, DIMENSION(:,:) :: f_ocnrhosw_2d, f_ocnschco2_2d
211   REAL(wp), POINTER, DIMENSION(:,:) :: f_ocnkwco2_2d
212   REAL(wp), POINTER, DIMENSION(:,:) :: f_ocnk0_2d, f_co2starair_2d
213   REAL(wp), POINTER, DIMENSION(:,:) :: f_ocndpco2_2d
214# endif
215   !!
216   !! 3D var for diagnostics.
217   REAL(wp), POINTER, DIMENSION(:,:,:) :: tpp3d, detflux3d, remin3dn
218   !!
219# if defined key_roam
220   !! AXY (04/11/16)
221   !! 2D var for new CMIP6 diagnostics (behind a key_roam ifdef
222   !! for simplicity)
223   REAL(wp), POINTER, DIMENSION(:,:) :: fgco2,intdissic,intdissin
224   REAL(wp), POINTER, DIMENSION(:,:) :: intdissisi,inttalk,o2min,zo2min
225   REAL(wp), POINTER, DIMENSION(:,:) :: fbddtalk,fbddtdic,fbddtdife
226   REAL(wp), POINTER, DIMENSION(:,:) :: fbddtdin,fbddtdisi
227   !!
228   !! 3D var for new CMIP6 diagnostics
229   REAL(wp), POINTER, DIMENSION(:,:,:) :: tppd3
230   REAL(wp), POINTER, DIMENSION(:,:,:) :: bddtalk3,bddtdic3,bddtdife3
231   REAL(wp), POINTER, DIMENSION(:,:,:) :: bddtdin3, bddtdisi3
232   REAL(wp), POINTER, DIMENSION(:,:,:) :: fd_nit3,fd_sil3,fd_car3,fd_cal3
233   REAL(wp), POINTER, DIMENSION(:,:,:) :: co33,co3satarag3,co3satcalc3,dcalc3
234   REAL(wp), POINTER, DIMENSION(:,:,:) :: expc3,expn3
235   REAL(wp), POINTER, DIMENSION(:,:,:) :: fediss3,fescav3
236   REAL(wp), POINTER, DIMENSION(:,:,:) :: migrazp3,migrazd3,megrazp3
237   REAL(wp), POINTER, DIMENSION(:,:,:) :: megrazd3, megrazz3
238   REAL(wp), POINTER, DIMENSION(:,:,:) :: o2sat3,pbsi3,pcal3,remoc3
239   REAL(wp), POINTER, DIMENSION(:,:,:) :: pnlimj3,pnlimn3,pnlimfe3
240   REAL(wp), POINTER, DIMENSION(:,:,:) :: pdlimj3,pdlimn3,pdlimfe3,pdlimsi3
241# endif
242   !!----------------------------------------------------------------------
243   !! NEMO/TOP 3.3.1 , NEMO Consortium (2010)
244   !! $Id$
245   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
246   !!----------------------------------------------------------------------
247CONTAINS
248
249   INTEGER FUNCTION bio_medusa_alloc()
250      !!-------------------------------------------------------------------
251      !!                    *** ROUTINE bio_medusa_alloc ***
252      !!-------------------------------------------------------------------
253      USE lib_mpp,           ONLY: ctl_warn
254      USE par_oce,           ONLY: jpi, jpj
255!    USE par_trc
256      !!-------------------------------------------------------------------
257      !
258      ALLOCATE(zchn(jpi,jpj),zchd(jpi,jpj),zphn(jpi,jpj),             &
259               zphd(jpi,jpj),zpds(jpi,jpj),zzmi(jpi,jpj),             &
260               zzme(jpi,jpj),zdet(jpi,jpj),zdtc(jpi,jpj),             &
261               zdin(jpi,jpj),zsil(jpi,jpj),zfer(jpi,jpj),             &
262               zdic(jpi,jpj),zalk(jpi,jpj),zoxy(jpi,jpj),             &
263               ztmp(jpi,jpj),zsal(jpi,jpj),                           &
264               zpho(jpi,jpj),                                         &
265               fthetan(jpi,jpj),faln(jpi,jpj),fchn1(jpi,jpj),         &
266               fchn(jpi,jpj),fjln(jpi,jpj),fprn(jpi,jpj),             &
267               frn(jpi,jpj),                                          &
268               fthetad(jpi,jpj),fald(jpi,jpj),fchd1(jpi,jpj),         &
269               fchd(jpi,jpj),fjld(jpi,jpj),fprd(jpi,jpj),             &
270               frd(jpi,jpj),                                          &
271               fjlim_pn(jpi,jpj), fjlim_pd(jpi,jpj),                  &
272               fpnlim(jpi,jpj), fpdlim(jpi,jpj),                      &
273               fun_T(jpi,jpj),xvpnT(jpi,jpj),xvpdT(jpi,jpj),          &
274               fun_Q10(jpi,jpj),                                      &
275               fprn_ml(jpi,jpj),fprd_ml(jpi,jpj),                     &
276               fnln(jpi,jpj),ffln2(jpi,jpj),                          &
277               fnld(jpi,jpj),ffld(jpi,jpj),fsld(jpi,jpj),             &
278               fsld2(jpi,jpj),                                        &
279               fsin(jpi,jpj),fnsi(jpi,jpj),fprds(jpi,jpj),            &
280               fsdiss(jpi,jpj),                                       &
281               ffetop(jpi,jpj),ffebot(jpi,jpj),ffescav(jpi,jpj),      &
282               xFree(jpi,jpj),                                        &
283               fmi1(jpi,jpj),fmi(jpi,jpj),fgmipn(jpi,jpj),            &
284               fgmid(jpi,jpj),fgmidc(jpi,jpj),                        &
285               finmi(jpi,jpj),ficmi(jpi,jpj),fstarmi(jpi,jpj),        &
286               fmith(jpi,jpj),fmigrow(jpi,jpj),fmiexcr(jpi,jpj),      &
287               fmiresp(jpi,jpj),                                      &
288               fme1(jpi,jpj),fme(jpi,jpj),fgmepn(jpi,jpj),            &
289               fgmepd(jpi,jpj),fgmepds(jpi,jpj),fgmezmi(jpi,jpj),     &
290               fgmed(jpi,jpj),fgmedc(jpi,jpj),                        &
291               finme(jpi,jpj),ficme(jpi,jpj),fstarme(jpi,jpj),        &
292               fmeth(jpi,jpj),fmegrow(jpi,jpj),fmeexcr(jpi,jpj),      &
293               fmeresp(jpi,jpj),                                      &
294               fdpn(jpi,jpj),fdpd(jpi,jpj),fdpds(jpi,jpj),            &
295               fdzmi(jpi,jpj),fdzme(jpi,jpj),fdd(jpi,jpj),            &
296               fddc(jpi,jpj),                                         &
297               fdpn2(jpi,jpj),fdpd2(jpi,jpj),fdpds2(jpi,jpj),         &
298               fdzmi2(jpi,jpj),fdzme2(jpi,jpj),                       &
299               fslownflux(jpi,jpj),fslowcflux(jpi,jpj),               &
300               fregenfast(jpi,jpj),fregenfastsi(jpi,jpj),             &
301# if defined key_roam
302               fregenfastc(jpi,jpj),                                  &
303# endif
304               fdep1(jpi,jpj),fcaco3(jpi,jpj),                        &
305               ftempn(jpi,jpj),ftempsi(jpi,jpj),ftempfe(jpi,jpj),     &
306               ftempc(jpi,jpj),ftempca(jpi,jpj),                      &
307               freminn(jpi,jpj),freminsi(jpi,jpj),freminfe(jpi,jpj),  &
308               freminc(jpi,jpj),freminca(jpi,jpj),                    &
309               ffastn(jpi,jpj),ffastsi(jpi,jpj),ffastfe(jpi,jpj),     &
310               ffastc(jpi,jpj),ffastca(jpi,jpj),                      &
311               fprotf(jpi,jpj),                                       &
312               fsedn(jpi,jpj),fsedsi(jpi,jpj),fsedfe(jpi,jpj),        &
313               fsedc(jpi,jpj),fsedca(jpi,jpj),                        &
314               fccd(jpi,jpj),                                         &
315               fccd_dep(jpi,jpj),                                     &
316               ftot_n(jpi,jpj),ftot_si(jpi,jpj),ftot_fe(jpi,jpj),     &
317               fflx_n(jpi,jpj),fflx_si(jpi,jpj),fflx_fe(jpi,jpj),     &
318               fifd_n(jpi,jpj),fifd_si(jpi,jpj),fifd_fe(jpi,jpj),     &
319               fofd_n(jpi,jpj),fofd_si(jpi,jpj),fofd_fe(jpi,jpj),     &
320# if defined key_roam
321               ftot_c(jpi,jpj),ftot_a(jpi,jpj),ftot_o2(jpi,jpj),      &
322               fflx_c(jpi,jpj),fflx_a(jpi,jpj),fflx_o2(jpi,jpj),      &
323               fifd_c(jpi,jpj),fifd_a(jpi,jpj),fifd_o2(jpi,jpj),      &
324               fofd_c(jpi,jpj),fofd_a(jpi,jpj),fofd_o2(jpi,jpj),      &
325# endif
326               fzmi_i(jpi,jpj),fzmi_o(jpi,jpj),fzme_i(jpi,jpj),       &
327               fzme_o(jpi,jpj),                                       &
328               ftot_pn(jpi,jpj),ftot_pd(jpi,jpj),                     &
329               ftot_zmi(jpi,jpj),ftot_zme(jpi,jpj),ftot_det(jpi,jpj), &
330               ftot_dtc(jpi,jpj),                                     &
331               fnit_prod(jpi,jpj),fnit_cons(jpi,jpj),                 &
332               fsil_prod(jpi,jpj),fsil_cons(jpi,jpj),                 &
333               f_xco2a(jpi,jpj),                                      &
334               f_ph(jpi,jpj),f_pco2w(jpi,jpj),f_h2co3(jpi,jpj),       &
335               f_hco3(jpi,jpj),f_co3(jpi,jpj),f_co2flux(jpi,jpj),     &
336               f_TDIC(jpi,jpj),f_TALK(jpi,jpj),f_dcf(jpi,jpj),        &
337               f_henry(jpi,jpj),                                      &
338               f_pp0(jpi,jpj),                                        &
339               f_kw660(jpi,jpj),f_o2flux(jpi,jpj),f_o2sat(jpi,jpj),   &
340               f_omcal(jpi,jpj),f_omarg(jpi,jpj),                     &
341               f_fco2w(jpi,jpj),f_BetaD(jpi,jpj),f_rhosw(jpi,jpj),    &
342               f_opres(jpi,jpj),f_insitut(jpi,jpj),                   &
343               f_pco2atm(jpi,jpj),f_fco2atm(jpi,jpj),                 &
344               f_schmidtco2(jpi,jpj),f_kwco2(jpi,jpj),f_K0(jpi,jpj),  &
345               f_co2starair(jpi,jpj),f_dpco2(jpi,jpj),                &
346               f_kwo2(jpi,jpj),                                       &
347               iters(jpi,jpj),                                        &
348               fcomm_resp(jpi,jpj),                                   &
349               fcar_prod(jpi,jpj),fcar_cons(jpi,jpj),                 &
350               foxy_prod(jpi,jpj), foxy_cons(jpi,jpj),                &
351               foxy_anox(jpi,jpj),                                    &
352               dms_surf(jpi,jpj),                                     &
353               dms_andr(jpi,jpj),dms_simo(jpi,jpj),                   &
354               dms_aran(jpi,jpj),dms_hall(jpi,jpj),                   &
355               f_sbenin_n(jpi,jpj),f_sbenin_fe(jpi,jpj),              &
356               f_sbenin_c(jpi,jpj),                                   &
357               f_fbenin_n(jpi,jpj),f_fbenin_fe(jpi,jpj),              &
358               f_fbenin_si(jpi,jpj),                                  &
359               f_fbenin_c(jpi,jpj),f_fbenin_ca(jpi,jpj),              &
360               f_benout_n(jpi,jpj),f_benout_fe(jpi,jpj),              &
361               f_benout_si(jpi,jpj),                                  &
362               f_benout_c(jpi,jpj),f_benout_ca(jpi,jpj),              &
363               f_benout_lyso_ca(jpi,jpj),                             &
364               f_runoff(jpi,jpj),f_riv_n(jpi,jpj),f_riv_si(jpi,jpj),  &
365               f_riv_c(jpi,jpj),f_riv_alk(jpi,jpj),                   &
366               STAT = bio_medusa_alloc)
367
368      !! Check that allocation was successful
369      IF ( bio_medusa_alloc /= 0 ) THEN 
370         CALL ctl_warn('bio_medusa_alloc: failed to allocate arrays')
371      END IF
372   
373   END FUNCTION bio_medusa_alloc
374
375#else
376   !!----------------------------------------------------------------------
377   !!  Empty module :                                          No MEDUSA
378   !!----------------------------------------------------------------------
379#endif 
380
381   !!======================================================================
382END MODULE bio_medusa_mod
Note: See TracBrowser for help on using the repository browser.