Updated land perturbation scheme #148
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Submodule physics
updated
12 files
| +2 −2 | physics/GFS_MP_generic.meta | |
| +1 −1 | physics/GFS_debug.F90 | |
| +8 −5 | physics/GFS_rrtmg_pre.F90 | |
| +22 −14 | physics/GFS_rrtmgp_sw_pre.F90 | |
| +27 −20 | physics/GFS_rrtmgp_sw_pre.meta | |
| +2 −2 | physics/GFS_stochastics.meta | |
| +32 −39 | physics/GFS_surface_generic.F90 | |
| +32 −52 | physics/GFS_surface_generic.meta | |
| +3 −3 | physics/radiation_surface.f | |
| +14 −2 | physics/rrtmg_sw_pre.F90 | |
| +3 −3 | physics/sfc_drv.f | |
| +1 −1 | physics/sfc_drv.meta |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,249 @@ | ||
| module GFS_land_perts | ||
|
There was a problem hiding this comment. Shouldn't this entire code be in the CCPP "stochastic_physics" group, either as an additional scheme or as part of the existing Once we remove IPD, there will be no access to the soilveg data etc. anymore. There was a problem hiding this comment. Update: see my comment below for file |
||
|
|
||
| use machine, only: kind_phys | ||
|
|
||
| implicit none | ||
|
|
||
| private | ||
|
|
||
| public :: GFS_apply_lndp | ||
|
|
||
| contains | ||
|
|
||
| !==================================================================== | ||
| ! GFS_apply_lndp | ||
| !==================================================================== | ||
| ! Driver for applying perturbations to sprecified land states or parameters | ||
| ! Draper, July 2020. | ||
| ! Note on location: requires access to namelist_soilveg | ||
|
|
||
| subroutine GFS_apply_lndp(blksz,lsm, lsoil,dtf, n_var_lndp, lndp_var_list, & | ||
| lndp_prt_list, sfc_wts, xlon, xlat, stype, param_update_flag, & | ||
| smc, slc, stc, vfrac, ierr) | ||
|
|
||
| use namelist_soilveg ! needed for maxsmc | ||
|
|
||
| implicit none | ||
|
|
||
| ! intent(in) | ||
| integer, intent(in) :: blksz(:) | ||
| integer, intent(in) :: n_var_lndp, lsoil, lsm | ||
| character(len=3), intent(in) :: lndp_var_list(:) | ||
| real(kind=kind_phys), intent(in) :: lndp_prt_list(:) | ||
| real(kind=kind_phys), intent(in) :: dtf | ||
| real(kind=kind_phys), intent(in) :: sfc_wts(:,:,:) | ||
| real(kind=kind_phys), intent(in) :: xlon(:,:) | ||
| real(kind=kind_phys), intent(in) :: xlat(:,:) | ||
| logical, intent(in) :: param_update_flag | ||
| ! true = parameters have been updated, apply perts | ||
| real(kind=kind_phys), intent(in) :: stype(:,:) | ||
|
|
||
| ! intent(inout) | ||
| real(kind=kind_phys), intent(inout) :: smc(:,:,:) | ||
| real(kind=kind_phys), intent(inout) :: slc(:,:,:) | ||
| real(kind=kind_phys), intent(inout) :: stc(:,:,:) | ||
| real(kind=kind_phys), intent(inout) :: vfrac(:,:) | ||
|
|
||
| ! intent(out) | ||
| integer, intent(out) :: ierr | ||
|
|
||
| ! local | ||
| integer :: nblks, print_i, print_nb, i, nb | ||
| integer :: this_im, v, soiltyp, k | ||
| logical :: print_flag | ||
|
|
||
| real(kind=kind_phys) :: p, min_bound, max_bound, tmp_sic, pert | ||
|
|
||
| ! decrease in applied pert with depth | ||
| real(kind=kind_phys), dimension(4), parameter :: smc_vertscale = (/1.0,0.5,0.25,0.125/) | ||
| real(kind=kind_phys), dimension(4), parameter :: stc_vertscale = (/1.0,0.5,0.25,0.125/) | ||
|
|
||
| ! model-dependent values, hard-wired in noah code. | ||
| real(kind=kind_phys), dimension(4), parameter :: zs_noah = (/0.1, 0.3, 0.6, 1.0/) | ||
| real(kind=kind_phys), parameter :: minsmc = 0.02 | ||
|
|
||
| ierr = 0 | ||
|
|
||
| if (lsm .NE. 1 ) then | ||
| write(6,*) 'ERROR: GFS_land_pert assumes LSM is noah, ', & | ||
| ' may need to adapt variable names for a different LSM' | ||
| ierr=10 | ||
| return | ||
| endif | ||
|
|
||
| nblks = size(blksz) | ||
|
|
||
| call set_printing_nb_i(blksz,xlon,xlat,print_i,print_nb) | ||
|
|
||
| do nb =1,nblks | ||
| do i = 1, blksz(nb) | ||
|
|
||
| !if ( nint(Sfcprop(nb)%slmsk(i)) .NE. 1) cycle ! skip if not land | ||
|
|
||
| !if ( ((isot == 1) .and. (soiltyp == 16)) & | ||
| ! .or.( (isot == 0) .and. (soiltyp == 9 )) ) cycle ! skip if land-ice | ||
|
|
||
| if ( smc(nb,i,1) .EQ. 1.) cycle ! skip non-soil (land-ice and non-land) | ||
| ! set printing | ||
| if ( (i==print_i) .and. (nb==print_nb) ) then | ||
| print_flag = .true. | ||
| else | ||
| print_flag=.false. | ||
| endif | ||
|
|
||
| do v = 1,n_var_lndp | ||
| select case (trim(lndp_var_list(v))) | ||
| !================================================================= | ||
| ! State updates - performed every cycle | ||
| !================================================================= | ||
| case('smc') | ||
| p=5. | ||
| soiltyp = int( stype(nb,i)+0.5 ) ! also need for maxsmc | ||
| min_bound = minsmc | ||
| max_bound = maxsmc(soiltyp) | ||
|
|
||
| do k=1,lsoil | ||
| !store frozen soil moisture | ||
| tmp_sic= smc(nb,i,k) - slc(nb,i,k) | ||
|
|
||
| ! perturb total soil moisture | ||
| ! factor of sldepth*1000 converts from mm to m3/m3 | ||
| pert = sfc_wts(nb,i,v)*smc_vertscale(k)*lndp_prt_list(v)/(zs_noah(k)*1000.) | ||
| pert = pert*dtf/3600. ! lndp_prt_list input is per hour, convert to per timestep | ||
| ! (necessary for state vars only) | ||
| call apply_pert('smc',pert,print_flag, smc(nb,i,k),ierr,p,min_bound, max_bound) | ||
|
|
||
| ! assign all of applied pert to the liquid soil moisture | ||
| slc(nb,i,k) = smc(nb,i,k) - tmp_sic | ||
| enddo | ||
|
|
||
| case('stc') | ||
|
|
||
| do k=1,lsoil | ||
| pert = sfc_wts(nb,i,v)*stc_vertscale(k)*lndp_prt_list(v) | ||
| pert = pert*dtf/3600. ! lndp_prt_list input is per hour, convert to per timestep | ||
| ! (necessary for state vars only) | ||
| call apply_pert('stc',pert,print_flag, stc(nb,i,k),ierr) | ||
| enddo | ||
| !================================================================= | ||
| ! Parameter updates - only if param_update_flag = TRUE | ||
| !================================================================= | ||
| case('vgf') ! vegetation fraction | ||
| if (param_update_flag) then | ||
| p =5. | ||
| min_bound=0. | ||
| max_bound=1. | ||
|
|
||
| pert = sfc_wts(nb,i,v)*lndp_prt_list(v) | ||
| call apply_pert ('vfrac',pert,print_flag, vfrac(nb,i), ierr,p,min_bound, max_bound) | ||
| endif | ||
| case default | ||
| print*, & | ||
| 'ERROR: unrecognised lndp_prt_list option in GFS_apply_lndp, exiting', trim(lndp_var_list(v)) | ||
| ierr = 10 | ||
| return | ||
| end select | ||
| enddo | ||
| enddo | ||
| enddo | ||
| end subroutine GFS_apply_lndp | ||
|
|
||
| !==================================================================== | ||
| ! apply_perts | ||
| !==================================================================== | ||
| ! Apply perturbations to selected land states or parameters | ||
|
|
||
| subroutine apply_pert(vname,pert,print_flag, state,ierr,p,vmin, vmax) | ||
|
|
||
| ! intent in | ||
| logical, intent(in) :: print_flag | ||
| real(kind=kind_phys), intent(in) :: pert | ||
| character(len=*), intent(in) :: vname ! name of variable being perturbed | ||
|
|
||
| real(kind=kind_phys), optional, intent(in) :: p ! flat-top paramater, 0 = no flat-top | ||
| ! flat-top function is used for bounded variables | ||
| ! to reduce the magnitude of perturbations near boundaries. | ||
| real(kind=kind_phys), optional, intent(in) :: vmin, vmax ! min,max bounds of variable being perturbed | ||
|
|
||
| ! intent (inout) | ||
| real(kind=kind_phys), intent(inout) :: state | ||
|
|
||
| ! intent out | ||
| integer :: ierr | ||
|
|
||
| !local | ||
| real(kind=kind_phys) :: z | ||
|
|
||
| if ( print_flag ) then | ||
| write(*,*) 'LNDP - applying lndp to ',vname, ', initial value', state | ||
| endif | ||
|
|
||
| ! apply perturbation | ||
| if (present(p) ) then | ||
| if ( .not. (present(vmin) .and. present(vmax) )) then | ||
| ierr=20 | ||
| print*, 'error, flat-top function requires min & max to be specified' | ||
| endif | ||
|
|
||
| z = -1. + 2*(state - vmin)/(vmax - vmin) ! flat-top function | ||
| state = state + pert*(1-abs(z**p)) | ||
| else | ||
| state = state + pert | ||
| endif | ||
|
|
||
| if (present(vmax)) state = min( state , vmax ) | ||
| if (present(vmin)) state = max( state , vmin ) | ||
| !state = max( min( state , vmax ), vmin ) | ||
|
|
||
| if ( print_flag ) then | ||
| write(*,*) 'LNDP - applying lndp to ',vname, ', final value', state | ||
| endif | ||
|
|
||
| end subroutine apply_pert | ||
|
|
||
|
|
||
| !==================================================================== | ||
| ! set_printing_nb_i | ||
| !==================================================================== | ||
| ! routine to turn on print flag for selected location | ||
| ! | ||
| subroutine set_printing_nb_i(blksz,xlon,xlat,print_i,print_nb) | ||
|
|
||
| implicit none | ||
|
|
||
| ! intent (in) | ||
| integer, intent(in) :: blksz(:) | ||
| real(kind=kind_phys), intent(in) :: xlon(:,:) | ||
| real(kind=kind_phys), intent(in) :: xlat(:,:) | ||
|
|
||
|
|
||
| ! intent (out) | ||
| integer, intent(out) :: print_i, print_nb | ||
|
|
||
| ! local | ||
| integer :: nblks,nb,i | ||
| real, parameter :: plon_trunc = 114.9 | ||
| real, parameter :: plat_trunc = -26.6 | ||
| real, parameter :: delta = 1. | ||
|
|
||
| nblks = size(blksz) | ||
|
|
||
| print_i = -9 | ||
| print_nb = -9 | ||
| do nb = 1,nblks | ||
| do i = 1,blksz(nb) | ||
| if ( (xlon(nb,i)*57.29578 > plon_trunc) .and. (xlon(nb,i)*57.29578 < plon_trunc+delta ) .and. & | ||
| (xlat(nb,i)*57.29578 > plat_trunc ) .and. (xlat(nb,i)*57.29578 < plat_trunc+delta ) ) then | ||
| print_i=i | ||
| print_nb=nb | ||
| write(*,*) 'LNDP -print flag is on', xlon(nb,i)*57.29578, xlat(nb,i)*57.29578, nb, i | ||
| return | ||
| endif | ||
| enddo | ||
| enddo | ||
|
|
||
| end subroutine set_printing_nb_i | ||
|
|
||
| end module GFS_land_perts | ||
|
|
||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
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 reverting
.gitmodulesto where it was originally (the new version in this PR is how it should be, no need to add.gitand also good to remove the unnecessary double whitespace and the trailing whitespace below.