Ignore:
Timestamp:
2020-07-16T19:14:10+02:00 (5 months ago)
Author:
dford
Message:

Allow assimilation of PFT chlorophyll profiles. See Met Office utils ticket 346.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r12611 r13318  
    174174         &                 ln_slphydiainc, ln_slphynoninc, ln_spco2inc,    & 
    175175         &                 ln_sfco2inc, ln_plchltotinc, ln_pchltotinc,     & 
     176         &                 ln_plchldiainc, ln_plchlnaninc, ln_plchlpicinc, & 
     177         &                 ln_plchldininc,                                 &  
    176178         &                 ln_pno3inc, ln_psi4inc, ln_pdicinc, ln_palkinc, & 
    177179         &                 ln_pphinc, ln_po2inc, ln_ppo4inc,               & 
     
    259261         WRITE(numout,*) '      Logical switch for applying plchltot increments          ln_plchltotinc = ', ln_plchltotinc 
    260262         WRITE(numout,*) '      Logical switch for applying pchltot increments           ln_pchltotinc = ', ln_pchltotinc 
     263         WRITE(numout,*) '      Logical switch for applying plchldia increments          ln_plchldiainc = ', ln_plchldiainc 
     264         WRITE(numout,*) '      Logical switch for applying plchlnan increments          ln_plchlnaninc = ', ln_plchlnaninc 
     265         WRITE(numout,*) '      Logical switch for applying plchlpic increments          ln_plchlpicinc = ', ln_plchlpicinc 
     266         WRITE(numout,*) '      Logical switch for applying plchldin increments          ln_plchldininc = ', ln_plchldininc 
    261267         WRITE(numout,*) '      Logical switch for applying pno3 increments              ln_pno3inc = ', ln_pno3inc 
    262268         WRITE(numout,*) '      Logical switch for applying psi4 increments              ln_psi4inc = ', ln_psi4inc 
     
    310316         & ln_schltotinc  .OR. ln_slphytotinc .OR. ln_slphydiainc .OR. & 
    311317         & ln_slphynoninc .OR. ln_spco2inc    .OR. ln_sfco2inc    .OR. & 
    312          & ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_pno3inc     .OR. & 
     318         & ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_plchldiainc .OR. & 
     319         & ln_plchlnaninc .OR. ln_plchlpicinc .OR. ln_plchldininc .OR. & 
     320         & ln_pno3inc     .OR.                                         & 
    313321         & ln_psi4inc     .OR. ln_pdicinc     .OR. ln_palkinc     .OR. & 
    314322         & ln_pphinc      .OR. ln_po2inc      .OR. ln_ppo4inc ) THEN 
     
    14781486       
    14791487      ! Then chlorophyll profiles 
    1480       IF ( ln_plchltotinc .OR. ln_pchltotinc ) THEN 
     1488      IF ( ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_plchldiainc .OR. & 
     1489         & ln_plchlnaninc .OR. ln_plchlpicinc .OR. ln_plchldininc ) THEN 
    14811490         CALL phyto3d_asm_inc( kt, ln_asmdin, ln_asmiau, icycper, wgtiau ) 
    14821491      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.