diff --git a/io/inline_post_stub.F90 b/io/inline_post_stub.F90 index 35c400ba0..f33c78d6e 100644 --- a/io/inline_post_stub.F90 +++ b/io/inline_post_stub.F90 @@ -34,23 +34,20 @@ subroutine inline_post_run(wrt_int_state,mypei,mpicomp,lead_write, & integer,intent(in) :: mynfmin integer,intent(in) :: mynfsec ! - print *,'in stub post_run_gfs - not supported on this machine, return' + print *,'in stub inline_post_run - not supported on this machine, return' ! end subroutine inline_post_run ! !----------------------------------------------------------------------- ! - subroutine inline_post_getattr(wrt_int_state, fldbundle) -! - use esmf + subroutine inline_post_getattr(wrt_int_state) ! implicit none ! type(wrt_internal_state),intent(inout) :: wrt_int_state - type(ESMF_FieldBundle), intent(in) :: fldbundle ! ! - print *,'in stub post_getattr_gfs - not supported on this machine, return' + print *,'in stub inline_post_getattr - not supported on this machine, return' ! end subroutine inline_post_getattr diff --git a/io/post_gfs_stub.F90 b/io/post_gfs_stub.F90 deleted file mode 100644 index 3e61e31a1..000000000 --- a/io/post_gfs_stub.F90 +++ /dev/null @@ -1,58 +0,0 @@ -!----------------------------------------------------------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------------------------------------------------------------- -! -module post_gfs - - use module_fv3_io_def, only : wrttasks_per_group,filename_base - use write_internal_state, only : wrt_internal_state - - implicit none - - public post_run_gfs, post_getattr_gfs - - contains - - subroutine post_run_gfs(wrt_int_state,mypei,mpicomp,lead_write, & - mynfhr,mynfmin,mynfsec) -! -! revision history: -! Jul 2019 J. Wang create interface to run inline post for FV3 -! -! -!----------------------------------------------------------------------- -! - implicit none -! -!----------------------------------------------------------------------- -! - type(wrt_internal_state),intent(in) :: wrt_int_state - integer,intent(in) :: mypei - integer,intent(in) :: mpicomp - integer,intent(in) :: lead_write - integer,intent(in) :: mynfhr - integer,intent(in) :: mynfmin - integer,intent(in) :: mynfsec -! - print *,'in stub post_run_gfs - not supported on this machine, return' -! - end subroutine post_run_gfs -! -!----------------------------------------------------------------------- -! - subroutine post_getattr_gfs(wrt_int_state, fldbundle) -! - use esmf -! - implicit none -! - type(wrt_internal_state),intent(inout) :: wrt_int_state - type(ESMF_FieldBundle), intent(in) :: fldbundle -! -! - print *,'in stub post_getattr_gfs - not supported on this machine, return' -! - end subroutine post_getattr_gfs - - - end module post_gfs diff --git a/io/post_regional.F90 b/io/post_regional.F90 index 953461a1f..eecd5c10f 100644 --- a/io/post_regional.F90 +++ b/io/post_regional.F90 @@ -250,8 +250,8 @@ subroutine post_getattr_regional(wrt_int_state) fldbundle = wrt_int_state%wrtFB(nfb) ! set grid spec: - if(mype==0) print*,'in post_getattr_lam,output_grid=',trim(output_grid),'nfb=',nfb - if(mype==0) print*,'in post_getattr_lam, lon1=',lon1,lon2,lat1,lat2,dlon,dlat +! if(mype==0) print*,'in post_getattr_lam,output_grid=',trim(output_grid),'nfb=',nfb +! if(mype==0) print*,'in post_getattr_lam, lon1=',lon1,lon2,lat1,lat2,dlon,dlat gdsdegr = 1000000. if(trim(output_grid) == 'regional_latlon') then @@ -274,8 +274,8 @@ subroutine post_getattr_regional(wrt_int_state) dxval = dlon*gdsdegr dyval = dlat*gdsdegr - if(mype==0) print*,'lonstart,latstart,dyval,dxval', & - lonstart,lonlast,latstart,latlast,dyval,dxval +! if(mype==0) print*,'lonstart,latstart,dyval,dxval', & +! lonstart,lonlast,latstart,latlast,dyval,dxval else if(trim(output_grid) == 'lambert_conformal') then MAPTYPE=1 @@ -347,8 +347,8 @@ subroutine post_getattr_regional(wrt_int_state) dyval = spval endif - if(mype==0) print*,'rotated latlon,lonstart,latstart,cenlon,cenlat,dyval,dxval', & - lonstart_r,lonlast_r,latstart_r,latlast_r,cenlon,cenlat,dyval,dxval +! if(mype==0) print*,'rotated latlon,lonstart,latstart,cenlon,cenlat,dyval,dxval', & +! lonstart_r,lonlast_r,latstart_r,latlast_r,cenlon,cenlat,dyval,dxval endif ! look at the field bundle attributes @@ -557,8 +557,8 @@ subroutine set_postvars_regional(wrt_int_state,mpicomp,setvar_atmfile, & tsrfc = tprec tmaxmin = tprec td3d = tprec - if(mype==0)print*,'MP_PHYSICS= ',imp_physics,'nbdl=',nbdl, 'tprec=',tprec,'tclod=',tclod, & - 'dtp=',dtp,'tmaxmin=',tmaxmin,'jsta=',jsta,jend,im,jm +! if(mype==0)print*,'MP_PHYSICS= ',imp_physics,'nbdl=',nbdl, 'tprec=',tprec,'tclod=',tclod, & +! 'dtp=',dtp,'tmaxmin=',tmaxmin,'jsta=',jsta,jend,im,jm ! !$omp parallel do default(shared),private(i,j) @@ -803,7 +803,7 @@ subroutine set_postvars_regional(wrt_int_state,mpicomp,setvar_atmfile, & idat(4) = wrt_int_state%fdate(4) idat(5) = wrt_int_state%fdate(5) ! - if(mype==0) print *,'idat=',idat,'sdat=',sdat,'ihrst=',ihrst +! if(mype==0) print *,'idat=',idat,'sdat=',sdat,'ihrst=',ihrst ! CALL W3DIFDAT(JDATE,IDATE,0,RINC) ! ! if(mype==0)print *,' rinc=',rinc @@ -925,14 +925,14 @@ subroutine set_postvars_regional(wrt_int_state,mpicomp,setvar_atmfile, & if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & line=__LINE__, file=__FILE__)) return ! bail out - if(mype==0) print *,'in setvar, allocate fcstField,ibdl=',ibdl,'count=',ncount_field,'wrtFBname=',trim(wrtFBName) +! if(mype==0) print *,'in setvar, allocate fcstField,ibdl=',ibdl,'count=',ncount_field,'wrtFBname=',trim(wrtFBName) allocate(fcstField(ncount_field)) call ESMF_FieldBundleGet(wrt_int_state%wrtFB(ibdl), & fieldList=fcstField, itemorderflag=ESMF_ITEMORDER_ADDORDER, rc=rc) if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, & line=__LINE__, file=__FILE__)) return ! bail out - if(mype==0) print *,'in setvar, read field, ibdl=',ibdl, 'nfield=',ncount_field +! if(mype==0) print *,'in setvar, read field, ibdl=',ibdl, 'nfield=',ncount_field do n=1, ncount_field ! call ESMF_FieldGet(fcstField(n),typekind=typekind, name=fieldname, &