Changeset 567 for LMDZ4/trunk/libf/dyn3d


Ignore:
Timestamp:
Dec 10, 2004, 5:51:19 PM (20 years ago)
Author:
lmdzadmin
Message:

Corrections de bugs LMDZ4/INCA MAF
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/caladvtrac.F

    r524 r567  
    4242      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
    4343#ifdef INCA_CH4
    44       INTEGER            :: hadv_flg(nq)
    45       REAL               :: mmt_adj(iip1,jjp1,llm)
     44      INTEGER            :: hadv_flg(nqmx)
     45      REAL               :: mmt_adj(iip1,jjp1,llm,1)
    4646      REAL               :: flxw(ip1jmp1,llm)
    4747#endif
Note: See TracChangeset for help on using the changeset viewer.