Ignore:
Timestamp:
Apr 22, 2011, 1:03:10 PM (14 years ago)
Author:
idelkadi
Message:

Lecture de tau dans conv_param.data

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3_routines.F

    r1506 r1509  
    7575
    7676      dtcrit = -2.0
    77 c      dtcrit = -5.0
    78 c      tau    = 3000.
    7977      tau = 1800.
    80 cc      tau=8000.
    81       beta   = 1.0 - delt/tau
    82       alpha1 = 1.5e-3
    83       alpha  = alpha1 * delt/tau
    8478c increase alpha to compensate W decrease:
    8579      alpha  = alpha*1.5
    … …  
    10094      READ(99,*,end=9998) sigdz
    10195      READ(99,*,end=9998) spfac
     96      READ(99,*,end=9998) tau
    102979998  Continue
    10398      CLOSE(99)
    … …  
    109104        WRITE(*,*)'sigdz=',sigdz
    110105        WRITE(*,*)'spfac=',spfac
     106        WRITE(*,*)'tau=',tau
    111107        first = .false.
    112108      endif
    113109
     110      beta   = 1.0 - delt/tau
     111      alpha1 = 1.5e-3
     112      alpha  = alpha1 * delt/tau
    114113
    115114      return
Note: See TracChangeset for help on using the changeset viewer.