fixed bug

ESCOMP · Jun 25, 2024 · 9b3cec2 · 9b3cec2
1 parent 293a46f
commit 9b3cec2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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