Changeset 13576 for branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

Timestamp:

2020-10-09T12:35:11+02:00 (4 years ago)

Author:

dford

Message:

Update NEMO-FABM coupler for FABM v1, and introduce two-way NEMO-ERSEM coupling options. See ​https://code.metoffice.gov.uk/trac/utils/ticket/366.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90 (modified) (2 diffs)

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

@@ -1122 +1122 @@
 #elif defined key_fabm
       totalk_tavg(:,:,:)  = totalk_tavg(:,:,:) + &
-         &                  fabm_get_interior_diagnostic_data(model, jp_fabm_o3ta) / pnumtimes_tavg
+         &                  model%get_interior_diagnostic_data(jp_fabm_o3ta) / pnumtimes_tavg
       totalk_tavg(:,:,:)  = totalk_tavg(:,:,:) * tmask(:,:,:)
 #endif
@@ -1167 +1167 @@
          cchl_p_tavg(:,:,:)     = cchl_p(:,:,:)
 #elif defined key_fabm
-         totalk_tavg(:,:,:)  = fabm_get_interior_diagnostic_data(model, jp_fabm_o3ta)
+         totalk_tavg(:,:,:)  = model%get_interior_diagnostic_data(jp_fabm_o3ta)
          totalk_tavg(:,:,:)  = totalk_tavg(:,:,:) * tmask(:,:,:)
 #endif