Changeset 677 for LMDZ4/trunk/libf/dyn3d/startvar.F

Timestamp:

Jan 27, 2006, 4:14:22 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Differentes corrections pour g95
LF

File:

• LMDZ4/trunk/libf/dyn3d/startvar.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/startvar.F

@@ -1054 +1054 @@
       REAL, ALLOCATABLE :: var_tmp2d(:,:), var_tmp3d(:,:,:)
       REAL, ALLOCATABLE :: ax(:), ay(:), yder(:)
-       REAL, ALLOCATABLE :: varrr(:,:,:)
+!       REAL, ALLOCATABLE :: varrr(:,:,:)
       INTEGER, ALLOCATABLE :: lind(:)
     !
@@ -1062 +1062 @@
           ALLOCATE(var_ana3d(iml_dyn, jml_dyn, llm_dyn))
       ENDIF
-          ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn))
+!          ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn))
     !
     !
@@ -1173 +1173 @@
 
       DEALLOCATE(lon_rad)
+      DEALLOCATE(lon_ini)
       DEALLOCATE(lat_rad)
+      DEALLOCATE(lat_ini)
+      DEALLOCATE(lev_dyn)
       DEALLOCATE(var_tmp2d)
       DEALLOCATE(var_tmp3d)