From ac39a238387d01c87b1fb70d02ee21b6a948a432 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Wed, 20 Sep 2023 07:17:08 -0600 Subject: [PATCH] allocate vars --- mediator/med_enthalpy_mod.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mediator/med_enthalpy_mod.F90 b/mediator/med_enthalpy_mod.F90 index a996913b3..525d9ad2a 100644 --- a/mediator/med_enthalpy_mod.F90 +++ b/mediator/med_enthalpy_mod.F90 @@ -195,7 +195,8 @@ subroutine med_compute_enthalpy(is_local, rc) enddo endif - + allocate(hrofl_a(nmax)) + allocate(hrofi_a(nmax)) do n=1,nmax ! for F cases (docn) tocn is non-zero over land and so ofrac must be included ! so that only ocean points are included in calculation @@ -242,7 +243,8 @@ subroutine med_compute_enthalpy(is_local, rc) if(.not. FB_fldchk(is_local%wrap%FBExp(compocn), 'Foxx_hrain', rc)) deallocate(hrain) if(.not. FB_fldchk(is_local%wrap%FBExp(compocn), 'Foxx_hevap', rc)) deallocate(hevap) if(.not. FB_fldchk(is_local%wrap%FBExp(compocn), 'Foxx_hcond', rc)) deallocate(hcond) - + deallocate(hrofl_a) + deallocate(hrofi_a) call t_stopf(subname) end subroutine med_compute_enthalpy