Changeset 1376 for trunk/LMDZ.MARS/libf/phymars
- Timestamp:
- Feb 11, 2015, 11:27:25 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/aeropacity.F
r1375 r1376 611 611 zdqnorm(:,l,1) = more_dust(:,l,1) 612 612 zdqnorm(:,l,2) = more_dust(:,l,2) 613 pq(:,l,igcm_dust_mass)= pq(:,l,igcm_dust_mass)+ zdqnorm(:,l,1) 614 pq(:,l,igcm_dust_number)= pq(:,l,igcm_dust_number)+ zdqnorm(:,l,2) 613 pq(:,l,igcm_dust_mass)= pq(:,l,igcm_dust_mass) 614 . + zdqnorm(:,l,1) 615 pq(:,l,igcm_dust_number)= pq(:,l,igcm_dust_number) 616 . + zdqnorm(:,l,2) 615 617 ENDDO 616 618 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.