Changeset 488 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Feb 2, 2004, 4:03:16 PM (21 years ago)

Author:

lmdzadmin

Message:

Probleme de dimensionnement sur lev (A. Caubel)
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F

@@ -556 +556 @@
     !  LOCAL
     !
-      REAL :: lev(1), date, dt
+!ac     REAL :: lev(1), date, dt
+      REAL :: date, dt
+      REAL, DIMENSION(:), ALLOCATABLE :: levphys_ini
+!ac
       INTEGER :: itau(1)
       INTEGER ::  llm_tmp, ttm_tmp
@@ -576 +579 @@
      . ttm_tmp, fid_phys)
     !
-    !
       ALLOCATE (lat_phys(iml_phys,jml_phys))
       ALLOCATE (lon_phys(iml_phys,jml_phys))
+!ac
+      ALLOCATE (levphys_ini(llm_tmp))
+    !
+!      CALL flinopen(physfname, .FALSE., iml_phys, jml_phys, 
+!     . llm_tmp, lon_phys, lat_phys, lev, ttm_tmp, 
+!     . itau, date, dt, fid_phys)
     !
       CALL flinopen(physfname, .FALSE., iml_phys, jml_phys, 
-     . llm_tmp, lon_phys, lat_phys, lev, ttm_tmp, 
+     . llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp, 
      . itau, date, dt, fid_phys)
+    !
+      DEALLOCATE (levphys_ini)
+!ac
     !
     ! Allocate the space we will need to get the data out of this file