-
Notifications
You must be signed in to change notification settings - Fork 146
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
Transition to Thompson Microphysics for Microwave All-sky Assimilation #743
base: develop
Are you sure you want to change the base?
Conversation
Thompson_MP_modifications
ease enter the commit message for your changes. Lines starting
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.
Check for GSI Code Standard compliance. Minor items noted. Did not fully check crtm_interface.f90
.
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.
Thank you, @azadeh-gh , for updating the code. It looks much better now in terms of GSI code standards.
+ sb(7)*tc0*tc0*cse(1) + sb(8)*tc0*cse(1)*cse(1) & | ||
+ sb(9)*tc0*tc0*tc0 + sb(10)*cse(1)*cse(1)*cse(1) | ||
smoc = a_ * smob**b_ | ||
reff(k) = MAX(2.51E-6_r_kind, MIN(0.5*(smoc/smob), 1999.E-6_r_kind)) |
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.
0.5
should be 0.5_r_kind
Rebuilt |
src/gsi/crtm_interface.f90
Outdated
@@ -1730,6 +1761,7 @@ subroutine call_crtm(obstype,obstime,data_s,nchanl,nreal,ich, & | |||
ges_qsat (ixp,iy ,k, itsigp)*w10+ & | |||
ges_qsat (ix ,iyp,k, itsigp)*w01+ & | |||
ges_qsat (ixp,iyp,k, itsigp)*w11)*dtsigp | |||
rh(k) = q(k)/qsat(k) !added for cloud fraction computation |
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.
@azadeh-gh The variable qsat
is declared but not defined.
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 think qsat
should qs
src/gsi/crtm_interface.f90
Outdated
@@ -1730,6 +1761,7 @@ subroutine call_crtm(obstype,obstime,data_s,nchanl,nreal,ich, & | |||
ges_qsat (ixp,iy ,k, itsigp)*w10+ & | |||
ges_qsat (ix ,iyp,k, itsigp)*w01+ & | |||
ges_qsat (ixp,iyp,k, itsigp)*w11)*dtsigp | |||
rh(k) = q(k)/qsat(k) !added for cloud fraction computation |
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 think qsat
should qs
src/gsi/crtm_interface.f90
Outdated
cf_calc = zero | ||
! sum of the cloud condensate amount for all 5 hydrometeos (ql + qi + qs + qg + qh + qr) | ||
qcond(:) = cloud(:,1) + cloud(:,2) + cloud(:,3) + cloud(:,4) + cloud(:,5) | ||
call calc_thompson_cloudfrac (nsig , lmfdeep2, xrc3, prsl, qcond(:), rh, qsat,cf_calc) |
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.
Same here as above for qsat
.
src/gsi/crtm_interface.f90
Outdated
if (trim(cloud_names_fwd(ii))=='ni' .and. atmosphere(1)%temperature(k)<t0c) then | ||
cloud_cont(k,ii)=max(1.001_r_kind*1.0E-6_r_kind, cloud_cont(k,ii)) | ||
cloud_efr(k,ii)=max(5.001_r_kind, cloud_efr(k,ii)) | ||
endif | ||
if (trim(cloud_names_fwd(ii))=='nr' .and. atmosphere(1)%temperature(k)<t0c) then | ||
cloud_cont(k,ii)=max(1.001_r_kind*1.0E-6_r_kind, cloud_cont(k,ii)) | ||
cloud_efr(k,ii)=max(5.001_r_kind, cloud_efr(k,ii)) | ||
endif | ||
|
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.
These lines are not needed and should be removed.
We do not need to check number concentration since CRTM does not take number concentration as input. We just need number concentration (ni and nr) for effective radius calculation
@azadeh-gh So far, we have made sure the code can handle imp_physics=8 and imp_imp_physics=11. They can be found on HERA: Look at the 10th profile in fort.1004102 for both cases (search
It should be very easy to find the bug since we have GFDL as a reference. The values (effective radius) from Thompson should not be too different. |
@azadeh-gh I performed a sanity check for two branches: GSI Builds, Scripts, and IC for the Sanity Check The scripts to run the two experiments: The initial conditions: Sanity Check Configuration
Test Run and Output Directory Results Control at the end of the first minimization loop/ second outer loop
Experiment at the end of the first minimization loop / second outerloop
Here are the final minimization step evaluation:
Experiment
|
Description
Transition from using the GFDL microphysics scheme, currently in operation, to the Thompson scheme (GFSv17) is proposed for the microwave all-sky assimilation. This transition aims to enhance the accuracy and reliability of forecasting. Issue#719
Resolves #719
Type of change
Please delete options that are not relevant.
How Has This Been Tested?
Checklist