Changeset 270 for trunk/LMDZ.COMMON/libf/dyn3d/integrd.F

Timestamp:

Aug 18, 2011, 12:09:27 PM (13 years ago)

Author:

emillour

Message:

Ehouarn: Mise a jour des dynamiques (seq et ) pour suivre
les changements et developpements de LMDZ5 terrestre
(mise a niveau avec LMDZ5 trunk, rev 1560). Ce qui ne devrais pas changer grand chose au fonctionnement de base du GCM).
Modification importante: correction du bug sur le cumul des flux de masse pour le transport des traceurs (mais dans les faits semble avoir peu d'impact).
(voir "commit_importants.log" pour les details des ajouts et modifications).

File:

• trunk/LMDZ.COMMON/libf/dyn3d/integrd.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/integrd.F

@@ -1 +1 @@
 !
-! $Id: integrd.F 1446 2010-10-22 09:27:25Z emillour $
+! $Id: integrd.F 1550 2011-07-05 09:44:55Z lguez $
 !
       SUBROUTINE integrd
@@ -89 +89 @@
         IF( ps(ij).LT.0. ) THEN
          PRINT*,' Au point ij = ',ij, ' , pression sol neg. ', ps(ij)
-         STOP' dans integrd'
+         print *, ' dans integrd'
+         stop 1
         ENDIF
       ENDDO