Changeset 2248 for trunk/LMDZ.MARS/libf/phymars
- Timestamp:
- Mar 4, 2020, 6:31:04 PM (5 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/physiq_mod.F
r2247 r2248 1124 1124 hsummit(:)=14000. 1125 1125 endif 1126 clearatm=.true. 1126 1127 nohmons=.false. 1127 1128 pdqtop(:,:,:)=0. -
trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90
r2246 r2248 257 257 258 258 !! Update the initial mixing ratios 259 zq0(1:ngrid,1:nlayer,1:nq)=pq(1:ngrid,1:nlayer,1:nq) !+pdq(1:ngrid,1:nlayer,1:nq)*ptimestep update after rocket dust storm scheme ?259 zq0(1:ngrid,1:nlayer,1:nq)=pq(1:ngrid,1:nlayer,1:nq)+pdq(1:ngrid,1:nlayer,1:nq)*ptimestep ! update of the background dust after rocket dust storm scheme 260 260 zq(1:ngrid,1:nlayer,1:nq)=zq0(1:ngrid,1:nlayer,1:nq) 261 261 zq_dust_mass(1:ngrid,1:nlayer)=zq(1:ngrid,1:nlayer,igcm_dust_mass)
Note: See TracChangeset
for help on using the changeset viewer.