remove zero cflx settings

modified: src/physics/cam/aoa_tracers.F90 modified: src/physics/cam/physpkg.F90 modified: src/physics/cam7/physpkg.F90
fvitt · Sep 3, 2024 · 556f4f2 · 556f4f2
1 parent 6836220
commit 556f4f2
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 19 deletions.
diff --git a/src/physics/cam/aoa_tracers.F90 b/src/physics/cam/aoa_tracers.F90
@@ -298,16 +298,15 @@ end subroutine aoa_tracers_timestep_init
 
 !===============================================================================
 
-  subroutine aoa_tracers_timestep_tend(state, ptend, cflx, dt)
+  subroutine aoa_tracers_timestep_tend(state, ptend, dt)
 
     use physics_types, only: physics_state, physics_ptend, physics_ptend_init
     use cam_history,   only: outfld
 
     ! Arguments
     type(physics_state), intent(in)    :: state              ! state variables
     type(physics_ptend), intent(out)   :: ptend              ! package tendencies
-    real(r8),            intent(inout) :: cflx(pcols,pcnst)  ! Surface constituent flux (kg/m^2/s)
-    real(r8),            intent(in)    :: dt                 ! timestep
+    real(r8),            intent(in)    :: dt                 ! timestep size (sec)
 
     !----------------- Local workspace-------------------------------
 
@@ -373,20 +372,6 @@ subroutine aoa_tracers_timestep_tend(state, ptend, cflx, dt)
     call outfld (src_names(2), ptend%q(:,:,ixht),   pcols, lchnk)
     call outfld (src_names(3), ptend%q(:,:,ixvt),   pcols, lchnk)
 
-    ! Set tracer fluxes
-    do i = 1, ncol
-
-       ! AOAMF
-       cflx(i,ixaoa) = 0._r8
-
-       ! HORZ
-       cflx(i,ixht) = 0._r8
-
-       ! VERT
-       cflx(i,ixvt) = 0._r8
-
-    end do
-
   end subroutine aoa_tracers_timestep_tend
 
 !===========================================================================

diff --git a/src/physics/cam/physpkg.F90 b/src/physics/cam/physpkg.F90
@@ -1575,7 +1575,7 @@ subroutine tphysac (ztodt,   cam_in,  &
        call cam_snapshot_all_outfld_tphysac(cam_snapshot_before_num, state, tend, cam_in, cam_out, pbuf,&
                     fh2o, surfric, obklen, flx_heat)
     end if
-    call aoa_tracers_timestep_tend(state, ptend, cam_in%cflx, ztodt)
+    call aoa_tracers_timestep_tend(state, ptend, ztodt)
     if ( (trim(cam_take_snapshot_after) == "aoa_tracers_timestep_tend") .and. &
          (trim(cam_take_snapshot_before) == trim(cam_take_snapshot_after))) then
        call cam_snapshot_ptend_outfld(ptend, lchnk)

diff --git a/src/physics/cam7/physpkg.F90 b/src/physics/cam7/physpkg.F90
@@ -2050,7 +2050,7 @@ subroutine tphysac (ztodt,   cam_in,  &
        call cam_snapshot_all_outfld_tphysac(cam_snapshot_before_num, state, tend, cam_in, cam_out, pbuf,&
                     fh2o, surfric, obklen, flx_heat, cmfmc, dlf, det_s, det_ice, net_flx)
     end if
-    call aoa_tracers_timestep_tend(state, ptend, cam_in%cflx, ztodt)
+    call aoa_tracers_timestep_tend(state, ptend, ztodt)
     if ( (trim(cam_take_snapshot_after) == "aoa_tracers_timestep_tend") .and. &
          (trim(cam_take_snapshot_before) == trim(cam_take_snapshot_after))) then
        call cam_snapshot_ptend_outfld(ptend, lchnk)