Changeset 996 for LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

Timestamp:

Sep 9, 2008, 3:22:23 PM (16 years ago)

Author:

lsce

Message:

• Modifications liées au calcul des nouveau sous-fractions
• Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
• Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

File:

• LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

@@ +1 @@
+!
+! $Header$
+!
 MODULE climb_hq_mod
 !
@@ -274 +277 @@
     REAL, DIMENSION(klon,klev)               :: h_new, q_new
     REAL, DIMENSION(klon)                    :: psref         
-    INTEGER                                  :: k, i
+    INTEGER                                  :: k, i, ierr
 
 !****************************************************************************************
@@ -350 +353 @@
 !
 !****************************************************************************************
-    DEALLOCATE(Ccoef_Q, Dcoef_Q, Ccoef_H, Dcoef_H)    
-    DEALLOCATE(gamaq, gamah)
-    DEALLOCATE(Kcoefhq)
-
+    DEALLOCATE(Ccoef_Q, Dcoef_Q, Ccoef_H, Dcoef_H,stat=ierr)    
+    IF ( ierr /= 0 )  PRINT*,' pb in dealllocate Ccoef_Q, Dcoef_Q, Ccoef_H, Dcoef_H, ierr=', ierr
+    DEALLOCATE(gamaq, gamah,stat=ierr)
+    IF ( ierr /= 0 )  PRINT*,' pb in dealllocate gamaq, gamah, ierr=', ierr
+    DEALLOCATE(Kcoefhq,stat=ierr)
+    IF ( ierr /= 0 )  PRINT*,' pb in dealllocate Kcoefhq, ierr=', ierr
     
   END SUBROUTINE climb_hq_up