Changeset 567 for LMDZ4


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

Corrections de bugs LMDZ4/INCA MAF
LF

Location:
LMDZ4/trunk/libf
Files:
2 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
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r565 r567  
    611611      REAL frac_nucl(klon,klev) ! idem (nucleation)
    612612#ifdef INCA
     613      INTEGER       :: iii
    613614      REAL          :: calday
    614615#endif
     
    13041305     $                   nqmax,
    13051306     $                   pdtphys,
    1306      $                   anne_ref,
     1307     $                   annee_ref,
    13071308     $                   day_ini)
    13081309#ifdef INCAINFO
     
    29042905     $                        paprs,
    29052906     $                        q_seri,
    2906      $                        anne_ini,
     2907     $                        annee_ref,
    29072908     $                        day_ini,
    29082909     $                        xjour)
Note: See TracChangeset for help on using the changeset viewer.