Merge pull request #540 from kieranricardo/bugfix-FB-init-dim-mismatch

Bugfix: field bundle initialisation can miss ungridded dimensions
ESCOMP · Feb 19, 2025 · 3536cc5 · 3536cc5
2 parents b4695c4 + bbadee8
commit 3536cc5
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/mediator/med_methods_mod.F90 b/mediator/med_methods_mod.F90
@@ -434,9 +434,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