Changeset 99 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

Timestamp:

Jul 5, 2000, 4:59:27 PM (24 years ago)

Author:

lmdzadmin

Message:

Version de travail de l'interface avec les surfaces. LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

@@ -216 +216 @@
       !
       varname = 'q'
+      q3d(:,:,:,:) = 0.0
       qd(:,:,:) = 0.0
       WRITE(*,*) 'QSAT min,max:',minval(qsat(:,:,:)),