Changeset 708 for trunk/LMDZ.MARS/libf/phymars/physiq.F
- Timestamp:
- Jun 22, 2012, 3:30:46 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/physiq.F
r706 r708 1705 1705 !! JF 1706 1706 IF (igcm_dust_mass .ne. 0) THEN 1707 qsurf ice_dust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)1707 qsurfdust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass) 1708 1708 ENDIF 1709 1709 IF (igcm_h2o_ice .ne. 0) THEN
Note: See TracChangeset
for help on using the changeset viewer.