Changeset 1413 for LMDZ4/trunk/libf/phylmd/pbl_surface_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/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1279 +1279 @@
 !
 !****************************************************************************************
-    DEALLOCATE(qsol, fder, snow, qsurf, evap, rugos, agesno, ftsoil)
+!   DEALLOCATE(qsol, fder, snow, qsurf, evap, rugos, agesno, ftsoil)
+    IF (ALLOCATED(qsol)) DEALLOCATE(qsol)
+    IF (ALLOCATED(fder)) DEALLOCATE(fder)
+    IF (ALLOCATED(snow)) DEALLOCATE(snow)
+    IF (ALLOCATED(qsurf)) DEALLOCATE(qsurf)
+    IF (ALLOCATED(evap)) DEALLOCATE(evap)
+    IF (ALLOCATED(rugos)) DEALLOCATE(rugos)
+    IF (ALLOCATED(agesno)) DEALLOCATE(agesno)
+    IF (ALLOCATED(ftsoil)) DEALLOCATE(ftsoil)
 
   END SUBROUTINE pbl_surface_final