Changeset 2119 for LMDZ5/trunk/libf

Timestamp:

Sep 11, 2014, 9:09:46 PM (10 years ago)

Author:

fhourdin

Message:

Correction d'erreur
Bug fixing

File:

• LMDZ5/trunk/libf/phylmd/mod_1D_cases_read.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/mod_1D_cases_read.F90

@@ -45 +45 @@
         real, allocatable::  ht_profamma(:)
         real, allocatable::  hq_profamma(:)
-        real, allocatable::  lat_profamma,sens_profamma
+        real lat_profamma,sens_profamma
         real, allocatable::  vt_profamma(:)
         real, allocatable::  vq_profamma(:)
@@ -118 +118 @@
         allocate(ht_profamma(nlev_amma))
         allocate(hq_profamma(nlev_amma))
-        allocate(lat_profamma,sens_profamma)
         allocate(vt_profamma(nlev_amma))
         allocate(vq_profamma(nlev_amma))
@@ -164 +163 @@
         deallocate(ht_profamma)
         deallocate(hq_profamma)
-        deallocate(lat_profamma,sens_profamma)
         deallocate(vt_profamma)
         deallocate(vq_profamma)