Ignore:
Timestamp:
Feb 2, 2004, 4:03:16 PM (21 years ago)
Author:
lmdzadmin
Message:

Probleme de dimensionnement sur lev (A. Caubel)
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F

    r370 r488  
    556556    !  LOCAL
    557557    !
    558       REAL :: lev(1), date, dt
     558!ac     REAL :: lev(1), date, dt
     559      REAL :: date, dt
     560      REAL, DIMENSION(:), ALLOCATABLE :: levphys_ini
     561!ac
    559562      INTEGER :: itau(1)
    560563      INTEGER ::  llm_tmp, ttm_tmp
     
    576579     . ttm_tmp, fid_phys)
    577580    !
    578     !
    579581      ALLOCATE (lat_phys(iml_phys,jml_phys))
    580582      ALLOCATE (lon_phys(iml_phys,jml_phys))
     583!ac
     584      ALLOCATE (levphys_ini(llm_tmp))
     585    !
     586!      CALL flinopen(physfname, .FALSE., iml_phys, jml_phys,
     587!     . llm_tmp, lon_phys, lat_phys, lev, ttm_tmp,
     588!     . itau, date, dt, fid_phys)
    581589    !
    582590      CALL flinopen(physfname, .FALSE., iml_phys, jml_phys,
    583      . llm_tmp, lon_phys, lat_phys, lev, ttm_tmp,
     591     . llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp,
    584592     . itau, date, dt, fid_phys)
     593    !
     594      DEALLOCATE (levphys_ini)
     595!ac
    585596    !
    586597    ! Allocate the space we will need to get the data out of this file
Note: See TracChangeset for help on using the changeset viewer.