Changeset 1286 for LMDZ4/trunk/libf/dyn3dpar

Timestamp:

Dec 17, 2009, 2:47:10 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Les parametres definissant la transition eau glace dans les nuages sont
maintenant lus dans physiq.def. Les valeurs par defaut donnent les memes
resultats que precedemment. JLD

File:

• LMDZ4/trunk/libf/dyn3dpar/leapfrog_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -172 +172 @@
       INTEGER testita
       PARAMETER (testita = 9)
+
+      logical , parameter :: flag_verif = .false.
       
 c declaration liees au parallelisme
@@ -1286 +1288 @@
 
 
-            IF( itau. EQ. itaufinp1 ) then  
+            IF( itau. EQ. itaufinp1 ) then
+
+              if (flag_verif) then
+                write(79,*) 'ucov',ucov
+                write(80,*) 'vcov',vcov
+                write(81,*) 'teta',teta
+                write(82,*) 'ps',ps
+                write(83,*) 'q',q
+                WRITE(85,*) 'q1 = ',q(:,:,1)
+                WRITE(86,*) 'q3 = ',q(:,:,3)
+              endif
+  
 
 c$OMP MASTER