From bffee2d1f84e562f23c34b67a1ae0b0f5ca52e36 Mon Sep 17 00:00:00 2001 From: James Edwards Date: Thu, 31 Aug 2023 06:55:46 -0600 Subject: [PATCH] fix github tests --- mediator/med_phases_prep_ocn_mod.F90 | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/mediator/med_phases_prep_ocn_mod.F90 b/mediator/med_phases_prep_ocn_mod.F90 index 23f987ded..ed691a174 100644 --- a/mediator/med_phases_prep_ocn_mod.F90 +++ b/mediator/med_phases_prep_ocn_mod.F90 @@ -90,16 +90,6 @@ subroutine med_phases_prep_ocn_accum(gcomp, rc) ! local variables type(InternalState) :: is_local integer :: n - real(r8) :: glob_area_inv - real(r8), pointer :: tocn(:) - real(r8), pointer :: rain(:), hrain(:) - real(r8), pointer :: snow(:), hsnow(:) - real(r8), pointer :: evap(:), hevap(:) - real(r8), pointer :: hcond(:) - real(r8), pointer :: rofl(:), hrofl(:) - real(r8), pointer :: rofi(:), hrofi(:) - real(r8), pointer :: areas(:) - real(r8), allocatable :: hcorr(:) type(med_fldlist_type), pointer :: fldList character(len=*), parameter :: subname='(med_phases_prep_ocn_accum)' !---------------------------------------