From d546b93280d9523c1eead069cf8bfefca6e3754b Mon Sep 17 00:00:00 2001
From: Yonggang Yu <yonggang.yu@nasa.gov>
Date: Tue, 21 May 2024 22:01:25 -0600
Subject: [PATCH] debug  Nx Ny  decomp

---
 base/MAPL_SwathGridFactory.F90 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/base/MAPL_SwathGridFactory.F90 b/base/MAPL_SwathGridFactory.F90
index 93bf1b563c41..e89c6b0fd8d4 100644
--- a/base/MAPL_SwathGridFactory.F90
+++ b/base/MAPL_SwathGridFactory.F90
@@ -482,6 +482,7 @@ subroutine initialize_from_config_with_prefix(this, config, prefix, unusable, rc
       _ASSERT (this%lm /= MAPL_UNDEFINED_INTEGER, 'LM: is undefined in swath grid')
 
       call lgr%debug(' %a  %a', 'CurrTime =', trim(tmp))
+      call lgr%debug(' %a  %i5 %i5', 'nx,ny =', this%nx, this%ny)
 
       if ( index(tmp, 'T') /= 0 .OR. index(tmp, '-') /= 0 ) then
          call ESMF_TimeSet(currTime, timeString=tmp, _RC)
@@ -716,6 +717,13 @@ subroutine initialize_from_config_with_prefix(this, config, prefix, unusable, rc
       else
          call get_multi_integer(this%jms, 'JMS:', _RC)
       endif
+
+      if (mapl_am_i_root()) then
+!         write(6,*) 'ims ', this%ims
+!         write(6,*) 'jms ', this%jms         
+      end if
+
+
       ! ims is set at here
       call this%check_and_fill_consistency(_RC)
 
@@ -858,13 +866,33 @@ subroutine check_and_fill_consistency(this, unusable, rc)
       call verify(this%nx, this%im_world, this%ims, rc=status)
       call verify(this%ny, this%jm_world, this%jms, rc=status)
 
+
+      if (mapl_am_i_root()) then
+         write(6,*) 'bf check fill consistency'
+         write(6,*) 'ims ', this%ims
+         write(6,*) 'jms ', this%jms
+         write(6,*) 'im_world ', this%im_world
+         write(6,*) 'jm_world ', this%jm_world
+      end if
+      
       if (.not.this%force_decomposition) then
          verify_decomp = this%check_decomposition(_RC)
          if ( (.not.verify_decomp) ) then
             call this%generate_newnxy(_RC)
+            write(6,*) 'af  this%generate_newnxy'
          end if
       end if
 
+
+      if (mapl_am_i_root()) then
+         write(6,*) 'af check fill consistency'
+         write(6,*) 'ims ', this%ims
+         write(6,*) 'jms ', this%jms
+         write(6,*) 'im_world ', this%im_world
+         write(6,*) 'jm_world ', this%jm_world
+      end if
+      
+
       _RETURN(_SUCCESS)
 
    contains