<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,"(f5.3,4e11.4,f6.3,f8.3)") xmdiam,VENTI1(j),VENTI2(j),&
+ write(6,"(f6.3,4e11.4,f6.3,f8.3)") xmdiam,VENTI1(j),VENTI2(j),&
& ACCRI(j),MASSI(j),VSNOWI(j),bulk_dens
- write(7,"(f5.3,23f5.2)") xmdiam,(ivel_rime(j,k), k=1,5), &
+ write(7,"(f6.3,23f5.2)") xmdiam,(ivel_rime(j,k), k=1,5), &
& (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,"(f3.1,2x,23f5.2)") 0.1*j, &
+ if (print_diag) write(7,"(f4.1,2x,23f5.2)") 0.1*j, &
& (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,"(f5.3,5g12.5,f6.3)") 1000.*mdiam, &
+ if (print_diag) write(6,"(f6.3,5g12.5,f6.3)") 1000.*mdiam, &
& ventr1(j),ventr2(j),accrr(j),8.e6*massr(j),rrate(j),vrain(j)
enddo
!
</font>
</pre>