-
Notifications
You must be signed in to change notification settings - Fork 165
Bring in new atmospheric_physics tag and use CCPPized shortwave interfaces #1372
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.
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
base: cam_development
Are you sure you want to change the base?
Conversation
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Thanks for bringing these changes into CAM @peverwhee! I just had a few small requests.
real(r8) :: cld_tau(nswbands,state%ncol,pver) ! Cloud absorption optics depth (sw) | ||
real(r8) :: snow_tau(nswbands,state%ncol,pver) ! Snow absorption optics depth (sw) | ||
real(r8) :: grau_tau(nswbands,state%ncol,pver) ! Graupel absorption optics depth (sw) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
I might change the comments here slightly:
real(r8) :: cld_tau(nswbands,state%ncol,pver) ! Cloud absorption optics depth (sw) | |
real(r8) :: snow_tau(nswbands,state%ncol,pver) ! Snow absorption optics depth (sw) | |
real(r8) :: grau_tau(nswbands,state%ncol,pver) ! Graupel absorption optics depth (sw) | |
real(r8) :: cld_tau(nswbands,state%ncol,pver) ! Cloud absorption optical depth (sw) | |
real(r8) :: snow_tau(nswbands,state%ncol,pver) ! Snow absorption optical depth (sw) | |
real(r8) :: grau_tau(nswbands,state%ncol,pver) ! Graupel absorption optical depth (sw) |
dei_idx = pbuf_get_index('DEI',errcode=err) | ||
mu_idx = pbuf_get_index('MU',errcode=err) | ||
lambda_idx = pbuf_get_index('LAMBDAC',errcode=err) | ||
iciwp_idx = pbuf_get_index('ICIWP',errcode=err) | ||
iclwp_idx = pbuf_get_index('ICLWP',errcode=err) | ||
des_idx = pbuf_get_index('DES',errcode=err) | ||
icswp_idx = pbuf_get_index('ICSWP',errcode=err) | ||
icgrauwp_idx = pbuf_get_index('ICGRAUWP',errcode=err) ! Available when using MG3 | ||
degrau_idx = pbuf_get_index('DEGRAU',errcode=err) ! Available when using MG3 |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Are all of these variables optional (i.e. need the errcode=err
output)? If not then I might only pass out the errcode
for quantities that are truly optional (with maybe a comment in the code here explicitly stating that they are optional).
call rrtmgp_sw_mcica_subcol_gen_run(dosw, kdist_sw, nswbands, nswgpts, nday, nlay, & | ||
pver, tiny, idxday, ktopcam, ktoprad, cldfprime, c_cld_tau, & | ||
c_cld_tau_w, c_cld_tau_w_g, cloud_sw, pmid_day(:ncol,:), errmsg, errflg) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Should we check errflg
here?
call rrtmgp_sw_mcica_subcol_gen_run(dosw, kdist_sw, nswbands, nswgpts, nday, nlay, & | |
pver, tiny, idxday, ktopcam, ktoprad, cldfprime, c_cld_tau, & | |
c_cld_tau_w, c_cld_tau_w_g, cloud_sw, pmid_day(:ncol,:), errmsg, errflg) | |
call rrtmgp_sw_mcica_subcol_gen_run(dosw, kdist_sw, nswbands, nswgpts, nday, nlay, & | |
pver, tiny, idxday, ktopcam, ktoprad, cldfprime, c_cld_tau, & | |
c_cld_tau_w, c_cld_tau_w_g, cloud_sw, pmid_day(:ncol,:), errmsg, errflg) | |
if (errflg /= 0) then | |
call endrun(sub//': '//errmsg) | |
end if |
@@ -10,6 +10,7 @@ module rrtmgp_inputs_cam | |||
|
|||
use shr_kind_mod, only: r8=>shr_kind_r8 | |||
use ppgrid, only: pcols, pver, pverp | |||
use cam_logfile, only: iulog |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Total nit-pick, but maybe line up the only:
with the other two above?
This PR:
configure
to match the new locationaddresses #1192