use fms

NOAA-GFDL · Mar 13, 2024 · 273a7bf · 273a7bf
1 parent 9d71ff5
commit 273a7bf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -332,6 +332,7 @@
 program coupler_main
 
   use omp_lib
+  use FMS
   use full_coupler_mod
 
   call fms_mpp_init()

diff --git a/full/full_coupler_mod.F90 b/full/full_coupler_mod.F90
@@ -90,7 +90,7 @@ module full_coupler_mod
   implicit none
   private
 
-  public :: FMS, fmsconstants_init
+  public :: fmsconstants_init
   public :: update_atmos_model_dynamics, update_atmos_model_down, update_atmos_model_up
   public :: update_atmos_model_radiation, update_atmos_model_state
   public :: update_land_model_fast, update_land_model_slow