Changeset 665 for trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS
- Timestamp:
- May 23, 2012, 10:33:16 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/readmeteo.F90
r549 r665 662 662 if (ierr.ne.NF_NOERR) then 663 663 write(*,*) "...No ccn - CCN mass set to 0" 664 dustfile(:,:,:,:)=0.664 ccnfile(:,:,:,:)=0. 665 665 else 666 666 ierr=NF_GET_VAR_REAL(nid,nvarid,ccnfile) … … 671 671 if (ierr.ne.NF_NOERR) then 672 672 write(*,*) "...No ccnN - CCN number set to 0" 673 dustnfile(:,:,:,:)=0.673 ccnnfile(:,:,:,:)=0. 674 674 else 675 675 ierr=NF_GET_VAR_REAL(nid,nvarid,ccnnfile)
Note: See TracChangeset
for help on using the changeset viewer.