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

Replace GSDCHEM with GOCART #102

Merged
merged 17 commits into from
Jul 1, 2021
Merged

Replace GSDCHEM with GOCART #102

Changes from all commits
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
f5af369
Use proper LD variable when linking NEMS application.
rmontuoro Oct 28, 2019
d07df6c
Merge remote-tracking branch 'develop' (NOAA-EMC) into develop
rmontuoro Apr 20, 2020
ac1de46
Additional change to sync up with NOAA-EMC 'develop' branch.
rmontuoro Apr 21, 2020
13999c5
Merge NOAA-EMC branch 'develop' into develop.
rmontuoro Apr 24, 2020
0ec269a
Merge NOAA-EMC branch 'emc/develop' into develop.
rmontuoro Nov 10, 2020
0c24edd
Add lake and ocean fraction entries to the NUOPC Field Dictionary.
rmontuoro Nov 10, 2020
f244459
Add entries for instantaneous 3D non-convective liquid and
rmontuoro Jan 14, 2021
1848983
Add instantaneous normalized soil wetness entry to
rmontuoro Jan 14, 2021
b3c9499
Add instantaneous cloud fraction on model levels
rmontuoro Jan 31, 2021
0d10f11
Merge NOAA-EMC branch 'develop' into feature/ufs-gocart-integration
rmontuoro Apr 14, 2021
9c7906f
Merge NOAA-EMC branch 'develop' into develop
rmontuoro Apr 25, 2021
a7efc8a
Merge branch 'develop' into feature/ufs-gocart-integration
rmontuoro Apr 25, 2021
0f2eb7b
Merge NOAA-EMC branch 'develop' into develop
rmontuoro Apr 28, 2021
465cf0e
Merge branch 'develop' into feature/ufs-gocart-integration
rmontuoro Apr 28, 2021
0f081df
Merge NOAA-EMC branch 'develop' into develop
rmontuoro May 11, 2021
9a159c2
Merge branch 'develop' into feature/ufs-gocart-integration
rmontuoro May 11, 2021
db79b93
Replace GSDCHEM with GOCART.
rmontuoro May 21, 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
32 changes: 16 additions & 16 deletions src/module_EARTH_GRID_COMP.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -84,9 +84,9 @@ MODULE module_EARTH_GRID_COMP
#ifdef FRONT_IPE
use FRONT_IPE, only: IPE_SS => SetServices
#endif
! - Handle build time GSDCHEM options:
#ifdef FRONT_GSDCHEM
use FRONT_GSDCHEM, only: GSDCHEM_SS => SetServices
! - Handle build time GOCART options:
#ifdef FRONT_GOCART
use FRONT_GOCART, only: GOCART_SS => SetServices
#endif
! - Mediator
#ifdef FRONT_CMEPS
Expand Down Expand Up @@ -262,7 +262,7 @@ subroutine SetModelServices(driver, rc)
! get petCount and config
call ESMF_GridCompGet(driver, petCount=petCount, config=config, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

! read and ingest free format driver attributes
attrFF = NUOPC_FreeFormatCreate(config, label="EARTH_attributes::", &
relaxedflag=.true., rc=rc)
Expand All @@ -277,7 +277,7 @@ subroutine SetModelServices(driver, rc)
value=value, defaultValue="false", &
convention="NUOPC", purpose="Instance", rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

if (trim(value)=="true") then
call ESMF_LogWrite( &
"===>===>===>===> Begin Dumping Field Dictionary <===<===<===<===",&
Expand All @@ -295,7 +295,7 @@ subroutine SetModelServices(driver, rc)
componentCount = ESMF_ConfigGetLen(config, &
label="EARTH_component_list:", rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

allocate(compLabels(componentCount), stat=stat)
if (ESMF_LogFoundAllocError(statusToCheck=stat, &
msg="Allocation of compLabels failed.", &
Expand Down Expand Up @@ -420,9 +420,9 @@ subroutine SetModelServices(driver, rc)
found_comp = .true.
end if
#endif
#ifdef FRONT_GSDCHEM
if (trim(model) == "gsdchem") then
call NUOPC_DriverAddComp(driver, trim(prefix), GSDCHEM_SS, &
#ifdef FRONT_GOCART
if (trim(model) == "gocart") then
call NUOPC_DriverAddComp(driver, trim(prefix), GOCART_SS, &
petList=petList, comp=comp, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
found_comp = .true.
Expand Down Expand Up @@ -496,15 +496,15 @@ subroutine SetRunSequence(driver, rc)
call NUOPC_DriverIngestRunSequence(driver, runSeqFF, &
autoAddConnectors=.true., rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

! Diagnostic output
if(verbose_diagnostics()) then
call NUOPC_DriverPrint(driver, orderflag=.true., rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
endif

end subroutine

!-----------------------------------------------------------------------------

recursive subroutine ModifyCplLists(driver, importState, exportState, clock, &
Expand All @@ -521,17 +521,17 @@ recursive subroutine ModifyCplLists(driver, importState, exportState, clock, &
character(len=160) :: value

rc = ESMF_SUCCESS

call ESMF_LogWrite("Driver is in ModifyCplLists()", ESMF_LOGMSG_INFO)

nullify(connectorList)
call NUOPC_DriverGetComp(driver, compList=connectorList, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return

write (msg,*) "Found ", size(connectorList), " Connectors."// &
" Modifying CplList Attribute...."
call ESMF_LogWrite(trim(msg), ESMF_LOGMSG_INFO)

do i=1, size(connectorList)
! query Connector i for its name
call ESMF_CplCompGet(connectorList(i), name=name, rc=rc)
Expand Down