Changeset 2258 for LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/add_phys_tend.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,paprs,text)
+SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,paprs,text,abortphy)
 !======================================================================
 ! Ajoute les tendances des variables physiques aux variables 
@@ -28 +28 @@
 REAL paprs(klon,klev+1)
 CHARACTER*(*) text
+INTEGER abortphy
 
 ! Local :
@@ -52 +53 @@
 ! Initialisations
 
-debug_level=10
+      IF (abortphy==1) RETURN ! on n ajoute pas les tendance si le modele
+                              ! a deja plante.
+
+     debug_level=10
      if (first) then
         itap=0
@@ -230 +234 @@
 ENDIF
 
-      CALL hgardfou(t_seri,ftsol,text)
+
+!======================================================================
+! Contrôle des min/max pour arrêt du modèle
+! Si le modele est en mode abortphy, on retire les tendances qu'on
+! vient d'ajouter. Pas exactement parce qu'on ne tient pas compte des
+! seuils.
+!======================================================================
+
+      CALL hgardfou(t_seri,ftsol,text,abortphy) 
+      IF (abortphy==1) THEN
+        Print*,'ERROR ABORT hgardfou dans ',text
+        u_seri(:,:)=u_seri(:,:)-zdu(:,:)
+        v_seri(:,:)=v_seri(:,:)-zdv(:,:)
+        ql_seri(:,:)=ql_seri(:,:)-zdql(:,:)
+        qs_seri(:,:)=qs_seri(:,:)-zdqi(:,:)
+      ENDIF
+
+
+
       RETURN
       END