Changeset 604 for LMDZ.3.3/branches/rel-LF/libf/dyn3d

Timestamp:

Mar 16, 2005, 11:12:17 AM (20 years ago)

Author:

Laurent Fairhead

Message:

Repere par GG
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F (modified) (2 diffs)

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

@@ -310 +310 @@
       Q(:,:,:,iang)=ang(:,:,:)
       Q(:,:,:,iu)=unat(:,:,:)
-      Q(:,:,:,iovap)=q(:,:,:,1)
+      Q(:,:,:,iovap)=trac(:,:,:,1)
       Q(:,:,:,iun)=1.
 
@@ -401 +401 @@
 c=====================================================================
 
-      print*,'Pas d ecriture'
+c      print*,'Pas d ecriture'
 
 c   Normalisation