Changeset 963 for LMDZ4/trunk/libf/phylmd/cv3_inip.F

Timestamp:

Jun 9, 2008, 11:54:29 AM (17 years ago)

Author:

Laurent Fairhead

Message:

On passe les parametres lus dans parameter_mix.data et supcrit.data dans le
physiq.def
LF

File:

• LMDZ4/trunk/libf/phylmd/cv3_inip.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/cv3_inip.F

@@ -1 @@
-        SUBROUTINE cv3_inip(iflag_mix)
+        SUBROUTINE cv3_inip()
 ***************************************************************
 *                                                             *
@@ -11 +11 @@
 #include "YOMCST2.h"
 c
-      INTEGER iflag_mix
+c      INTEGER iflag_mix
 c
 c --   Mixing probability distribution functions
@@ -52 +52 @@
 C
 
-        open(57,file='parameter_mix.data')
+c$$$        open(57,file='parameter_mix.data')
+c$$$
+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)
 
-        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
       if(iflag_mix .gt. 0) then