Skip to content

Add IC_BLevels parameter to CX and Varobs writers #173

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

Merged
Chris Thomas (ctgh) merged 2 commits into from
Jun 28, 2023
Merged

Add IC_BLevels parameter to CX and Varobs writers #173

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
f09d58f
IC_BLevels
ctgh Jun 27, 2023
6d7c019
specify number of boundary levels
ctgh Jun 27, 2023
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
2 changes: 2 additions & 0 deletions src/opsinputs/CxWriterParameters.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -101,6 +101,8 @@ class CxWriterParameters : public oops::ObsFilterParametersBase {
oops::Parameter<int> IC_YLen{"IC_YLen", 0, this};
/// Number of levels (PLEVELS).
oops::Parameter<int> IC_PLevels{"IC_PLevels", 0, this};
/// Number of boundary layer levels (BLEVELS).
oops::Parameter<int> IC_BLevels{"IC_BLevels", 0, this};
/// Number of wet levels (QLEVELS).
oops::Parameter<int> IC_WetLevels{"IC_WetLevels", 0, this};
/// First rho level at which height is constant.
Expand Down
2 changes: 2 additions & 0 deletions src/opsinputs/VarObsWriterParameters.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -137,6 +137,8 @@ class VarObsWriterParameters : public oops::ObsFilterParametersBase {
oops::Parameter<int> IC_YLen{"IC_YLen", 0, this};
/// Number of levels (PLEVELS).
oops::Parameter<int> IC_PLevels{"IC_PLevels", 0, this};
/// Number of boundary layer levels (BLEVELS).
oops::Parameter<int> IC_BLevels{"IC_BLevels", 0, this};
/// Number of wet levels (QLEVELS).
oops::Parameter<int> IC_WetLevels{"IC_WetLevels", 0, this};
/// True if ship winds have been adjusted to 10m.
Expand Down
5 changes: 5 additions & 0 deletions src/opsinputs/opsinputs_cxwriter_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -151,6 +151,7 @@ module opsinputs_cxwriter_mod
integer(integer64) :: IC_XLen
integer(integer64) :: IC_YLen
integer(integer64) :: IC_PLevels
integer(integer64) :: IC_BLevels
integer(integer64) :: IC_WetLevels
integer(integer64) :: IC_FirstConstantRhoLevel

Expand Down Expand Up @@ -363,6 +364,9 @@ function opsinputs_cxwriter_create(self, f_conf, geovars)
call f_conf % get_or_die("IC_PLevels", IntValue)
self % IC_PLevels = IntValue

call f_conf % get_or_die("IC_BLevels", IntValue)
self % IC_BLevels = IntValue

call f_conf % get_or_die("IC_WetLevels", IntValue)
self % IC_WetLevels = IntValue

Expand Down Expand Up @@ -1416,6 +1420,7 @@ subroutine opsinputs_cxwriter_populateumheader(self, UMHeader)
UmHeader % IntC(IC_XLen) = self % IC_XLen
UmHeader % IntC(IC_YLen) = self % IC_Ylen
UmHeader % IntC(IC_PLevels) = self % IC_PLevels
UmHeader % IntC(IC_BLevels) = self % IC_BLevels
UmHeader % IntC(IC_WetLevels) = self % IC_WetLevels
UmHeader % IntC(IC_FirstConstantRhoLevel) = self % IC_FirstConstantRhoLevel

Expand Down
5 changes: 5 additions & 0 deletions src/opsinputs/opsinputs_varobswriter_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -173,6 +173,7 @@ module opsinputs_varobswriter_mod
integer(integer64) :: IC_XLen
integer(integer64) :: IC_YLen
integer(integer64) :: IC_PLevels
integer(integer64) :: IC_BLevels
integer(integer64) :: IC_WetLevels

real(real64) :: RC_LongSpacing
Expand Down Expand Up @@ -462,6 +463,9 @@ function opsinputs_varobswriter_create(self, f_conf, comm_is_valid, comm, channe
call f_conf % get_or_die("IC_PLevels", IntValue)
self % IC_PLevels = IntValue

call f_conf % get_or_die("IC_BLevels", IntValue)
self % IC_BLevels = IntValue

call f_conf % get_or_die("IC_WetLevels", IntValue)
self % IC_WetLevels = IntValue

Expand Down Expand Up @@ -1531,6 +1535,7 @@ subroutine opsinputs_varobswriter_populatecxheader(self, CxHeader)
CxHeader % IntC(IC_XLen) = self % IC_XLen
CxHeader % IntC(IC_YLen) = self % IC_Ylen
CxHeader % IntC(IC_PLevels) = self % IC_PLevels
CxHeader % IntC(IC_BLevels) = self % IC_BLevels
CxHeader % IntC(IC_WetLevels) = self % IC_WetLevels

CxHeader % RealC(RC_LongSpacing) = self % RC_LongSpacing
Expand Down
Loading