Changeset 9330 for branches/UKMO/CO6_KD490_amm7_oper_fabm_hem08/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

Timestamp:

2018-02-16T18:29:04+01:00 (6 years ago)

Author:

dford

Message:

Add required diagnostics.

File:

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

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

@@ -104 +104 @@
       jp_fabm_n5s  = fabm_state_index( 'N5_s' )
       jp_fabm_o2o  = fabm_state_index( 'O2_o' )
+      jp_fabm_o3c  = fabm_state_index( 'O3_c' )
+      jp_fabm_o3a  = fabm_state_index( 'O3_bioalk' )
+      jp_fabm_r4n  = fabm_state_index( 'R4_n' )
+      jp_fabm_r6n  = fabm_state_index( 'R6_n' )
+      jp_fabm_r8n  = fabm_state_index( 'R8_n' )
       !jp_fabm_netp1= fabm_diag_index( 'P1_netP' )
       !jp_fabm_netp2= fabm_diag_index( 'P2_netP' )
@@ -181 +186 @@
       END IF
       IF( lk_mpp )   CALL mppsync !Ensure field_def_fabm is ready.
+      
+      MLD_MAX(:,:) = 0.0
+      PGROW_AVG(:,:) = 0.0
+      PLOSS_AVG(:,:) = 0.0
+      PHYT_AVG(:,:) = 0.0
 
 1000 FORMAT (A)