Changeset 10664


Ignore:
Timestamp:
2019-02-13T11:23:00+01:00 (16 months ago)
Author:
dford
Message:

Update comment.

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  
    197197      !!--------------------------------------------------------------------------- 
    198198       
    199       ! Set parameters 
     199      ! Set parameters, firstly molar mass of carbon and nitrogen 
    200200      zmassc = 12.01 
    201201      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 
    202211      z4qnc  = 0.0126 
    203       !z4qnc  = model%state_variables(jp_fabm_z4c)%parameters%qnc%value 
    204       !z4qnc  = get_property_by_name(model%state_variables(jp_fabm_z4c)%parameters, 'qnc') 
    205       IF (lwp) WRITE(numout,*) 'z4qnc = ', z4qnc 
    206212 
    207213      ! If p_maxchlinc > 0 then cap total absolute chlorophyll increment at that value 
Note: See TracChangeset for help on using the changeset viewer.