Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mossco
mossco-code
Commits
f56175f3
Commit
f56175f3
authored
Mar 11, 2022
by
Carsten Lemmen
Browse files
fix: change schism cap name
parent
703e2274
Changes
7
Expand all
Hide whitespace changes
Inline
Side-by-side
examples/esmf/schism/toplevel_component.ecosmo--omexdia.F90
View file @
f56175f3
...
...
@@ -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
...
...
examples/esmf/schism/toplevel_component.schism--aggregation.F90
0 → 100644
View file @
f56175f3
This diff is collapsed.
Click to expand it.
examples/esmf/schism/toplevel_component.schism--grid.F90
View file @
f56175f3
...
...
@@ -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
)
...
...
examples/esmf/schism/toplevel_component.schism--output.F90
View file @
f56175f3
...
...
@@ -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
...
...
examples/esmf/schism/toplevel_component.schism--sediment.F90
View file @
f56175f3
...
...
@@ -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
...
...
examples/esmf/schism/toplevel_component.schism.F90
View file @
f56175f3
...
...
@@ -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
)
...
...
examples/esmf/schism/toplevel_component.schism_empty.F90
View file @
f56175f3
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment