Changeset 203 for LMDZ.3.3/trunk/libf/dyn3d/dynetat0.F

Timestamp:

Apr 12, 2001, 11:30:31 AM (23 years ago)

Author:

lmdz

Message:

Mise en oeuvre du nouveau zoom. Modifs P. Levan
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/dynetat0.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/dynetat0.F

@@ +1 @@
+c
+c $Header
+c
       SUBROUTINE dynetat0(fichnom,nq,vcov,ucov,
      .                    teta,q,masse,ps,phis,time)
@@ -105 +108 @@
         dzoomx   = tab_cntrl(25)
         dzoomy   = tab_cntrl(26)
+        taux     = tab_cntrl(28)
+        tauy     = tab_cntrl(29)
       ELSE
         fxyhypb = . FALSE .