Changeset 12448 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

Timestamp:

2020-02-24T17:39:27+01:00 (4 years ago)

Author:

dford

Message:

Update to head of AMM15_v3_6_STABLE_package_collate (12437).

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90 (modified) (2 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

@@ -122 +122 @@
       jp_fabm_o3ph  = fabm_diag_index( 'O3_pH' )
       jp_fabm_o3pc  = fabm_diag_index( 'O3_pCO2' )
+      jp_fabm_xeps  = fabm_diag_index( 'light_xEPS' )
       jp_fabm_pgrow = fabm_diag_index( 'p_grow_sum_result' )
       jp_fabm_ploss = fabm_diag_index( 'p_loss_sum_result' )
-      
-      MLD_MAX(:,:)   = 0.0
-      PGROW_AVG(:,:) = 0.0
-      PLOSS_AVG(:,:) = 0.0
-      PHYT_AVG(:,:)  = 0.0
 
       IF (lwp) THEN
@@ -436 +432 @@
          ENDDO
       ENDIF
+      
+      ! Initialise variables required for Hemmings et al. (2008)
+      ! nitrogen balancing for chlorophyll data assimilation
+      MLD_MAX(:,:)   = 0.0
+      PGROW_AVG(:,:) = 0.0
+      PLOSS_AVG(:,:) = 0.0
+      PHYT_AVG(:,:)  = 0.0
 
    END SUBROUTINE trc_ini_fabm