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

Timestamp:

Jun 9, 2008, 11:54:29 AM (16 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/concvl.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/concvl.F

@@ -118 +118 @@
        REAL zx_t,zdelta,zx_qs,zcor
 c
-       INTEGER iflag_mix
-       SAVE iflag_mix
+!       INTEGER iflag_mix
+!       SAVE iflag_mix
        INTEGER noff, minorig
        INTEGER i,k,itra
@@ -215 +215 @@
 C
       if (iflag_con.eq.3) then
-c     CALL cv3_inicp(iflag_clos,iflag_mix)
-      CALL cv3_inip(iflag_mix)
+c     CALL cv3_inicp()
+      CALL cv3_inip()
       endif
 c
@@ -223 +223 @@
 C===========================================================================
 C
-         open (56,file='supcrit.data')
-         read (56,*) Supcrit1, Supcrit2
-         close (56)
+c$$$         open (56,file='supcrit.data')
+c$$$         read (56,*) Supcrit1, Supcrit2
+c$$$         close (56)
 c
          print*, 'supcrit1, supcrit2' ,supcrit1, supcrit2