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

Code change for RRFS application #4

Closed
wants to merge 14 commits into from
Closed

Code change for RRFS application #4

Changes from all commits
Commits
Show all changes
14 commits
Select commit Hold shift + click to select a range
0c2f4e3
Add more options in the input for reading ice mxing ratio,
hu5970 Feb 20, 2021
b87dec5
Merge pull request #1 from hu5970/RRFS_dev
Feb 24, 2021
d3be1cc
chgres_cube fix for soil type == 0 at land ice points when using soil…
LarissaReames-NOAA Jan 25, 2021
15e1d7f
Merge pull request #2 from JeffBeck-NOAA/chgres_cube_fix
JeffBeck-NOAA Mar 4, 2021
ed11892
Change grib2 string to FV3GFS NEMSIO for ICs and LBCs.
JeffBeck-NOAA Apr 2, 2021
41a2ac8
Merge pull request #3 from JeffBeck-NOAA/feature/fix_string
Apr 2, 2021
6c5b0fe
Code changes for RRFS:
hu5970 Jun 15, 2021
d57f110
Merge branch 'develop' into feature/rrfs
hu5970 Jun 22, 2021
60bb04b
Merge remote-tracking branch 'origin/develop' into RRFS_dev_debug
hu5970 Jun 26, 2021
586a5ab
Merge pull request #1 from hu5970/RRFS_dev_debug
hu5970 Jun 29, 2021
d96c7db
Merge pull request #2 from hu5970/feature/rrfs
hu5970 Jun 29, 2021
da484f9
Manually merge feature/rrfs on top of the RRFS_dev_debug to keep the …
hu5970 Jun 29, 2021
fae3ae8
Merge pull request #3 from hu5970/sync_feature_rrfs
hu5970 Jun 29, 2021
973b2e5
revert the following change because the current code base does not ne…
hu5970 Jun 29, 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
24 changes: 22 additions & 2 deletions sorc/chgres_cube.fd/input_data.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2607,7 +2607,7 @@ subroutine read_input_atm_grib2_file(localpet)
if (localpet == 0) print*,"- FILE CONTAINS SPFH."
endif

if (localpet == 0) print*,"- FIND ICMR, SCLIWC, OR CICE IN FILE"
if (localpet == 0) print*,"- FIND ICMR, SCLIWC, CICE, OR CIMIXR IN FILE"
iret = grb2_inq(the_file,inv_file,trac_names_grib_1(4),trac_names_grib_2(4),lvl_str_space)

if (iret <= 0) then
Expand All @@ -2619,7 +2619,13 @@ subroutine read_input_atm_grib2_file(localpet)
if (iret <= 0) then
iret = grb2_inq(the_file,inv_file, ':var0_2','_6_0:',lvl_str_space)
if (iret <= 0 ) then
call handle_grib_error(vname, slevs(1),method,value,varnum,rc,var=dummy2d)
iret = grb2_inq(the_file,inv_file, ':var0_2','_1_82:',lvl_str_space)
if (iret <= 0 ) then
call handle_grib_error(vname, slevs(1),method,value,varnum,rc,var=dummy2d)
else
trac_names_grib_2(4) = '_1:82:'
if (localpet ==0) print*,"- FILE CONTAINS CIMIXR."
endif
else
trac_names_grib_2(4) = '_6_0'
if (localpet == 0) print*,"- FILE CONTAINS CICE."
Expand Down Expand Up @@ -5037,6 +5043,10 @@ subroutine read_input_sfc_grib2_file(localpet)
vname=":VEG:"
rc= grb2_inq(the_file, inv_file, vname,slev,'n=1106:',data2=dummy2d)

if (rc <= 0) then
rc= grb2_inq(the_file, inv_file, ':var2_0_231:',slev,data2=dummy2d)
endif

if (rc <= 0) then
rc= grb2_inq(the_file, inv_file, vname,slev,'n=1102:',data2=dummy2d)
if (rc <= 0) then
Expand Down Expand Up @@ -5064,6 +5074,11 @@ subroutine read_input_sfc_grib2_file(localpet)

vname=":VEG:"
rc= grb2_inq(the_file, inv_file, vname,slev,'n=1107:',data2=dummy2d)

if (rc <=0) then
rc= grb2_inq(the_file, inv_file, ':var2_0_232:',slev,data2=dummy2d)
endif

if (rc <=0) then
rc= grb2_inq(the_file, inv_file, vname,slev,'n=1103:',data2=dummy2d)
if (rc <=0) then
Expand Down Expand Up @@ -5092,6 +5107,11 @@ subroutine read_input_sfc_grib2_file(localpet)
loc=varnum)
vname=":var0_7_198:"
rc= grb2_inq(the_file, inv_file, vname,slev,':n=1108:',data2=dummy2d)

if (rc <=0) then
rc= grb2_inq(the_file, inv_file, ':LAI:',':surface:', data2=dummy2d)
endif

if (rc <=0) then
rc= grb2_inq(the_file, inv_file, vname,slev,':n=1104:',data2=dummy2d)
if (rc <=0) then
Expand Down