--- src/Infrastructure/Field/src/ESMF_FieldEmpty.cppF90.orig 2025-04-17 15:58:54 +++ src/Infrastructure/Field/src/ESMF_FieldEmpty.cppF90 2025-05-06 15:34:33 @@ -4403,14 +4403,14 @@ ! Get pointer to internal Field ftypep => field%ftypep - ! Get field's current status + ! Get current status of field currStatus=ftypep%status ! Change Field based on current status and new status if (currStatus == ESMF_FIELDSTATUS_EMPTY) then if (setStatus == ESMF_FIELDSTATUS_EMPTY) then - ! Don't do anything, since no change in status + ! Do not do anything, since no change in status else if (setStatus == ESMF_FIELDSTATUS_GRIDSET) then call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_WRONG, & msg="a Field can't be reset to be more complete than its current status.", & @@ -4437,11 +4437,11 @@ if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return - ! Set flag back to it's inital setting + ! Set flag back to its inital setting ftypep%geomb_internal = .false. else if (setStatus == ESMF_FIELDSTATUS_GRIDSET) then - ! Don't do anything, since no change in status + ! Do not do anything, since no change in status else if (setStatus == ESMF_FIELDSTATUS_COMPLETE) then call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_WRONG, & msg="a Field can't be reset to be more complete than its current status.", & @@ -4463,7 +4463,7 @@ if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return - ! Set Array internal flag back to it's inital setting + ! Set Array internal flag back to its inital setting ftypep%array_internal = .false. ! Destroy Geometry @@ -4471,7 +4471,7 @@ if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return - ! Set geom internal flag back to it's inital setting + ! Set geom internal flag back to its inital setting ftypep%geomb_internal = .false. else if (setStatus == ESMF_FIELDSTATUS_GRIDSET) then @@ -4481,11 +4481,11 @@ if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, & ESMF_CONTEXT, rcToReturn=rc)) return - ! Set Array internal flag back to it's inital setting + ! Set Array internal flag back to its inital setting ftypep%array_internal = .false. else if (setStatus == ESMF_FIELDSTATUS_COMPLETE) then - ! Don't do anything, since no change in status + ! Do not do anything, since no change in status else call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_WRONG, & msg="unknown status type", &