Changeset 966

Timestamp:

Jun 11, 2008, 1:11:11 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Les parametres lus dans parameter_mix.data sont maintenant lus par
conf_gcm
LF

File:

• LMDZ4/trunk/libf/phylmd/cv3_inicp.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cv3_inicp.F

@@ -12 +12 @@
 #include "YOMCST2.h"
 c
-      INTEGER iflag_clos,iflag_mix
+      INTEGER iflag_clos
 c
 c --   Mixing probability distribution functions
@@ -53 +53 @@
 C
 
-        open(57,file='parameter_mix.data')
+c        open(57,file='parameter_mix.data')
 
-        read(57,*) iflag_clos
-        read(57,*) iflag_mix, scut
-        read(57,*)
-        if(iflag_mix .gt. 0) then
-              read(57,*) qqa1, qqa2
-              read(57,*)
-              read(57,*) gammas, Fmax
-              read(57,*)
-              read(57,*) alphas
-         endif
-         close(57)
+c        read(57,*) iflag_clos
+c        read(57,*) iflag_mix, scut
+c        read(57,*)
+c        if(iflag_mix .gt. 0) then
+c             read(57,*) qqa1, qqa2
+c              read(57,*)
+c              read(57,*) gammas, Fmax
+c              read(57,*)
+c              read(57,*) alphas
+c         endif
+c        close(57)
 c
       if(iflag_mix .gt. 0) then