Changeset 13318 for branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2020-07-16T19:14:10+02:00 (4 years ago)

Author:

dford

Message:

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

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (4 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -174 +174 @@
          &                 ln_slphydiainc, ln_slphynoninc, ln_spco2inc,    &
          &                 ln_sfco2inc, ln_plchltotinc, ln_pchltotinc,     &
+         &                 ln_plchldiainc, ln_plchlnaninc, ln_plchlpicinc, &
+         &                 ln_plchldininc,                                 & 
          &                 ln_pno3inc, ln_psi4inc, ln_pdicinc, ln_palkinc, &
          &                 ln_pphinc, ln_po2inc, ln_ppo4inc,               &
@@ -259 +261 @@
          WRITE(numout,*) '      Logical switch for applying plchltot increments          ln_plchltotinc = ', ln_plchltotinc
          WRITE(numout,*) '      Logical switch for applying pchltot increments           ln_pchltotinc = ', ln_pchltotinc
+         WRITE(numout,*) '      Logical switch for applying plchldia increments          ln_plchldiainc = ', ln_plchldiainc
+         WRITE(numout,*) '      Logical switch for applying plchlnan increments          ln_plchlnaninc = ', ln_plchlnaninc
+         WRITE(numout,*) '      Logical switch for applying plchlpic increments          ln_plchlpicinc = ', ln_plchlpicinc
+         WRITE(numout,*) '      Logical switch for applying plchldin increments          ln_plchldininc = ', ln_plchldininc
          WRITE(numout,*) '      Logical switch for applying pno3 increments              ln_pno3inc = ', ln_pno3inc
          WRITE(numout,*) '      Logical switch for applying psi4 increments              ln_psi4inc = ', ln_psi4inc
@@ -310 +316 @@
          & ln_schltotinc  .OR. ln_slphytotinc .OR. ln_slphydiainc .OR. &
          & ln_slphynoninc .OR. ln_spco2inc    .OR. ln_sfco2inc    .OR. &
-         & ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_pno3inc     .OR. &
+         & ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_plchldiainc .OR. &
+         & ln_plchlnaninc .OR. ln_plchlpicinc .OR. ln_plchldininc .OR. &
+         & ln_pno3inc     .OR.                                         &
          & ln_psi4inc     .OR. ln_pdicinc     .OR. ln_palkinc     .OR. &
          & ln_pphinc      .OR. ln_po2inc      .OR. ln_ppo4inc ) THEN
@@ -1478 +1486 @@
       
       ! Then chlorophyll profiles
-      IF ( ln_plchltotinc .OR. ln_pchltotinc ) THEN
+      IF ( ln_plchltotinc .OR. ln_pchltotinc  .OR. ln_plchldiainc .OR. &
+         & ln_plchlnaninc .OR. ln_plchlpicinc .OR. ln_plchldininc ) THEN
          CALL phyto3d_asm_inc( kt, ln_asmdin, ln_asmiau, icycper, wgtiau )
       ENDIF