Ignore:
Timestamp:
2020-07-03T14:42:49+02:00 (3 months ago)
Author:
dford
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90

    r11545 r13241  
    11MODULE par_fabm 
    22 
     3#if defined key_fabm 
     4#  include "fabm_version.h" 
     5#  if _FABM_API_VERSION_ < 1 
     6#    error You need FABM 1.0 or later 
     7#  endif 
    38   USE fabm 
     9#endif 
    410 
    511   IMPLICIT NONE 
    6  
    7    TYPE (type_model) :: model !FABM model instance 
    812 
    913   INTEGER, PUBLIC :: jp_fabm0, jp_fabm1, jp_fabm, & 
     
    3741                      jp_fabm_pgrow, jp_fabm_ploss 
    3842 
     43   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array 
     44 
    3945#if defined key_fabm 
     46   CLASS (type_fabm_model), POINTER :: model !FABM model instance 
     47 
    4048   !!--------------------------------------------------------------------- 
    4149   !!   'key_fabm'                     FABM tracers 
    4250   !!--------------------------------------------------------------------- 
    4351   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag  
    44    LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array  
    4552#else 
    4653   !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.