Skip to content

Commit da2b028

Browse files
committed
Missed some
1 parent f43a350 commit da2b028

File tree

1 file changed

+3
-3
lines changed
  • GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs

1 file changed

+3
-3
lines changed

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

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)