<p><b>fanglin.yang@noaa.gov</b> 2014-01-10 14:18:03 -0700 (Fri, 10 Jan 2014)</p><p>update dotstep.f to initialize lsfwd and lssav<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/dotstep.f
===================================================================
--- branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/dotstep.f 2013-06-07 18:12:16 UTC (rev 2792)
+++ branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/dotstep.f 2014-01-10 21:18:03 UTC (rev 2793)
@@ -79,9 +79,11 @@
!-----mpas related fileds--------
!****************************************************************************
- lprnt=.true.
+ lprnt=.false.
nodes=nodes_mpas
me=node0_mpas
+ lsfwd=.false.
+ lssav=.true.
!---------------
!--at initial time to allocate GFS-related model arrays,
@@ -133,6 +135,7 @@
CALL ATM_SURF_INIT
if(lprnt) print*," end of ATM_SURF_INIT"
+ lsfwd=.true.
ifirst=0
endif
!---------------
</font>
</pre>