Used correct labels/names physics_get_tend instead of addtend when ac…

…tually physics_get_tend is used
MPAS-Dev · Mar 1, 2017 · e8bd2b5 · e8bd2b5
1 parent d8b6343
commit e8bd2b5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F
@@ -468,7 +468,7 @@ subroutine atm_srk3(domain, dt, itimestep)
 
 #ifdef DO_PHYSICS
 #ifdef MPAS_TIME_INTEGRATION_SUBTIMERS
-      call mpas_timer_start('physics_addtend')
+      call mpas_timer_start('physics_get_tend')
 #endif
       rk_step = 1
       dynamics_substep = 1
@@ -498,7 +498,7 @@ subroutine atm_srk3(domain, dt, itimestep)
       end do
 !$OMP end do
 #ifdef MPAS_TIME_INTEGRATION_SUBTIMERS
-      call mpas_timer_stop('physics_addtend')
+      call mpas_timer_stop('physics_get_tend')
 #endif
 #endif
 

diff --git a/src/core_atmosphere/physics/mpas_atmphys_todynamics.F b/src/core_atmosphere/physics/mpas_atmphys_todynamics.F
@@ -27,6 +27,8 @@ module mpas_atmphys_todynamics
 ! subroutines in mpas_atmphys_todynamics:
 ! ---------------------------------------
 ! physics_addtend: add and mass-weigh tendencies before being added to dynamics tendencies.
+! DH* check documentation, this has been copied from the old physics_addtend documentation *DH
+! physics_get_tend: add and mass-weigh tendencies before being added to dynamics tendencies.
 ! tend_toEdges   : interpolate wind-tendencies from centers to edges of grid-cells.
 !
 ! add-ons and modifications to sourcecode:
@@ -380,14 +382,14 @@ subroutine physics_get_tend( block, mesh, state, diag, tend, tend_physics, confi
                            index_qv, index_qc, index_qr, index_qi, index_qs, index_ni, &
                            east, north, cellsOnEdge, edgeNormalVectors, &
                            rublten, rvblten, mass_edge, rublten_Edge, &
-                           tend_ru_physics, &  ! change for addtend for u
+                           tend_ru_physics, &  ! change for get_tend for u
                            rucuten, rvcuten, rucuten_Edge, &
                            tend_th, tend_scalars, mass, rthblten, rqvblten, rqcblten, rqiblten, rniblten, &
                            rthcuten, rqvcuten, rqccuten, rqrcuten, rqicuten, rqscuten, &
                            rthratenlw, rthratensw, rthdynten, &
                            tend_u_phys, tend_rtheta_adv, tend_diabatic, &
                            theta_m, scalars, &
-                           tend_rtheta_physics, &  ! change for addtend for theta_m
+                           tend_rtheta_physics, &  ! change for get_tend for theta_m
                            tend_theta_euler, &
                            cellStart, cellEnd, edgeStart, edgeEnd, &
                            cellSolveStart, cellSolveEnd, edgeSolveStart, edgeSolveEnd &