Skip to content

Commit

Permalink
debug Nx Ny decomp
Browse files Browse the repository at this point in the history
  • Loading branch information
metdyn committed May 22, 2024
1 parent 8ddd7bc commit d546b93
Showing 1 changed file with 28 additions and 0 deletions.
28 changes: 28 additions & 0 deletions base/MAPL_SwathGridFactory.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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)

Expand Down Expand Up @@ -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
Expand Down

0 comments on commit d546b93

Please sign in to comment.