Changeset 203 for LMDZ.3.3/trunk/libf/dyn3d/dynredem.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/dynredem.F (modified) (3 diffs)

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

@@ +1 @@
+c
+c $Header
+c
       SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq)
       USE IOIPSL
@@ -92 +95 @@
        tab_cntrl(25) = dzoomx
        tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = taux
+       tab_cntrl(29) = tauy
       ELSE
        tab_cntrl(24) = 0.
@@ -97 +103 @@
        tab_cntrl(26) = dzoomy
        tab_cntrl(27) = 0.
-       IF( ysinus )  tab_cntrl(27) = 1. 
+       tab_cntrl(28) = 0.
+       tab_cntrl(29) = 0.
+       IF( ysinus )  tab_cntrl(27) = 1.
       ENDIF
 c