Ignore:
Timestamp:
Jun 19, 2008, 12:25:57 PM (16 years ago)
Author:
lmdzadmin
Message:

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/cva_driver.F

    r940 r973  
    500500      call  zilch(asupmaxmin1,nword1)
    501501c
    502  
     502      DO il = 1,len
     503       cin1(il) = -100000.
     504       cape1(il) = -1.
     505      ENDDO
     506c 
    503507      if (iflag_con.eq.3) then
    504508        do il=1,len
Note: See TracChangeset for help on using the changeset viewer.