Ignore:
Timestamp:
Nov 6, 2006, 4:51:16 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Modifications pour rendre INCA plus independant de LMDZ ACo
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/dyn3d/caladvtrac.F

    r703 r726  
    88     *                   p ,masse, dq ,  teta,
    99     *                   flxw,
    10      *                   pk,
    11      *                   mmt_adj,
    12      *                   hadv_flg)
     10     *                   pk)
    1311#else
    1412            SUBROUTINE caladvtrac(q,pbaru,pbarv ,
    … …  
    4240      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
    4341#ifdef INCA
    44       INTEGER            :: hadv_flg(nqmx)
    45       REAL               :: mmt_adj(iip1,jjp1,llm,1)
    4642      REAL               :: flxw(ip1jmp1,llm)
    4743#endif
    … …  
    7773     *             p,  masse,q,iapptrac, teta,
    7874     .             flxw,
    79      .             pk,
    80      .             mmt_adj,
    81      .             hadv_flg)
     75     .             pk)
    8276#else
    8377      CALL advtrac( pbaru,pbarv,
Note: See TracChangeset for help on using the changeset viewer.