Ignore:
Timestamp:
Jun 11, 2008, 1:11:11 PM (16 years ago)
Author:
Laurent Fairhead
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/cv3_inicp.F

    r963 r966  
    1212#include "YOMCST2.h"
    1313c
    14       INTEGER iflag_clos,iflag_mix
     14      INTEGER iflag_clos
    1515c
    1616c --   Mixing probability distribution functions
     
    5353C
    5454
    55         open(57,file='parameter_mix.data')
     55c        open(57,file='parameter_mix.data')
    5656
    57         read(57,*) iflag_clos
    58         read(57,*) iflag_mix, scut
    59         read(57,*)
    60         if(iflag_mix .gt. 0) then
    61               read(57,*) qqa1, qqa2
    62               read(57,*)
    63               read(57,*) gammas, Fmax
    64               read(57,*)
    65               read(57,*) alphas
    66          endif
    67          close(57)
     57c        read(57,*) iflag_clos
     58c        read(57,*) iflag_mix, scut
     59c        read(57,*)
     60c        if(iflag_mix .gt. 0) then
     61c             read(57,*) qqa1, qqa2
     62c              read(57,*)
     63c              read(57,*) gammas, Fmax
     64c              read(57,*)
     65c              read(57,*) alphas
     66c         endif
     67c        close(57)
    6868c
    6969      if(iflag_mix .gt. 0) then
Note: See TracChangeset for help on using the changeset viewer.