Changeset 550 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Oct 19, 2004, 11:17:30 AM (20 years ago)

Author:

lmdzadmin

Message:

time_0 n'etait pas passe a leapfrog YM
LF

Location:

LMDZ4/trunk/libf/dyn3d

Files:

• gcm.F (modified) (1 diff)
• leapfrog.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/gcm.F

@@ -383 +383 @@
 
 
-      CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0)
+      CALL leapfrog(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
+     .              time_0)
 
 

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -199 +199 @@
         call guide(itau,ucov,vcov,teta,q,masse,ps)
       else
-        print*,'attention on ne guide pas les 6 dernieres heures'
+        IF(prt_level>9)WRITE(*,*)'attention on ne guide pas les ',
+     .    '6 dernieres heures'
       endif
 #endif
@@ -485 +486 @@
 
             IF( itau. EQ. itaufinp1 ) 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)
+c$$$       write(79,*) 'ucov',ucov
+c$$$       write(80,*) 'vcov',vcov
+c$$$       write(81,*) 'teta',teta
+c$$$       write(82,*) 'ps',ps
+c$$$       write(83,*) 'q',q
+c$$$       WRITE(85,*) 'q1 = ',q(:,:,1)
+c$$$       WRITE(86,*) 'q3 = ',q(:,:,3)
 
               abort_message = 'Simulation finished'