@@ -372,7 +372,7 @@ PROGRAM mkEASETilesParam
372372
373373 ! get 1-based ind_col and ind_row indices of EASE grid cell that contains raster grid cell (i,j)
374374
375- call EASE_convert (EASELabel, clat, clon, r_ease, s_ease, _RC)
375+ call MAPL_EASE_convert (EASELabel, clat, clon, r_ease, s_ease, _RC)
376376
377377 ind_col = nint (r_ease) + 1
378378 ind_row = nint (s_ease) + 1 ! can be negative or greater than nr_ease (lat near N/S pole)
@@ -542,7 +542,7 @@ PROGRAM mkEASETilesParam
542542! do j =nr ,1 ,-1
543543!
544544! clat = -90. + float(j-1)*dy + dy/2.
545- ! call EASE_convert (EASELabel, clat, clon, r_ease, s_ease)
545+ ! call MAPL_EASE_convert (EASELabel, clat, clon, r_ease, s_ease)
546546!
547547! ind_col = nint(r_ease) + 1
548548! ind_row = nint(s_ease) + 1
@@ -656,7 +656,7 @@ PROGRAM mkEASETilesParam
656656
657657 ! get 1-based ind_col and ind_row indices of EASE grid cell that contains raster grid cell (i,j)
658658
659- call EASE_convert (EASELabel, clat, clon, r_ease, s_ease, _RC)
659+ call MAPL_EASE_convert (EASELabel, clat, clon, r_ease, s_ease, _RC)
660660
661661 ind_col = nint (r_ease) + 1
662662 ind_row = nint (s_ease) + 1 ! NOTE: can be zero or negative or greater than nr_ease (lat near N/S pole)
0 commit comments