From ccecf9f66d3499954a2d8a178e6ec003397d9c04 Mon Sep 17 00:00:00 2001 From: Kieran Ricardo Date: Tue, 9 Jan 2024 14:39:53 +1100 Subject: [PATCH] Fix ungridded dimensions mismatch --- mediator/med_methods_mod.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/mediator/med_methods_mod.F90 b/mediator/med_methods_mod.F90 index 649c9c511..87ac5c3d8 100644 --- a/mediator/med_methods_mod.F90 +++ b/mediator/med_methods_mod.F90 @@ -449,9 +449,7 @@ subroutine med_methods_FB_init(FBout, flds_scalar_name, fieldNameList, FBgeom, S call ESMF_FieldBundleGet(FBflds, fieldName=lfieldnamelist(n), field=lfield, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return elseif (present(STflds)) then - call med_methods_State_getNameN(STflds, n, lname, rc) - if (chkerr(rc,__LINE__,u_FILE_u)) return - call ESMF_StateGet(STflds, itemName=lname, field=lfield, rc=rc) + call ESMF_StateGet(STflds, itemName=trim(lfieldnamelist(n)), field=lfield, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return end if