Changeset 9 for LMDZ.3.3/trunk/libf


Ignore:
Timestamp:
Dec 9, 1999, 7:54:53 PM (25 years ago)
Author:
lmdz
Message:

p3d doit rester sur llm+1 niveaux

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/etat0_netcdf.F

    r8 r9  
    2020      REAL :: orog(iip1,jjp1), rugo(iip1,jjp1), masque(iip1,jjp1),
    2121     . psol(iip1, jjp1), phis(iip1, jjp1)
    22       REAL :: p3d(iip1, jjp1, llm)
     22      REAL :: p3d(iip1, jjp1, llm+1)
    2323      REAL :: uvent(iip1, jjp1, llm)
    2424      REAL :: vvent(iip1, jjm, llm)
Note: See TracChangeset for help on using the changeset viewer.