FV3: this commits #48158

Change-Id: Id2ec9435167bb7e51852adb4a2ea3ce2241cdce5
gsketefian · Apr 16, 2018 · 137694a · 137694a
1 parent 3591b5c
commit 137694a
Show file tree

Hide file tree

Showing 12 changed files with 1,863 additions and 81 deletions.
diff --git a/atmos_cubed_sphere/driver/fvGFS/atmosphere.F90 b/atmos_cubed_sphere/driver/fvGFS/atmosphere.F90
@@ -968,9 +968,11 @@ subroutine get_bottom_mass ( t_bot, tr_bot, p_bot, z_bot, p_surf, slp )
 ! returns temp, sphum, pres, height at the lowest model level
 ! and surface pressure
 !--------------------------------------------------------------
+   !--- interface variables ---
    real, intent(out), dimension(isc:iec,jsc:jec):: t_bot, p_bot, z_bot, p_surf
    real, intent(out), optional, dimension(isc:iec,jsc:jec):: slp
    real, intent(out), dimension(isc:iec,jsc:jec,nq):: tr_bot
+   !--- local variables ---
    integer :: i, j, m, k, kr
    real    :: rrg, sigtop, sigbot
    real, dimension(isc:iec,jsc:jec) :: tref
@@ -1025,7 +1027,9 @@ subroutine get_bottom_wind ( u_bot, v_bot )
 !-----------------------------------------------------------
 ! returns u and v on the mass grid at the lowest model level
 !-----------------------------------------------------------
+   !--- interface variables ---
    real, intent(out), dimension(isc:iec,jsc:jec):: u_bot, v_bot
+   !--- local variables ---
    integer i, j
 
    do j=jsc,jec