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

Ccpp compliancy after merge step1 #34

Merged
merged 2 commits into from
Dec 27, 2017
Merged

Ccpp compliancy after merge step1 #34

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
75c8f98
Update of various GFS physics routines for CCPP-compliancy: missing a…
DomHeinzeller Dec 27, 2017
69e599d
Merge branch 'master' of https://github.com/NCAR/gmtb-gfsphysics
DomHeinzeller Dec 27, 2017
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
18 changes: 9 additions & 9 deletions physics/GFS_calpreciptype.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,7 +41,7 @@ end subroutine GFS_calpreciptype_init
!!| srflag | flag_for_precipitation_type | snow(1)/rain(0) flag for precipitation | 1 | 1 | real | kind_phys | out | F |
!!| tprcp | precipitation_amount_in_one_dynamics_time_step | precipitation amount in one dynamics time step | m | 1 | real | kind_phys | out | F |
!!
subroutine GFS_calpreciptype_run (kdt,nrcm,im,ix,lm,lp1,randomno, &
subroutine GFS_calpreciptype_run(kdt,nrcm,im,ix,lm,lp1,randomno, &
cal_pre, &
gt0,gq0,prsl,prsi, rainc,frain,rain1, &
phii,n3dfercld,tskin,sr,phy_f3d, & !input
Expand Down Expand Up @@ -307,7 +307,7 @@ subroutine GFS_calpreciptype_run (kdt,nrcm,im,ix,lm,lp1,randomno, &
endif

return
end subroutine GFS_CALPRECIPTYPE_RUN
end subroutine GFS_calpreciptype_run
!
!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
!
Expand Down Expand Up @@ -548,7 +548,7 @@ subroutine calwxt(lm,lp1,t,q,pmid,pint, &
! deallocate (twet)

return
end
end subroutine calwxt
!
!
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
Expand Down Expand Up @@ -836,7 +836,7 @@ subroutine calwxt_ramer(lm,lp1,t,q,pmid,rh,td,pint,ptyp)

return
!
end
end subroutine calwxt_ramer
!
!
!--------------------------------------------------------------------------
Expand Down Expand Up @@ -894,7 +894,7 @@ real function xmytw(t,td,p)
end if
!
return
end
end function xmytw
!
!
!$$$ subprogram documentation block
Expand Down Expand Up @@ -1124,7 +1124,7 @@ subroutine calwxt_bourg(lm,lp1,rn,g,t,q,pmid,pint,zint,ptype)
end if
!
return
end
end subroutine calwxt_bourg
!
!
subroutine calwxt_revised(lm,lp1,t,q,pmid,pint, &
Expand Down Expand Up @@ -1380,7 +1380,7 @@ subroutine calwxt_revised(lm,lp1,t,q,pmid,pint, &
endif

return
end
end subroutine calwxt_revised
!
!
subroutine calwxt_explicit(lm,tskin,sr,f_rimef,iwx)
Expand Down Expand Up @@ -1440,7 +1440,7 @@ subroutine calwxt_explicit(lm,tskin,sr,f_rimef,iwx)
iwx = iwx + 1
endif
endif
end
end subroutine calwxt_explicit
!
!
subroutine calwxt_dominant(nalg,rain,freezr,sleet,snow, &
Expand Down Expand Up @@ -1511,7 +1511,7 @@ subroutine calwxt_dominant(nalg,rain,freezr,sleet,snow, &
endif
!
return
end
end subroutine calwxt_dominant

!> \section arg_table_GFS_calpreciptype_finalize Argument table
!!
Expand Down
1 change: 1 addition & 0 deletions physics/GFS_radsw_post.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,7 @@ end subroutine GFS_radsw_post_init
!!| Radtend | FV3-GFS_Radtend_type | Fortran DDT containing FV3-GFS fields targetted for diagnostic output | DDT | 0 | GFS_typedefs%GFS_radtend_type | | inout | F |
!!| Coupling | FV3-GFS_Coupling_type | Fortran DDT containing FV3-GFS fields to/from coupling with other components | DDT | 0 | GFS_typedefs%GFS_coupling_type| | inout | F |
!!| ltp | extra_top_layer | extra top layers | none | 0 | integer | | in | F |
!!| nday | daytime_points_dimension | daytime points dimension | index | 0 | integer | | in | F |
!!| lm | vertical_layer_dimension_for_radiation | number of vertical layers for radiation calculation | index | 0 | integer | | in | F |
!!| kd | vertical_index_difference_between_in-out_and_local | vertical index difference between in/out and local | index | 0 | integer | | in | F |
!!| htswc | tendency_of_air_temperature_due_to_shortwave_heating | total sky heating rate due to shortwave radiation | K s-1 | 2 | real | kind_phys | in | F |
Expand Down
Loading