Merge pull request #6 from junwang-noaa/inlinepost_stub

fix the argument list in inline_post_getattr and remove prints and post_gfs_stub.F90

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
 

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, &