Changeset 1146 for LMDZ4/trunk/libf/phylmd/thermcell_flux2.F90

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcell_flux2.F90 (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/thermcell_flux2.F90

@@ -160 +160 @@
 ! FH Version en cours de test;
 ! par rapport a thermcell_flux, on fait une grande boucle sur "l"
-! et on modifie le flux avec tous les contrôles appliques d'affilee
+! et on modifie le flux avec tous les contr�les appliques d'affilee
 ! pour la meme couche
 ! Momentanement, on duplique le calcule du flux pour pouvoir comparer
@@ -256 +256 @@
             if (entr(ig,l)<0.) then
                print*,'N1 ig,l,entr',ig,l,entr(ig,l)
-               stop'entr negatif'
+               stop 'entr negatif'
             endif
             if (detr(ig,l).gt.fm(ig,l)) then
@@ -285 +285 @@
                print*,'entr(ig,l)',entr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
          enddo
@@ -312 +312 @@
                print*,'detr(ig,l)',detr(ig,l)
                print*,'fm(ig,l)',fm(ig,l)
-               stop'probleme dans thermcell flux'
+               stop 'probleme dans thermcell flux'
             endif
         enddo
@@ -413 +413 @@
                          print*,'fm(ig,l+1)',fm(ig,l+1)
                          print*,'fm(ig,l)',fm(ig,l)
-                         stop'probleme dans thermcell_flux'
+                         stop 'probleme dans thermcell_flux'
                       endif
                       entr(ig,l+1)=entr(ig,l+1)-ddd