Changeset 13241 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90

Timestamp:

2020-07-03T14:42:49+02:00 (4 years ago)

Author:

dford

Message:

Update NEMO-FABM coupler for compatability with FABM v1.0.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 (modified) (2 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90

@@ -1 +1 @@
 MODULE par_fabm
 
+#if defined key_fabm
+#  include "fabm_version.h"
+#  if _FABM_API_VERSION_ < 1
+#    error You need FABM 1.0 or later
+#  endif
    USE fabm
+#endif
 
    IMPLICIT NONE
-
-   TYPE (type_model) :: model !FABM model instance
 
    INTEGER, PUBLIC :: jp_fabm0, jp_fabm1, jp_fabm, &
@@ -37 +41 @@
                       jp_fabm_pgrow, jp_fabm_ploss
 
+   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
+
 #if defined key_fabm
+   CLASS (type_fabm_model), POINTER :: model !FABM model instance
+
    !!---------------------------------------------------------------------
    !!   'key_fabm'                     FABM tracers
    !!---------------------------------------------------------------------
    LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag 
-   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array 
 #else
    !!---------------------------------------------------------------------