conc_nthreads error that wasnt there before!

NOAA-GFDL · Apr 23, 2024 · 9c52fc6 · 9c52fc6
1 parent 1880bfe
commit 9c52fc6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -432,8 +432,8 @@ program coupler_main
 
   call coupler_init(Atm, Ocean, Land, Ice, Ocean_state, Atmos_land_boundary, Atmos_ice_boundary, &
     Ocean_ice_boundary, Ice_ocean_boundary, Land_ice_atmos_boundary, Land_ice_boundary, &
-    Ice_ocean_driver_CS, Ice_bc_restart, Ocn_bc_restart, &
-    ensemble_pelist, slow_ice_ocean_pelist, id_atmos_model_init, id_land_model_init, &
+    Ice_ocean_driver_CS, Ice_bc_restart, Ocn_bc_restart, ensemble_pelist, slow_ice_ocean_pelist, &
+    conc_nthreads, id_atmos_model_init, id_land_model_init, &
     id_ice_model_init, id_ocean_model_init, id_flux_exchange_init, mainClock, termClock, &
     Time_step_cpld, Time_step_atmos, Time_atmos, Time_ocean, num_cpld_calls, num_atmos_calls, &
     Time_start, Time_end, Time_restart)

diff --git a/full/full_coupler_mod.F90 b/full/full_coupler_mod.F90
@@ -242,7 +242,7 @@ module full_coupler_mod
 !> \brief Initialize all defined exchange grids and all boundary maps
   subroutine coupler_init(Atm, Ocean, Land, Ice, Ocean_state, Atmos_land_boundary, Atmos_ice_boundary, &
     Ocean_ice_boundary, Ice_ocean_boundary, Land_ice_atmos_boundary, Land_ice_boundary,          &
-    Ice_ocean_driver_CS, Ice_bc_restart, Ocn_bc_restart, ensemble_pelist, slow_ice_ocean_pelist, &
+    Ice_ocean_driver_CS, Ice_bc_restart, Ocn_bc_restart, ensemble_pelist, slow_ice_ocean_pelist, conc_nthreads, &
     id_atmos_model_init, id_land_model_init, id_ice_model_init, id_ocean_model_init, &
     id_flux_exchange_init, mainClock, termClock, Time_step_cpld, Time_step_atmos,    &
     Time_atmos, Time_ocean, num_cpld_calls, num_atmos_calls, Time_start, Time_end, Time_restart)
@@ -260,9 +260,10 @@ subroutine coupler_init(Atm, Ocean, Land, Ice, Ocean_state, Atmos_land_boundary,
     type(ocean_ice_boundary_type),   intent(inout) :: Ocean_ice_boundary
     type(land_ice_boundary_type),    intent(inout) :: Land_ice_boundary
     type(ice_ocean_driver_type), pointer, intent(inout) :: Ice_ocean_driver_CS
-    type(land_ice_atmos_boundary_type), intent(inout)   :: Land_ice_atmos_boundary
+    type(land_ice_atmos_boundary_type),   intent(inout) :: Land_ice_atmos_boundary
     type(FmsNetcdfDomainFile_t), pointer, dimension(:), intent(inout) :: Ice_bc_restart, Ocn_bc_restart
 
+    integer, intent(inout) :: conc_nthreads
     integer, allocatable, dimension(:,:), intent(inout) :: ensemble_pelist
     integer, allocatable, dimension(:),   intent(inout) :: slow_ice_ocean_pelist
     integer, intent(inout) :: id_atmos_model_init, id_land_model_init