Changeset 10664 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmphyto2dbal_ersem.F90
- Timestamp:
- 2019-02-13T11:23:00+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmphyto2dbal_ersem.F90
r10622 r10664 197 197 !!--------------------------------------------------------------------------- 198 198 199 ! Set parameters 199 ! Set parameters, firstly molar mass of carbon and nitrogen 200 200 zmassc = 12.01 201 201 zmassn = 14.01 202 203 ! Then mesozooplankton nitrogen(mmol):carbon(mg), ERSEM parameter Z4/qnc 204 ! Hardwire it for now due to difficulty of getting at parameters through FABM 205 ! I think the following should work: 206 ! z4qnc = model%state_variables(jp_fabm_z4c)%properties%get_property_by_name('qnc')%value 207 ! but, get_property_by_name is in the module fabm_properties, which we can't get at directly 208 ! We can do a "USE fabm" which itself does a "USE fabm_properties", but doing it indirectly 209 ! like that means get_property_by_name is treated as private so we can't use it 210 ! So hardwire to value used in SSB runs and v4/5 CMEMS reanalysis 202 211 z4qnc = 0.0126 203 !z4qnc = model%state_variables(jp_fabm_z4c)%parameters%qnc%value204 !z4qnc = get_property_by_name(model%state_variables(jp_fabm_z4c)%parameters, 'qnc')205 IF (lwp) WRITE(numout,*) 'z4qnc = ', z4qnc206 212 207 213 ! If p_maxchlinc > 0 then cap total absolute chlorophyll increment at that value
Note: See TracChangeset
for help on using the changeset viewer.