From 9b3cec233e11bb2d467b5099af2e3caed7e07991 Mon Sep 17 00:00:00 2001 From: Mariana Vertenstein Date: Tue, 25 Jun 2024 11:57:26 -0600 Subject: [PATCH] fixed bug --- mediator/med_internalstate_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mediator/med_internalstate_mod.F90 b/mediator/med_internalstate_mod.F90 index 95745098..d09903be 100644 --- a/mediator/med_internalstate_mod.F90 +++ b/mediator/med_internalstate_mod.F90 @@ -245,10 +245,10 @@ subroutine med_internalstate_init(gcomp, rc) ! determine if atm and lnd have the same mesh call NUOPC_CompAttributeGet(gcomp, name='mesh_atm', value=atm_mesh_name, & - isPresent=isPresent, isSet=isSet, rc=rc) + isPresent=isPresent_atm, isSet=isSet_atm, rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return call NUOPC_CompAttributeGet(gcomp, name='mesh_lnd', value=lnd_mesh_name, & - isPresent=isPresent, isSet=isSet, rc=rc) + isPresent=isPresent_lnd, isSet=isSet_lnd, rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return if ((isPresent_lnd .and. isSet_lnd) .and. (isPresent_atm .and. isSet_atm)) then