Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Add data ocean support and add support for reading modelio:: attribute group ... #106

Merged
merged 17 commits into from
Jul 20, 2021
Merged

Add data ocean support and add support for reading modelio:: attribute group ... #106

Changes from all commits
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
363deda
Update component_HYCOM.mk to support NAVY HYCOM NUOPC cap.
danrosen25 Dec 6, 2019
750ee64
Merge develop branch '82138ff' of https://github.com/NOAA-EMC/NEMS in…
danrosen25 May 8, 2020
5992a16
Pointing machine architecture and parallelization strategy for HYCOM/…
BijuThomas-NOAA Jun 2, 2020
8f64271
Merge remote-tracking branch 'remotes/origin/support/HAFS' into featu…
BinLiu-NOAA Jun 11, 2020
831e947
Merge remote-tracking branch 'remotes/origin/support/HAFS' into featu…
BinLiu-NOAA Jul 4, 2020
d560108
Merge remote-tracking branch 'upstream/develop' into support/HAFS
BinLiu-NOAA Nov 25, 2020
45d40ea
Merge remote-tracking branch 'remotes/upstream/develop' into support/…
BinLiu-NOAA Dec 12, 2020
5a70bab
Merge remote-tracking branch 'remotes/upstream/develop' into support/…
BinLiu-NOAA Jan 21, 2021
a8a9c66
Feature/hafs couplehycom (#2)
BinLiu-NOAA Jan 22, 2021
4dbc017
Merge branch 'develop' into support/HAFS
BinLiu-NOAA Feb 1, 2021
8985160
Merge remote-tracking branch 'upstream/develop' into support/HAFS
BinLiu-NOAA Apr 16, 2021
91710d8
Merge remote-tracking branch 'remotes/upstream/develop' into support/…
BinLiu-NOAA May 11, 2021
279746a
ad capability to handle modelio attribute in nems.configure
Jun 10, 2021
5e6ad3a
add cdeps data ocean support
Jun 11, 2021
145033d
fix undefined variable issue
Jun 13, 2021
7b0dd75
Merge remote-tracking branch 'remotes/upstream/develop' into feature/…
BinLiu-NOAA Jul 16, 2021
7ec3409
Merge remote-tracking branch 'remotes/upstream/develop' into feature/…
BinLiu-NOAA Jul 16, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
29 changes: 27 additions & 2 deletions src/module_EARTH_GRID_COMP.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -58,6 +58,9 @@ MODULE module_EARTH_GRID_COMP
#endif
#ifdef FRONT_MOM6
use FRONT_MOM6, only: MOM6_SS => SetServices
#endif
#ifdef FRONT_CDEPS_DOCN
use FRONT_CDEPS_DOCN, only: DOCN_SS => SetServices
#endif
! - Handle build time ICE options:
#ifdef FRONT_CICE6
Expand Down Expand Up @@ -236,12 +239,12 @@ subroutine SetModelServices(driver, rc)
integer :: petListBounds(2)
integer :: componentCount
type(NUOPC_FreeFormat) :: attrFF, fdFF
logical :: found_comp
logical :: found_comp
logical :: isPresent
#ifdef CMEPS
logical :: read_restart
character(ESMF_MAXSTR) :: cvalue
character(len=5) :: inst_suffix
logical :: isPresent
#endif
rc = ESMF_SUCCESS

Expand Down Expand Up @@ -370,6 +373,14 @@ subroutine SetModelServices(driver, rc)
found_comp = .true.
end if
#endif
#ifdef FRONT_CDEPS_DOCN
if (trim(model) == "docn") then
call NUOPC_DriverAddComp(driver, trim(prefix), DOCN_SS, &
petList=petList, comp=comp, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
found_comp = .true.
end if
#endif
#ifdef FRONT_CICE6
if (trim(model) == "cice6") then
call NUOPC_DriverAddComp(driver, trim(prefix), CICE6_SS, &
Expand Down Expand Up @@ -442,6 +453,20 @@ subroutine SetModelServices(driver, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
call NUOPC_FreeFormatDestroy(attrFF, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

call ESMF_ConfigFindNextLabel(config, &
label=trim(prefix)//"_modelio::", isPresent=isPresent, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
if (isPresent) then
attrFF = NUOPC_FreeFormatCreate(config, &
label=trim(prefix)//"_modelio::", relaxedflag=.true., rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
call NUOPC_CompAttributeIngest(comp, attrFF, addFlag=.true., rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
call NUOPC_FreeFormatDestroy(attrFF, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
endif

! clean-up
deallocate(petList)

Expand Down