Changeset 970 for LMDZ4/trunk/libf/phylmd/ini_wake.F

Timestamp:

Jun 12, 2008, 11:38:46 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Corrections petits bugs divers
LF

File:

• LMDZ4/trunk/libf/phylmd/ini_wake.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/ini_wake.F

@@ -35 +35 @@
       real it
 cCR: on rajoute ale et alp de la PBL precrits
-      open (99,file='wake.data',form='formatted')
-      read (99,*) it
-      read (99,*) w
-      read (99,*) f
-      read (99,*) u
-      read (99,*) p
-      close (99)
+c     open (99,file='wake.data',form='formatted')
+c     read (99,*) it
+c     read (99,*) w
+c     read (99,*) f
+c     read (99,*) u
+c     read (99,*) p
+c     close (99)
+
+! FH A mettre si besoin dans physiq.def
+! FH : voir avec JYG
+      it=0.
+      w=4.
+      f=0.1
+      u=0.1
+      p=4.
 c
       print *,' it,w ',it,w