Ignore:
Timestamp:
2019-02-12T18:08:39+01:00 (20 months ago)
Author:
dford
Message:

Add option to apply phosphate increments.

File:
1 edited

Legend:

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

    r10622 r10661  
    172172         &                 ln_sfco2inc, ln_plchltotinc, ln_pchltotinc,     & 
    173173         &                 ln_pno3inc, ln_psi4inc, ln_pdicinc, ln_palkinc, & 
    174          &                 ln_pphinc, ln_po2inc,                           & 
     174         &                 ln_pphinc, ln_po2inc, ln_ppo4inc,               & 
    175175         &                 ln_asmdin, ln_asmiau,                           & 
    176176         &                 nitbkg, nitdin, nitiaustr, nitiaufin, niaufn,   & 
     
    242242         WRITE(numout,*) '      Logical switch for applying pno3 increments             ln_pno3inc = ', ln_pno3inc 
    243243         WRITE(numout,*) '      Logical switch for applying psi4 increments             ln_psi4inc = ', ln_psi4inc 
     244         WRITE(numout,*) '      Logical switch for applying ppo4 increments             ln_ppo4inc = ', ln_ppo4inc 
    244245         WRITE(numout,*) '      Logical switch for applying pdic increments             ln_pdicinc = ', ln_pdicinc 
    245246         WRITE(numout,*) '      Logical switch for applying palk increments             ln_palkinc = ', ln_palkinc 
     
    304305         & ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_pno3inc     .OR. & 
    305306         & ln_psi4inc     .OR. ln_pdicinc     .OR. ln_palkinc     .OR. & 
    306          & ln_pphinc      .OR. ln_po2inc ) THEN 
     307         & ln_pphinc      .OR. ln_po2inc      .OR. ln_ppo4inc ) THEN 
    307308         lk_bgcinc = .TRUE. 
    308309      ENDIF 
     
    13831384      ! Remaining bgc profile variables 
    13841385      IF ( ln_pno3inc .OR. ln_psi4inc .OR. ln_pdicinc .OR. & 
    1385          & ln_palkinc .OR. ln_po2inc ) THEN 
     1386         & ln_palkinc .OR. ln_po2inc  .OR. ln_ppo4inc ) THEN 
    13861387         CALL bgc3d_asm_inc( kt, ln_asmdin, ln_asmiau, icycper, wgtiau ) 
    13871388      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.