-
Notifications
You must be signed in to change notification settings - Fork 9
Clubb coriolis cam #20
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: clubb_4ncar_20240605_73d60f6_gpufixes
Are you sure you want to change the base?
Clubb coriolis cam #20
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.
I'm impressed by how ably you detected so many of the CLUBB coding conventions! I can make the suggested changes if you don't want to or don't have time.
dt ! Timestep length [s] | ||
|
||
real( kind = core_rknd ), dimension(ngrdcol), intent(in) :: & | ||
fcory ! Nontraditional Coriolis parameter [s^-1] |
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.
Could you please give a few lines of description of fcory? How does it differ from fcor? Qualitatively, how does it vary from equator to pole?
!####################################################################### | ||
subroutine advance_clubb_core( gr, nz, ngrdcol, & ! intent(in) | ||
l_implemented, dt, fcor, sfc_elevation, & ! intent(in) | ||
l_implemented, dt, fcor, fcory, sfc_elevation, & ! intent(in) |
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.
For readability, could you please rename "fcory" to "fcor_y"?
end if | ||
|
||
|
||
if ( l_nontraditional_Coriolis ) then |
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.
This flag will need to be fed into the flags namelist:
rtm_min = epsilon( rtm_min ), & ! Value below which rtm will be nudged [kg/kg] | ||
rtm_nudge_max_altitude = 10000._core_rknd ! Highest altitude at which to nudge rtm [m] | ||
|
||
integer, parameter :: & |
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.
How did this code change end up in your pull request? Do you happen to know? I don't see this line in the master branch.
This branch is similar to "clubb_Coriolis" but supports coupling to NCAR CAM