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

Timestamp:

Jun 21, 2001, 10:28:29 PM (23 years ago)

Author:

lmdzadmin

Message:

Inclusion raideur du zoom dans les parametres a lire
LF

File:

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

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

@@ -40 +40 @@
       INTEGER   tapeout
       REAL clonn,clatt,grossismxx,grossismyy
-      REAL dzoomxx,dzoomyy
+      REAL dzoomxx,dzoomyy, tauxx,tauyy
       LOGICAL  fxyhypbb, ysinuss
       INTEGER i
@@ -473 +473 @@
       ENDIF
       
+!Config  Key  = taux
+!Config  Desc = raideur du zoom en  X
+!Config  Def  = 3
+!Config  Help = raideur du zoom en  X
+       tauxx = 3.0
+       CALL getin('taux',tauxx)
+
+      IF( fxyhypb )  THEN
+       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
+        PRINT *,' La valeur de taux passee par run.def est differente
+     * de celle lue sur le fichier  start '
+        STOP
+       ENDIF
+      ENDIF
+
+!Config  Key  = tauyy
+!Config  Desc = raideur du zoom en  Y
+!Config  Def  = 3
+!Config  Help = raideur du zoom en  Y
+       tauyy = 3.0
+       CALL getin('tauy',tauyy)
+
+      IF( fxyhypb )  THEN
+       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
+        PRINT *,' La valeur de tauy passee par run.def est differente
+     * de celle lue sur le fichier  start '
+        STOP
+       ENDIF
+      ENDIF
+
 cc
       IF( .NOT.fxyhypb  )  THEN
@@ -540 +570 @@
       write(tapeout,*)' fxyhypbb = ', fxyhypbb
       write(tapeout,*)' dzoomxx = ', dzoomxx
-      write(tapeout,*)' dzoomy = ', dzoomy
+      write(tapeout,*)' dzoomy = ', dzoomyy
+      write(tapeout,*)' tauxx = ', tauxx
+      write(tapeout,*)' tauyy = ', tauyy
 
       RETURN
@@ -623 +655 @@
        CALL getin('dzoomy',dzoomy)
 
-cc
+!Config  Key  = taux
+!Config  Desc = raideur du zoom en  X
+!Config  Def  = 3
+!Config  Help = raideur du zoom en  X
+       taux = 3.0
+       CALL getin('taux',taux)
+
+!Config  Key  = tauy
+!Config  Desc = raideur du zoom en  Y
+!Config  Def  = 3
+!Config  Help = raideur du zoom en  Y
+       tauy = 3.0
+       CALL getin('tauy',tauy)
 
 !Config  Key  = ysinus
@@ -671 +715 @@
       write(tapeout,*)' grossismy = ', grossismy
       write(tapeout,*)' fxyhypbb = ', fxyhypbb
-      write(tapeout,*)' dzoomxx = ', dzoomxx
+      write(tapeout,*)' dzoomx = ', dzoomx
       write(tapeout,*)' dzoomy = ', dzoomy
+      write(tapeout,*)' taux = ', taux
+      write(tapeout,*)' tauy = ', tauy
 c
       RETURN