Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/bilan_dyn_p.F

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3dpar/bilan_dyn_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/bilan_dyn_p.F

@@ -168 +168 @@
 c   Initialisation
 c=====================================================================
+      ndex3d=0
       if (adjust) return
       
@@ -342 +343 @@
       Q(:,jjb:jje,:,iang)=ang(:,jjb:jje,:)
       Q(:,jjb:jje,:,iu)=unat(:,jjb:jje,:)
-      Q(:,jjb:jje,:,iovap)=q(:,jjb:jje,:,1)
+      Q(:,jjb:jje,:,iovap)=trac(:,jjb:jje,:,1)
       Q(:,jjb:jje,:,iun)=1.