whitespace and line lengths

NOAA-GFDL · Aug 23, 2023 · 5182daa · 5182daa
1 parent 07b08fb
commit 5182daa
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 8 deletions.
diff --git a/diag_manager/diag_manager.F90 b/diag_manager/diag_manager.F90
@@ -4035,7 +4035,8 @@ INTEGER FUNCTION init_diurnal_axis(n_samples)
     WRITE (name,'(a,i2.2)') 'time_of_day_', n_samples
     init_diurnal_axis = get_axis_num(name, 'diurnal')
     IF ( init_diurnal_axis <= 0 ) THEN
-       init_diurnal_axis = diag_axis_init(name, center_data, units, 'N', 'time of day', set_name='diurnal', edges=edges_id)
+       init_diurnal_axis = diag_axis_init(name, center_data, units, 'N', 'time of day', &
+                           set_name='diurnal', edges=edges_id)
     END IF
   END FUNCTION init_diurnal_axis
 

diff --git a/mpp/include/mpp_do_updateV.fh b/mpp/include/mpp_do_updateV.fh
@@ -1101,7 +1101,7 @@
          ! NOTE: symmetry is assumed for fold-west boundary
          i = domain%x(1)%global%end+shift
          !fold is within domain
-         if( domain%x(1)%domain_data%begin.LE.i .AND. i.LE.domain%x(1)%domain_data%end+shift )then 
+         if( domain%x(1)%domain_data%begin.LE.i .AND. i.LE.domain%x(1)%domain_data%end+shift )then
             midpoint = (domain%y(1)%global%begin+domain%y(1)%global%end-1+shift)/2
             !poles set to 0: BGRID only
             if( gridtype.EQ.BGRID_NE )then

diff --git a/mpp/include/mpp_do_updateV_ad.fh b/mpp/include/mpp_do_updateV_ad.fh
@@ -696,7 +696,8 @@
                                                                                               !! boundary fold
          ! NOTE: symmetry is assumed for fold-west boundary
          i = domain%x(1)%global%end+shift
-         if( domain%x(1)%domain_data%begin.LE.i .AND. i.LE.domain%x(1)%domain_data%end+shift )then !fold is within domain
+         !fold is within domain
+         if( domain%x(1)%domain_data%begin.LE.i .AND. i.LE.domain%x(1)%domain_data%end+shift )then
             midpoint = (domain%y(1)%global%begin+domain%y(1)%global%end-1+shift)/2
             !poles set to 0: BGRID only
             if( gridtype.EQ.BGRID_NE )then

diff --git a/mpp/include/mpp_domains_define.inc b/mpp/include/mpp_domains_define.inc
@@ -3267,8 +3267,8 @@ end subroutine check_message_size
           !--- Now calculate the overlapping for fold-edge.
           !--- only position at NORTH and CORNER need to be considered
           if( ( position == NORTH .OR. position == CORNER) ) then
-             if( domain%y(tMe)%domain_data%begin .LE. jsg .AND. jsg .LE. domain%y(tMe)%domain_data%end+jshift )then !fold
-                                                                                                    !! is within domain
+             !fold is within domain
+             if( domain%y(tMe)%domain_data%begin .LE. jsg .AND. jsg .LE. domain%y(tMe)%domain_data%end+jshift )then
                 dir = 3
                 !--- calculate the overlapping for sending
                 if( domain%x(tMe)%pos .LT. (size(domain%x(tMe)%list(:))+1)/2 )then

diff --git a/test_fms/mpp/test_mpp_domains.F90 b/test_fms/mpp/test_mpp_domains.F90
@@ -3678,7 +3678,8 @@ subroutine test_unstruct_update( type )
   end subroutine test_unstruct_update
   !#################################################################################
 
-  subroutine fill_halo_zero(halo_data, whalo, ehalo, shalo, nhalo, xshift, yshift, isc, iec, jsc, jec, isd, ied, jsd, jed)
+  subroutine fill_halo_zero(halo_data, whalo, ehalo, shalo, nhalo, xshift, yshift, &
+                            isc, iec, jsc, jec, isd, ied, jsd, jed)
     integer,                         intent(in) :: isc, iec, jsc, jec, isd, ied, jsd, jed
     integer,                         intent(in) :: whalo, ehalo, shalo, nhalo, xshift, yshift
     real, dimension(isd:,jsd:,:), intent(inout) :: halo_data
@@ -5377,11 +5378,11 @@ subroutine fill_cubicgrid_refined_halo(halo_data, data1_all, data2_all, ni, nj,
                                                   & data1_all(1+ioff:ehalo+ioff, 1:nj(le)+joff, :, le) ! east
        end if
        if(ni(tile) == ni(ls) ) then
-          halo_data(1:ni(tile)+ioff, 1-shalo:0, :)     = data1_all(1:ni(ls)+ioff, nj(ls)-shalo+1:nj(ls), :, ls) ! south
+          halo_data(1:ni(tile)+ioff, 1-shalo:0, :)    = data1_all(1:ni(ls)+ioff, nj(ls)-shalo+1:nj(ls), :, ls) ! south
        end if
        if(ni(tile) == nj(ln) ) then
           do i = 1, nhalo
-             halo_data(1:ni(tile)+ioff, nj(tile)+i+joff, :)    = sign2*data2_all(i+joff, nj(ln)+ioff:1:-1, :, ln) ! north
+             halo_data(1:ni(tile)+ioff, nj(tile)+i+joff, :) = sign2*data2_all(i+joff, nj(ln)+ioff:1:-1, :, ln) ! north
           end do
        end if
     end if