Changeset 324 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jan 30, 2002, 5:29:49 PM (23 years ago)

Author:

lmdzadmin

Message:

bug compilateur sun
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

@@ -590 +590 @@
     !   In case we have a file which is in degrees we do the transformation
     !
-      DEALLOCATE (lon_rad)
       ALLOCATE(lon_rad(iml_phys))
-      DEALLOCATE (lon_ini)
       ALLOCATE(lon_ini(iml_phys))
 
@@ -671 +669 @@
        CALL flinclo(fid_phys)
     !
-      DEALLOCATE (lon_rad)
-      DEALLOCATE (lon_ini)
-      DEALLOCATE (lat_rad)
-      DEALLOCATE (lat_ini)
       END SUBROUTINE start_init_phys
     !