Skip to content

Commit

Permalink
Removed all instances of State_Grid%MaxTropLev
Browse files Browse the repository at this point in the history
GeosUtil/gc_grid_mod.F90
Headers/state_grid_mod.F90
- Removed State_Grid%MaxTropLev, as it was not being used anymore.
  This was raised in issue geoschem/geos-chem #284.

This was confirmed to result in zero-diffs w/r/t the prior commit.

Signed-off-by: Bob Yantosca <yantosca@seas.harvard.edu>
  • Loading branch information
yantosca committed May 16, 2023
1 parent 2718f85 commit 5720993
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 7 deletions.
5 changes: 0 additions & 5 deletions GeosUtil/gc_grid_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -121,22 +121,17 @@ SUBROUTINE Compute_Grid( Input_Opt, State_Grid, RC )

! Hardcode maximum number of levels below tropopause and stratopause
IF ( State_Grid%NZ == 47 ) THEN
State_Grid%MaxTropLev = 38
State_Grid%MaxStratLev = 44
ELSE IF ( State_Grid%NZ == 72 ) THEN
State_Grid%MaxTropLev = 40
State_Grid%MaxStratLev = 59
ELSE IF ( State_Grid%NZ == 40 ) THEN
State_Grid%NativeNZ = 40
State_Grid%MaxTropLev = 28
State_Grid%MaxStratLev = 40
ELSE IF ( State_Grid%NZ == 74 ) THEN
State_Grid%NativeNZ = 102
State_Grid%MaxTropLev = 60
State_Grid%MaxStratLev = 72
ELSE IF ( State_Grid%NZ == 102 ) THEN
State_Grid%NativeNZ = 102
State_Grid%MaxTropLev = 60
State_Grid%MaxStratLev = 91
ELSE
ErrMsg = 'State_Grid%GridRes = ' // Trim( State_Grid%GridRes)// &
Expand Down
2 changes: 0 additions & 2 deletions Headers/state_grid_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,6 @@ MODULE State_Grid_Mod
INTEGER :: NativeNZ ! NZ on the native-resolution grid
INTEGER :: MaxChemLev ! Max # levels in chemistry grid
INTEGER :: MaxStratLev ! Max # levels below strat
INTEGER :: MaxTropLev ! Max # levels below trop
INTEGER :: XMinOffset ! X offset from global grid
INTEGER :: XMaxOffset ! X offset from global grid
INTEGER :: YMinOffset ! Y offset from global grid
Expand Down Expand Up @@ -174,7 +173,6 @@ SUBROUTINE Init_State_Grid( Input_Opt, State_Grid, RC )
State_Grid%NativeNZ = 0
State_Grid%MaxChemLev = 0
State_Grid%MaxStratLev = 0
State_Grid%MaxTropLev = 0
State_Grid%XMinOffset = 0
State_Grid%XMaxOffset = 0
State_Grid%YMinOffset = 0
Expand Down

0 comments on commit 5720993

Please sign in to comment.