Changeset 70


Ignore:
Timestamp:
Mar 7, 2000, 10:58:19 AM (25 years ago)
Author:
lmdz
Message:

Initialisation de q3d.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/etat0_netcdf.F

    r50 r70  
    217217      varname = 'q'
    218218      qd(:,:,:) = 0.0
     219      q3d(:,:,:,:) = 0.0
    219220      WRITE(*,*) 'QSAT min,max:',minval(qsat(:,:,:)),
    220221     .                           maxval(qsat(:,:,:))
Note: See TracChangeset for help on using the changeset viewer.