Removed prints/ commented statements and empty spaces

ufs-community · Jun 3, 2024 · b6a2460 · b6a2460
1 parent 1117f4f
commit b6a2460
Showing 1 changed file with 6 additions and 22 deletions.
diff --git a/sorc/sfc_climo_gen.fd/interp.F90 b/sorc/sfc_climo_gen.fd/interp.F90
@@ -115,10 +115,7 @@ subroutine interp(localpet, method, input_file)
      status=nf90_get_att(ncid, varid, 'scale_factor', scale)
       if (status == 0) then
           call scale_data(data_src_global,i_src,j_src,scale)
-       endif
-!      print *,"scale=", scale
-!      call scale_data(data_src_global,i_src,j_src,scale)
-
+      endif
 
    endif
 
@@ -389,42 +386,29 @@ end subroutine adjust_for_landice
 
 !> use Scale to fix the data to the correct value
 !! 
-!! 
-!!
-!! 
 !! @param[inout] idim i dimension of model tile.
 !! @param[inout] jdim j dimension of model tile.
 !! @param[in] field_ch Field name.
 !! @author George Gayno NCEP/EMC
 !! @author Sanath Kumar NCEP/EMC
- subroutine scale_data(field,idim,jdim,scale)
+!!
+subroutine scale_data(field,idim,jdim,scale)
 
  use esmf
  use mpi
 
  implicit none
-
-
-
  integer, intent(in)               :: idim, jdim
-
-
+ integer                           :: i, j
  real(esmf_kind_r4), intent(inout) :: field(idim,jdim)
-
-
- integer                           :: i, j, ierr
  double precision                  :: scale
 
-
-
-
      do j = 1, jdim
-     do i = 1, idim
+      do i = 1, idim
          field(i,j) = field(i,j)*scale
 
+      enddo
      enddo
-     enddo
-
  end subroutine scale_data