Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/bilan_dyn_p.F

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

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

LMDZ4/branches/V3_test/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.