Prints the global max/min for each variable in the Simple Bundle.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_SimpleBundle) | :: | self |
subroutine MAPL_SimpleBundlePrint ( self ) type(MAPL_SimpleBundle) :: self ! !----------------------------------------------------------------------------- integer :: i if ( MAPL_AM_I_ROOT() ) then print * print *, 'Simple Bundle: ', trim(self%name) end if ! 1-D ! --- do i = 1, self%n1d if ( self%r1(i)%myKind == ESMF_KIND_R4 ) then if ( associated(self%r1(i)%qr4) ) then call MAPL_MaxMin(trim(self%r1(i)%name), self%r1(i)%qr4) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r1(i)%name)//' ------ ------' endif else if ( self%r1(i)%myKind == ESMF_KIND_R8 ) then if ( associated(self%r1(i)%qr8) ) then call MAPL_MaxMin(trim(self%r1(i)%name), self%r1(i)%qr8) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r1(i)%name)//' ------ ------' endif end if end do ! 2-D ! --- do i = 1, self%n2d if ( self%r2(i)%myKind == ESMF_KIND_R4 ) then if ( associated(self%r2(i)%qr4) ) then call MAPL_MaxMin(trim(self%r2(i)%name), self%r2(i)%qr4) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r2(i)%name)//' ------ ------' endif else if ( self%r2(i)%myKind == ESMF_KIND_R8 ) then if ( associated(self%r2(i)%qr8) ) then call MAPL_MaxMin(trim(self%r2(i)%name), self%r2(i)%qr8) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r2(i)%name)//' ------ ------' endif end if end do ! 3-D ! --- do i = 1, self%n3d if ( self%r3(i)%myKind == ESMF_KIND_R4 ) then if ( associated(self%r3(i)%qr4) ) then call MAPL_MaxMin(trim(self%r3(i)%name), self%r3(i)%qr4) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r3(i)%name)//' ------ ------' endif else if ( self%r3(i)%myKind == ESMF_KIND_R8 ) then if ( associated(self%r3(i)%qr8) ) then call MAPL_MaxMin(trim(self%r3(i)%name), self%r3(i)%qr8) else if (MAPL_AM_I_ROOT()) write(*,*) trim(self%r3(i)%name)//' ------ ------' endif end if end do if ( MAPL_AM_I_ROOT() ) then print * end if end subroutine MAPL_SimpleBundlePrint