Prefix public EASE routines with MAPL_

Author: mathomp4

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/TileFile_ASCII_to_nc4.F90

@@ -7,7 +7,7 @@
 
 program TileFile_ASCII_to_nc4
   use, intrinsic :: iso_fortran_env, only: REAL64 
-  use MAPL,                          only: MAPL_WriteTilingNC4, ease_extent 
+  use MAPL,                          only: MAPL_WriteTilingNC4, MAPL_ease_extent 
   use LogRectRasterizeMod,           only: MAPL_UNDEF_R8
 
   implicit none
@@ -113,7 +113,7 @@ program TileFile_ASCII_to_nc4
      ! rTable(:,4) is tile area fraction within grid cell (fr), convert to area;
      ! get fr back in WriteTilingNC4
 
-     call ease_extent(gName1, tmp_in1, tmp_in2, cell_area=cell_area)  ! get EASE grid cell area
+     call MAPL_ease_extent(gName1, tmp_in1, tmp_in2, cell_area=cell_area)  ! get EASE grid cell area
 
      rTable(:,3) = rTable(:,4)*cell_area
      rTable(:,4) = cell_area 

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/mkCatchParam.F90

@@ -21,7 +21,7 @@ PROGRAM mkCatchParam
 !  
 ! Sarith Mahanama - March 23, 2012 
 ! Email: [email protected]
-  use MAPL, only: ease_extent, MAPL_ReadTilingNC4 
+  use MAPL, only: MAPL_ease_extent, MAPL_ReadTilingNC4 
   use rmTinyCatchParaMod 
   use process_hres_data
   use MAPL_ExceptionHandling
@@ -193,7 +193,7 @@ PROGRAM mkCatchParam
 
    if (index(Gridname,'EASEv') /=0) then
       ! here Gridname has alias EASELabel
-      call ease_extent(Gridname, nc_ease, nr_ease, _RC)
+      call MAPL_ease_extent(Gridname, nc_ease, nr_ease, _RC)
       write(nc_string, '(i0)') nc_ease
       write(nr_string, '(i0)') nr_ease
       Gridname = trim(Gridname)//'_'//trim(nc_string)//'x'//trim(nr_string)

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/mkEASETilesParam.F90

@@ -38,7 +38,7 @@ PROGRAM mkEASETilesParam
   use MAPL_SortMod
   use MAPL_ConstantsMod,     only : MAPL_PI_r8, MAPL_RADIUS
   use MAPL_ExceptionHandling
-  use MAPL,                  only : ease_extent, ease_convert, ease_inverse, MAPL_WriteTilingNC4
+  use MAPL,                  only : MAPL_ease_extent, MAPL_ease_convert, MAPL_ease_inverse, MAPL_WriteTilingNC4
   use netcdf
 
   implicit none
@@ -157,7 +157,7 @@ PROGRAM mkEASETilesParam
 
   EASElabel = trim(EASELabel_)
 
-  call ease_extent( EASELabel, nc_ease, nr_ease, _RC)
+  call MAPL_ease_extent( EASELabel, nc_ease, nr_ease, _RC)
 
   write(nc_string, '(i0)') nc_ease
   write(nr_string, '(i0)') nr_ease
@@ -883,20 +883,20 @@ PROGRAM mkEASETilesParam
      ! get min/max lat/lon of EASE grid cell
      ! BUG: This is *not* the desired min/max lat/lon of the land tile!!!
 
-     call EASE_inverse( EASELabel, real(ig-1), real(jg-1), clat, clon, _RC) 
+     call MAPL_ease_inverse( EASELabel, real(ig-1), real(jg-1), clat, clon, _RC) 
 
      mnx = clon - dx_ease
      mxx = clon + dx_ease
 
      jgv = real(jg-1) + 0.5
 
-     call EASE_inverse( EASELabel, real(ig-1), jgv, clat, clon, _RC) 
+     call MAPL_ease_inverse( EASELabel, real(ig-1), jgv, clat, clon, _RC) 
 
      mny = clat
 
      jgv = real(jg-1) - 0.5
 
-     call EASE_inverse( EASELabel, real(ig-1), jgv, clat, clon, _RC) 
+     call MAPL_ease_inverse( EASELabel, real(ig-1), jgv, clat, clon, _RC) 
 
      mxy = clat 
 
@@ -920,7 +920,7 @@ PROGRAM mkEASETilesParam
      !       contributing raster grid cells, which is *not* the same for all EASE grid cells;
      !       that is, cannot use exact (globally constant) area of EASE grid  cell.
 
-     call EASE_inverse( EASELabel, real(ig-1), real(jg-1), clat, clon, _RC)
+     call MAPL_ease_inverse( EASELabel, real(ig-1), real(jg-1), clat, clon, _RC)
 
      fr_gcm = tile_area(nn) / ease_grid_area((jg-1)*nc_ease+ig)
 
@@ -1031,7 +1031,7 @@ PROGRAM mkEASETilesParam
 !!!           do i = 1, nc_ease+1
 !!!              x = real(i-1)        -0.5
 !!!              y = real(nr_ease - j)+0.5
-!!!              call EASE_inverse(MGRID, x, y, yout, xout)
+!!!              call MAPL_ease_inverse(MGRID, x, y, yout, xout)
 !!!              ys (i,j) = dble(yout)
 !!!              xs (i,j) = dble(xout)
 !!!           end do