Changeset 1142 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90

Timestamp:

Apr 7, 2009, 5:53:39 PM (16 years ago)

Author:

yann meurdesoif

Message:

Portage vers Vargas

Y.M + E.M

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90 (modified) (5 diffs)

LMDZ4/branches/LMDZ4-dev/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