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

Add explicit sub-canopy 3-layers effect in photolysis and gas-phase (… #26

Open
wants to merge 4 commits into
base: feature/aqm_canopy
Choose a base branch
from
Open

Add explicit sub-canopy 3-layers effect in photolysis and gas-phase (… #26

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
0285a73
Add explicit 3-sub-layers canopy effect in photolysis and gas-phase (…
iri01 Nov 25, 2024
410e2b8
Add explicit canopy effect on 3 sub layers in CB6 gas-phase mechanism…
iri01 Nov 26, 2024
37af284
Add canopy modifications to the CB6 gas-phase routines to local codes.
iri01 Nov 26, 2024
1254ebb
Add 3-layer sub-canopy effect to Rosenbrock solver
iri01 Nov 26, 2024
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
5 changes: 5 additions & 0 deletions aqm_files.cmake
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -244,4 +244,9 @@ list(APPEND aqm_CCTM_files
${localCCTM}/AERO_PHOTDATA.F
${localCCTM}/phot.F
${localCCTM}/centralized_io_util_module.F
#IVAI:
${localCCTM}/can_levs_defn.F90
${localCCTM}/can_mask.F90
${localCCTM}/can_trans_mod.F90
#IVAI
)
16 changes: 15 additions & 1 deletion src/model/src/ASX_DATA_MOD.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -170,6 +170,9 @@ Module ASX_DATA_MOD
Real, Allocatable :: RMSFX4 ( :,: ) ! inverse map scale factor ** 4
Real, Allocatable :: LON ( :,: ) ! longitude
Real, Allocatable :: LAT ( :,: ) ! latitude
!IVAI
Real, Allocatable :: AREA ( :,: ) ! grid cell area
!IVAI
Real, Allocatable :: LWMASK ( :,: ) ! land water mask
Real, Allocatable :: OCEAN ( :,: ) ! Open ocean
Real, Allocatable :: SZONE ( :,: ) ! Surf zone
Expand Down Expand Up @@ -544,6 +547,9 @@ Subroutine INIT_MET ( JDATE, JTIME, MOSAIC, ABFLUX, HGBIDI )
& Grid_Data%RMSFX4 ( NCOLS,NROWS ),
& Grid_Data%LON ( NCOLS,NROWS ),
& Grid_Data%LAT ( NCOLS,NROWS ),
!IVAI
& Grid_Data%AREA ( NCOLS,NROWS ),
!IVAI
& Grid_Data%LWMASK ( NCOLS,NROWS ),
& Grid_Data%OCEAN ( NCOLS,NROWS ),
& Grid_Data%SZONE ( NCOLS,NROWS ),
Expand Down Expand Up @@ -854,7 +860,15 @@ Subroutine INIT_MET ( JDATE, JTIME, MOSAIC, ABFLUX, HGBIDI )
XMSG = MSG1 // TRIM( VNAME ) // ' from ' // GRID_CRO_2D
Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 )
End If

!IVAI
VNAME = 'AREA'
If ( .Not. INTERPX( GRID_CRO_2D, VNAME, PNAME,
& STRTCOLGC2,ENDCOLGC2, STRTROWGC2,ENDROWGC2, 1,1,
& JDATE, JTIME, Grid_Data%AREA ) ) Then
XMSG = MSG1 // TRIM( VNAME ) // ' from ' // GRID_CRO_2D
Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 )
End If
!IVAI
VNAME = 'LWMASK'
If ( .Not. INTERPX( GRID_CRO_2D, VNAME, PNAME,
& STRTCOLGC2,ENDCOLGC2, STRTROWGC2,ENDROWGC2, 1,1,
Expand Down
Loading