Changeset 10156 for branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2018-09-25T13:10:14+02:00 (6 years ago)

Author:

dford

Message:

Apply patch fabm_patch_e3284ca_889163b.diff from Jim Clark.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (3 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -28 +28 @@
    USE iom
    USE daymod
+   ! +++>>> FABM
+   USE trcrst_fabm
+   ! FABM <<<+++
    IMPLICIT NONE
    PRIVATE
@@ -117 +120 @@
          CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) )
       END DO
+      ! +++>>> FABM
+
+      IF (lk_fabm) CALL trc_rst_read_fabm
+      ! FABM <<<+++
       !
    END SUBROUTINE trc_rst_read
@@ -142 +149 @@
          CALL iom_rstput( kt, nitrst, numrtw, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) )
       END DO
+      ! +++>>> FABM
+      IF (lk_fabm) CALL trc_rst_wri_fabm(kt)
+      ! FABM <<<+++
       !
       IF( kt == nitrst ) THEN