Changeset 1336 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/wake.F

Timestamp:

Apr 1, 2010, 2:27:52 PM (14 years ago)

Author:

idelkadi

Message:

• Remise de la valeur par default de alp_offset a 0.
• Ajout de la possiblite de lecture des parametres de ini_wake.F dans le fichier ini_wake_param.data
• Ajout de la possiblite de lecture des parametres de wake.F dans le fichier wake_param.data
• Correction dans la partie convection (nouvelle physique)

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/wake.F (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/wake.F

@@ -295 +295 @@
 
 ccc nrlmd Lecture du fichier wake_param.data
-c$$$      OPEN(99,file='wake_param.data',status='old',
-c$$$     $          form='formatted',err=9999)
-c$$$      READ(99,*,end=9998) stark
-c$$$      READ(99,*,end=9998) Alpk
-c$$$      READ(99,*,end=9998) wdens_ref
-c$$$      READ(99,*,end=9998) coefgw
-c$$$9998  Continue
-c$$$      CLOSE(99)
-c$$$9999  Continue
+      OPEN(99,file='wake_param.data',status='old',
+     $          form='formatted',err=9999)
+      READ(99,*,end=9998) stark
+      READ(99,*,end=9998) Alpk
+      READ(99,*,end=9998) wdens_ref
+      READ(99,*,end=9998) coefgw
+9998  Continue
+      CLOSE(99)
+9999  Continue
 c
 c   Initialisation de toutes des densites a wdens_ref.