Commit f56175f3 authored by Carsten Lemmen's avatar Carsten Lemmen
Browse files

fix: change schism cap name

parent 703e2274
......@@ -34,7 +34,7 @@ module toplevel_component
use netcdf_input_component, only : netcdf_input_SetServices => SetServices
use fabm_sediment_component, only : fabm_sediment_SetServices => SetServices
use netcdf_component, only : netcdf_SetServices => SetServices
use schism_cmi_esmf, only : schism_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_SetServices => SetServices
implicit none
......
......@@ -28,7 +28,7 @@ module toplevel_component
use mossco_state
use mossco_component
use schism_cmi_esmf, only : schism_cmi_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_cap_SetServices => SetServices
use netcdf_component, only : netcdf_SetServices => SetServices
use link_connector, only : link_connector_SetServices => SetServices
use regrid_coupler, only : regrid_coupler_SetServices => SetServices
......@@ -348,7 +348,7 @@ module toplevel_component
call ESMF_GridCompSetServices(gridCompList(1), netcdf_SetServices, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) &
call ESMF_Finalize(rc=localrc, endflag=ESMF_END_ABORT)
call ESMF_GridCompSetServices(gridCompList(2), schism_cmi_esmf_SetServices, rc=localrc)
call ESMF_GridCompSetServices(gridCompList(2), schism_esmf_cap_SetServices, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) &
call ESMF_Finalize(rc=localrc, endflag=ESMF_END_ABORT)
......
......@@ -29,7 +29,7 @@ module toplevel_component
use regrid_coupler, only : regrid_coupler_SetServices => SetServices
use netcdf_input_component, only : netcdf_input_SetServices => SetServices
use grid_component, only : grid_SetServices => SetServices
use schism_cmi_esmf, only : schism_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_SetServices => SetServices
use netcdf_component, only : netcdf_SetServices => SetServices
implicit none
......
......@@ -34,7 +34,7 @@ module toplevel_component
use fabm_sediment_component, only : fabm_sediment_SetServices => SetServices
use netcdf_component, only : netcdf_SetServices => SetServices
use soil_pelagic_connector, only : soil_pelagic_connector_SetServices => SetServices
use schism_cmi_esmf, only : schism_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_SetServices => SetServices
use pelagic_soil_connector, only : pelagic_soil_connector_SetServices => SetServices
implicit none
......
......@@ -29,7 +29,7 @@ module toplevel_component
use mossco_component
use link_connector, only : link_connector_SetServices => SetServices
use schism_cmi_esmf, only : schism_cmi_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_cap_SetServices => SetServices
use netcdf_component, only : netcdf_SetServices => SetServices
implicit none
......@@ -347,7 +347,7 @@ module toplevel_component
call ESMF_GridCompSetServices(gridCompList(1), netcdf_SetServices, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) &
call ESMF_Finalize(rc=localrc, endflag=ESMF_END_ABORT)
call ESMF_GridCompSetServices(gridCompList(2), schism_cmi_esmf_SetServices, rc=localrc)
call ESMF_GridCompSetServices(gridCompList(2), schism_esmf_cap_SetServices, rc=localrc)
if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) &
call ESMF_Finalize(rc=localrc, endflag=ESMF_END_ABORT)
......
......@@ -25,7 +25,7 @@ module toplevel_component
use mossco_state
use mossco_component
use schism_cmi_esmf, only : schism_esmf_SetServices => SetServices
use schism_esmf_cap, only : schism_esmf_SetServices => SetServices
use empty_component, only : empty_SetServices => SetServices
use link_connector, only : link_connector_SetServices => SetServices
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment