fix: mpp_check_field fix for test_mpp_domains2 (#1292)

mpp/include/mpp_domains_misc.inc

@@ -419,6 +419,13 @@ end subroutine init_nonblock_type
       field2(isd:ied, jsd:jed) = field_in(:,:)
     endif
 
+!  allocate field1 on pelist1
+!  if field1 is left unallocated, the code will try to access unallocated memory
+!  when field1 is set to 0 in mpp_redistribute
+    if(any(pelist1 == pe)) then
+      allocate(field1(1,1))
+    endif
+
 !  broadcast domain
     call mpp_broadcast_domain(domain1)
     call mpp_broadcast_domain(domain2)
@@ -443,6 +450,8 @@ end subroutine init_nonblock_type
 
     if(any(pelist2 == pe))    deallocate(field1, field2)
 
+    if(any(pelist1 == pe))    deallocate(field1)
+
     call mpp_sync()
 
     return