Ignore:
Timestamp:
Apr 29, 2005, 10:06:07 AM (20 years ago)
Author:
lmdzadmin
Message:

Rajout cles CPP + changement argument pour INCA - Anne Cozic
MAF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r620 r625  
    44c
    55c
    6       SUBROUTINE phytrac (iflag_con,rnpb,nstep,
    7      I                    julien,gmtime,
    8      I                    debutphy,lafin,
     6      SUBROUTINE phytrac (iflag_con,
     7     I                    rnpb,
     8     I                    nstep,
     9     I                    julien,
     10     I                    gmtime,
     11     I                    debutphy,
     12     I                    lafin,
    913     I                    nqmax,
    1014     I                    nlon,
    … …  
    2327     I                    pde_d,
    2428     I                    coefh,
    25      I                    fm_therm,entr_therm,
     29     I                    fm_therm,
     30     I                    entr_therm,
    2631     I                    yu1,
    2732     I                    yv1,
    … …  
    4853     I                    prfl,
    4954     I                    psfl,
    50      I                    da,phi,mp,
    51      I                    upwd,dnwd,
     55     I                    da,
     56     I                    phi,
     57     I                    mp,
     58     I                    upwd,
     59     I                    dnwd,
    5260#ifdef INCA
    5361     I                    flxmass_w,
Note: See TracChangeset for help on using the changeset viewer.