Skip to content

Commit 6e92a61

Browse files
committed
Fix allocate error message typo.
1 parent 2686c53 commit 6e92a61

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

tools/mksurfdata_esmf/src/mkurbanparMod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -302,7 +302,7 @@ subroutine mkurban(file_mesh_i, file_data_i, mesh_o, pcturb_o, &
302302
! Regrid data_i to data_o
303303
if (allocated(data_o)) deallocate(data_o)
304304
allocate(data_o(max_regions, ns_o), stat=ier)
305-
if (ier/=0) call shr_sys_abort('error allocating data_i(max_regions, ns_o)')
305+
if (ier/=0) call shr_sys_abort('error allocating data_o(max_regions, ns_o)')
306306
! This regridding could be done either with or without fracarea normalization,
307307
! because we just use it to find a dominant value. We use nonorm because we already
308308
! have a nonorm mapper for the sake of PCTURB and this way we don't need to make a

0 commit comments

Comments
 (0)