From 2aa049c7f302dc30684365bb0f6cffb9b5578fcc Mon Sep 17 00:00:00 2001 From: Lauren Chilutti Date: Thu, 27 Jan 2022 13:38:26 -0500 Subject: [PATCH] fixing call to pmaxmin to no longer get a compilation error when compiling with GNU. --- tools/external_ic.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tools/external_ic.F90 b/tools/external_ic.F90 index a2d8e7a3b..7d167253f 100644 --- a/tools/external_ic.F90 +++ b/tools/external_ic.F90 @@ -2467,10 +2467,10 @@ subroutine get_fv_ic( Atm, fv_domain, nq ) ! Share the load if(is_master()) call pmaxmin( 'ZS_data', gz0, im, jm, 1./grav) - if(mpp_pe()==1) call pmaxmin( 'U_data', u0, im*jm, km, 1.) - if(mpp_pe()==1) call pmaxmin( 'V_data', v0, im*jm, km, 1.) - if(mpp_pe()==2) call pmaxmin( 'T_data', t0, im*jm, km, 1.) - if(mpp_pe()==3) call pmaxmin( 'DEL-P', dp0, im*jm, km, 0.01) + if(mpp_pe()==1) call pmaxmin( 'U_data', reshape(u0, (/ im*jm, km /)), im*jm, km, 1.) + if(mpp_pe()==1) call pmaxmin( 'V_data', reshape(v0, (/ im*jm, km /)), im*jm, km, 1.) + if(mpp_pe()==2) call pmaxmin( 'T_data', reshape(t0, (/ im*jm, km /)), im*jm, km, 1.) + if(mpp_pe()==3) call pmaxmin( 'DEL-P', reshape(dp0, (/ im*jm, km /)), im*jm, km, 0.01) call close_file(Latlon_dyn) else @@ -2508,8 +2508,8 @@ subroutine get_fv_ic( Atm, fv_domain, nq ) deallocate ( u0 ) deallocate ( v0 ) - if(mpp_pe()==4) call pmaxmin( 'UA', ua, im*jm, km, 1.) - if(mpp_pe()==4) call pmaxmin( 'VA', va, im*jm, km, 1.) + if(mpp_pe()==4) call pmaxmin( 'UA', reshape(ua, (/ im*jm, km /)), im*jm, km, 1.) + if(mpp_pe()==4) call pmaxmin( 'VA', reshape(va, (/ im*jm, km /)), im*jm, km, 1.) do j=1,jm do i=1,im