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
fee971ae
Commit
fee971ae
authored
Nov 29, 2020
by
Carsten Lemmen
Browse files
Resolved merge conflicts
parent
f1af3641
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/utilities/mossco_gridspec.F90
View file @
fee971ae
...
...
@@ -39,7 +39,14 @@ module mossco_gridspec
#define ESMF_METHOD "MOSSCO_GridWriteGridSpec"
subroutine
MOSSCO_GridWriteGridSpec
(
grid
,
name
,
rc
)
use
iso_fortran_env
#ifndef NO_ISO_FORTRAN_ENV
use
,
intrinsic
::
ISO_FORTRAN_ENV
#if ESMF_COMM == ESMF_INTELMPI
use
ifport
,
only
:
getgid
,
getpid
,
getuid
#endif
#endif
implicit
none
type
(
ESMF_Grid
),
intent
(
in
)
::
grid
...
...
src/utilities/mossco_state.F90
View file @
fee971ae
...
...
@@ -1909,6 +1909,9 @@ contains
#ifndef NO_ISO_FORTRAN_ENV
use
,
intrinsic
::
ISO_FORTRAN_ENV
#if ESMF_COMM == ESMF_INTELMPI
use
ifport
,
only
:
getgid
,
getpid
,
getuid
#endif
#endif
type
(
ESMF_State
),
intent
(
inout
)
::
state
...
...
@@ -1916,9 +1919,10 @@ contains
logical
,
intent
(
in
),
optional
::
kwe
!keyword-enforcer
integer
(
ESMF_KIND_I4
),
intent
(
out
),
optional
::
rc
integer
(
ESMF_KIND_I4
)
::
rc_
,
localrc
logical
::
isPresent
character
(
len
=
ESMF_MAXPATHLEN
)
::
string
integer
(
ESMF_KIND_I4
)
::
rc_
,
localrc
logical
::
isPresent
character
(
len
=
ESMF_MAXPATHLEN
)
::
string
character
(
len
=
:),
allocatable
::
allocatableString
character
(
len
=
ESMF_MAXSTR
)
::
message
rc_
=
ESMF_SUCCESS
...
...
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