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

[WIP] Added support for importing mass flux from ExtData #172

Closed
wants to merge 10 commits into from
Closed

[WIP] Added support for importing mass flux from ExtData #172

Show file tree
Hide file tree
Changes from 2 commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
c116c9f
Changed AdvCoreGridComp to use total VMR rather than dry VMR (convert…
LiamBindle Oct 18, 2021
bc42091
Added "UpwardsMassFlux" diagnostic (exported from GCHPctmEnv).
LiamBindle Oct 15, 2021
842a099
Fixed bug in PR#172: Moving forward pressures for advection are total…
LiamBindle Nov 23, 2021
9120b7d
Refactored GCHPctmEnv_GridComp. Eliminated old unused code. Added _IM…
LiamBindle Nov 24, 2021
9f0ff9b
Reformatted GCHPctmEnv_GridComp. Updated to more modern style (modern…
LiamBindle Nov 24, 2021
ad31357
More refactoring to GCHPctmEnv_GridComp. Split Run into smaller subro…
LiamBindle Nov 24, 2021
e6fe8b1
Fixing compiler errors from GCHPctmEnv_GridComp refactor
LiamBindle Nov 24, 2021
eda0ae0
Removed more unused imports/exports in GCHPctmEnv_GridComp
LiamBindle Nov 24, 2021
00c370e
added debug log messages to refactored GCHPctmEnv_GridComp
LiamBindle Nov 24, 2021
f97bac0
Merge pull request #181 from geoschem/feature/gchp-plumbing-refactor
LiamBindle Nov 24, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/GCHP_GridComp/FVdycoreCubed_GridComp
Open in desktop
Submodule FVdycoreCubed_GridComp updated 1 files
+68 −26 AdvCore_GridCompMod.F90
43 changes: 25 additions & 18 deletions src/GCHP_GridComp/GCHP_GridCompMod.F90
View file
Open in desktop
Expand Up @@ -30,6 +30,7 @@ module GCHP_GridCompMod

use ESMF
use MAPL_Mod
use pFlogger, only: logging, Logger
use CHEM_GridCompMod, only : AtmosChemSetServices => SetServices
use AdvCore_GridCompMod, only : AtmosAdvSetServices => SetServices
use GCHPctmEnv_GridComp, only : EctmSetServices => SetServices
Expand All @@ -55,6 +56,8 @@ module GCHP_GridCompMod
!EOP

integer :: ADV, CHEM, ECTM, MemDebugLevel
class(Logger), pointer :: lgr => null()


contains

Expand Down Expand Up @@ -107,6 +110,8 @@ subroutine SetServices ( GC, RC )
_VERIFY(STATUS)
Iam = trim(COMP_NAME) // "::" // Iam

lgr => logging%get_logger('GCHP')

! Register services for this component
! ------------------------------------

Expand Down Expand Up @@ -198,32 +203,34 @@ subroutine SetServices ( GC, RC )
SRC_ID = ADV, &
__RC__ )

CALL MAPL_AddConnectivity ( GC, &
SHORT_NAME = (/'AIRDENS'/), &
DST_ID = CHEM, &
SRC_ID = ECTM, &
__RC__ )

CALL MAPL_AddConnectivity ( GC, &
SRC_NAME = (/ 'CXr8 ', &
'CYr8 ', &
'MFXr8 ', &
'MFYr8 ', &
'PLE0r8 ', &
SRC_NAME = (/ 'PLE0r8 ', &
'PLE1r8 ', &
'DryPLE0r8', &
'DryPLE1r8' /), &
DST_NAME = (/ 'CX ', &
'CY ', &
'MFX ', &
'MFY ', &
'PLE0 ', &
'DryPLE1r8' , &
'SPHU0r8 ' /), &
DST_NAME = (/ 'PLE0 ', &
'PLE1 ', &
'DryPLE0', &
'DryPLE1' /), &
'DryPLE1', &
'SPHU0 ' /), &
DST_ID = ADV, &
SRC_ID = ECTM, &
__RC__ )
CALL MAPL_AddConnectivity ( GC, &
SHORT_NAME = (/'AIRDENS'/), &
DST_ID = CHEM, &
SRC_ID = ECTM, &
__RC__ )

CALL MAPL_AddConnectivity ( GC, &
SHORT_NAME = (/ 'CX ', &
'CY ', &
'MFX', &
'MFY' /), &
DST_ID = ADV, &
SRC_ID = ECTM, &
__RC__ )

CALL MAPL_AddConnectivity ( GC, &
SHORT_NAME = (/ 'AREA ', &
Expand Down