@@ -25,9 +25,9 @@ module clsm_ensupd_read_obs
2525 use io_hdf5, ONLY: &
2626 hdf5read
2727
28- use EASE_conv, ONLY: &
29- ease_convert, &
30- ease_extent
28+ use MAPL, ONLY: &
29+ MAPL_ease_convert, &
30+ MAPL_ease_extent
3131
3232 use LDAS_ensdrv_globals, ONLY: &
3333 logit, &
@@ -5542,12 +5542,12 @@ subroutine read_obs_SMOS( date_time, N_catd, this_obs_param, &
55425542
55435543 if (tmp_tile_num(ii)>0 ) then
55445544
5545- call ease_convert (' EASEv2_M36' , &
5545+ call MAPL_ease_convert (' EASEv2_M36' , &
55465546 tile_coord(tmp_tile_num(ii))% com_lat, &
55475547 tile_coord(tmp_tile_num(ii))% com_lon, &
55485548 M36_col_ind_tile, M36_row_ind_tile )
55495549
5550- call ease_convert (' EASEv2_M36' , &
5550+ call MAPL_ease_convert (' EASEv2_M36' , &
55515551 tmp_lat(ii), &
55525552 tmp_lon(ii), &
55535553 M36_col_ind_obs, M36_row_ind_obs )
@@ -7159,12 +7159,12 @@ subroutine read_obs_SMAP_FT( date_time, N_catd, this_obs_param, &
71597159
71607160 if (tmp_tile_num(ii)>0 ) then
71617161
7162- call ease_convert (' EASEv2_M09' , &
7162+ call MAPL_ease_convert (' EASEv2_M09' , &
71637163 tile_coord(tmp_tile_num(ii))% com_lat, &
71647164 tile_coord(tmp_tile_num(ii))% com_lon, &
71657165 M09_col_ind_tile, M09_row_ind_tile )
71667166
7167- call ease_convert (' EASEv2_M09' , &
7167+ call MAPL_ease_convert (' EASEv2_M09' , &
71687168 tmp_lat(ii), &
71697169 tmp_lon(ii), &
71707170 M09_col_ind_obs, M09_row_ind_obs )
@@ -8229,12 +8229,12 @@ subroutine read_obs_SMAP_halforbit_Tb( date_time, N_catd, this_obs_param, &
82298229
82308230 if (tmp_tile_num(ii)>0 ) then
82318231
8232- call ease_convert (' EASEv2_M36' , &
8232+ call MAPL_ease_convert (' EASEv2_M36' , &
82338233 tile_coord(tmp_tile_num(ii))% com_lat, &
82348234 tile_coord(tmp_tile_num(ii))% com_lon, &
82358235 M36_col_ind_tile, M36_row_ind_tile )
82368236
8237- call ease_convert (' EASEv2_M36' , &
8237+ call MAPL_ease_convert (' EASEv2_M36' , &
82388238 tmp_lat(ii), &
82398239 tmp_lon(ii), &
82408240 M36_col_ind_obs, M36_row_ind_obs )
@@ -8529,7 +8529,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
85298529 !
85308530 ! assemble 36 km EASEv2 mask of L2AP_Tb obs
85318531
8532- call ease_extent ( ' EASEv2_M36' , N_cols, N_rows )
8532+ call MAPL_ease_extent ( ' EASEv2_M36' , N_cols, N_rows )
85338533
85348534 allocate ( mask_h_A(N_cols,N_rows) )
85358535 allocate ( mask_h_D(N_cols,N_rows) )
@@ -8551,7 +8551,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
85518551
85528552 if (Observations_f(ii)% species== species_L2AP_Tbh_A) then
85538553
8554- call ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
8554+ call MAPL_ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
85558555 col, row)
85568556
85578557 ! set mask=.true. for the M36 grid cell that contains the L2AP_Tb obs;
@@ -8573,7 +8573,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
85738573
85748574 if (Observations_f(ii)% species== species_L2AP_Tbh_D) then
85758575
8576- call ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
8576+ call MAPL_ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
85778577 col, row)
85788578
85798579 ! set mask=.true. for the M36 grid cell that contains the L2AP_Tb obs;
@@ -8595,7 +8595,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
85958595
85968596 if (Observations_f(ii)% species== species_L2AP_Tbv_A) then
85978597
8598- call ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
8598+ call MAPL_ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
85998599 col, row)
86008600
86018601 ! set mask=.true. for the M36 grid cell that contains the L2AP_Tb obs;
@@ -8617,7 +8617,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
86178617
86188618 if (Observations_f(ii)% species== species_L2AP_Tbv_D) then
86198619
8620- call ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
8620+ call MAPL_ease_convert (' EASEv2_M36' , Observations_f(ii)% lat, Observations_f(ii)% lon, &
86218621 col, row)
86228622
86238623 ! set mask=.true. for the M36 grid cell that contains the L2AP_Tb obs;
@@ -8652,7 +8652,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
86528652
86538653 if (Observations_l(ii)% species== species_L1C_Tbh_A) then
86548654
8655- call ease_convert (' EASEv2_M36' , &
8655+ call MAPL_ease_convert (' EASEv2_M36' , &
86568656 Observations_l(ii)% lat, Observations_l(ii)% lon, col, row)
86578657
86588658 ! note conversion to one-based indices
@@ -8671,7 +8671,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
86718671
86728672 if (Observations_l(ii)% species== species_L1C_Tbh_D) then
86738673
8674- call ease_convert (' EASEv2_M36' , &
8674+ call MAPL_ease_convert (' EASEv2_M36' , &
86758675 Observations_l(ii)% lat, Observations_l(ii)% lon, col, row)
86768676
86778677 ! note conversion to one-based indices
@@ -8692,7 +8692,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
86928692
86938693 if (Observations_l(ii)% species== species_L1C_Tbv_A) then
86948694
8695- call ease_convert (' EASEv2_M36' , &
8695+ call MAPL_ease_convert (' EASEv2_M36' , &
86968696 Observations_l(ii)% lat, Observations_l(ii)% lon, col, row)
86978697
86988698 ! note conversion to one-based indices
@@ -8711,7 +8711,7 @@ subroutine turn_off_assim_SMAP_L1CTb(N_obs_param, obs_param, N_obsl, Observation
87118711
87128712 if (Observations_l(ii)% species== species_L1C_Tbv_D) then
87138713
8714- call ease_convert (' EASEv2_M36' , &
8714+ call MAPL_ease_convert (' EASEv2_M36' , &
87158715 Observations_l(ii)% lat, Observations_l(ii)% lon, col, row)
87168716
87178717 ! note conversion to one-based indices
0 commit comments