<p><b>fanglin.yang@noaa.gov</b> 2012-05-07 15:28:32 -0600 (Mon, 07 May 2012)</p><p>update Sfc_Var_ESMFMod.f module_bfmicrophysics.f<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f
===================================================================
--- branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f        2012-05-07 18:46:36 UTC (rev 1874)
+++ branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f        2012-05-07 21:28:32 UTC (rev 1875)
@@ -306,6 +306,8 @@
        data%gv10m   = 0.
        data%gzorl   = 0.
        data%goro    = 0.
+
+       iret=0
      return
   end subroutine
  END MODULE Sfc_Flx_ESMFMod

Modified: branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/module_bfmicrophysics.f
===================================================================
--- branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/module_bfmicrophysics.f        2012-05-07 18:46:36 UTC (rev 1874)
+++ branches/atmos_physics_gfs/src/core_atmos_physics_gfs/physics_gfs/module_bfmicrophysics.f        2012-05-07 21:28:32 UTC (rev 1875)
@@ -933,9 +933,9 @@
         MASSI(J)=MASSI(J)/mdiam
         if (mod(j,10) == 0 .AND. print_diag) then
           xmdiam=1.e3*mdiam
-          write(6,&quot;(f5.3,4e11.4,f6.3,f8.3)&quot;) xmdiam,VENTI1(j),VENTI2(j),&amp;
+          write(6,&quot;(f6.3,4e11.4,f6.3,f8.3)&quot;) xmdiam,VENTI1(j),VENTI2(j),&amp;
      &amp;      ACCRI(j),MASSI(j),VSNOWI(j),bulk_dens
-          write(7,&quot;(f5.3,23f5.2)&quot;) xmdiam,(ivel_rime(j,k), k=1,5),      &amp;
+          write(7,&quot;(f6.3,23f5.2)&quot;) xmdiam,(ivel_rime(j,k), k=1,5),      &amp;
      &amp;       (ivel_rime(j,k), k=6,40,2)
           icount=icount+1
         endif
@@ -958,7 +958,7 @@
         do k=1,Nrime
           VEL_RF(j,k)=.01*VEL_RF(j,k)
         enddo
-        if (print_diag) write(7,&quot;(f3.1,2x,23f5.2)&quot;) 0.1*j,              &amp;
+        if (print_diag) write(7,&quot;(f4.1,2x,23f5.2)&quot;) 0.1*j,              &amp;
      &amp;    (VEL_RF(j,k), k=1,5),(VEL_RF(j,k), k=6,40,2)
       enddo
 !
@@ -1074,7 +1074,7 @@
         MASSR(J)=cmass*MASSR(J)
         RRATE(J)=cmass*RRATE(J)
         VRAIN(J)=RRATE(J)/MASSR(J)
-        if (print_diag) write(6,&quot;(f5.3,5g12.5,f6.3)&quot;) 1000.*mdiam,      &amp;
+        if (print_diag) write(6,&quot;(f6.3,5g12.5,f6.3)&quot;) 1000.*mdiam,      &amp;
      &amp;    ventr1(j),ventr2(j),accrr(j),8.e6*massr(j),rrate(j),vrain(j)
       enddo
 !

</font>
</pre>