Changeset 10667 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90

Timestamp:

2019-02-13T11:46:09+01:00 (5 years ago)

Author:

dford

Message:

Reference FABM indices to jp_fabm_m1.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90

@@ -188 +188 @@
             DO jk = 1, jkmax
                PHYT_AVG(ji,jj) = PHYT_AVG(ji,jj) + &
-                  &              trn(ji,jj,jk,jp_fabm_p1n) + &
-                  &              trn(ji,jj,jk,jp_fabm_p2n) + &
-                  &              trn(ji,jj,jk,jp_fabm_p3n) + &
-                  &              trn(ji,jj,jk,jp_fabm_p4n)
+                  &              trn(ji,jj,jk,jp_fabm_m1+jp_fabm_p1n) + &
+                  &              trn(ji,jj,jk,jp_fabm_m1+jp_fabm_p2n) + &
+                  &              trn(ji,jj,jk,jp_fabm_m1+jp_fabm_p3n) + &
+                  &              trn(ji,jj,jk,jp_fabm_m1+jp_fabm_p4n)
                IF ( pgrow_3d(ji,jj,jk) .GT. 0.0 ) THEN
                   PGROW_AVG(ji,jj) = PGROW_AVG(ji,jj) + &