Changeset 1413 for LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90

Timestamp:

Jul 13, 2010, 9:55:22 AM (14 years ago)

Author:

idelkadi

Message:

Dans fonte_neige_mod.F90 et pbl_surface_mod.F90 : deallocate des variables sous conditions qu'ls soient allous
Dans physiq.F : Nettoyage dans physiq.F des anciennes versions des options iflag_cldcon=5 ou 6.

File:

• LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90

@@ -298 +298 @@
 
 ! Deallocation of all varaibles in the module
-    DEALLOCATE(run_off_lic_0, run_off_ter, run_off_lic, ffonte_global, &
-         fqfonte_global, fqcalving_global)
+!   DEALLOCATE(run_off_lic_0, run_off_ter, run_off_lic, ffonte_global, &
+!        fqfonte_global, fqcalving_global)
+
+    IF (ALLOCATED(run_off_lic_0)) DEALLOCATE(run_off_lic_0)
+    IF (ALLOCATED(run_off_ter)) DEALLOCATE(run_off_ter)
+    IF (ALLOCATED(run_off_lic)) DEALLOCATE(run_off_lic)
+    IF (ALLOCATED(ffonte_global)) DEALLOCATE(ffonte_global)
+    IF (ALLOCATED(fqfonte_global)) DEALLOCATE(fqfonte_global)
+    IF (ALLOCATED(fqcalving_global)) DEALLOCATE(fqcalving_global)
 
   END SUBROUTINE fonte_neige_final