Changeset 1005 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Jul 18, 2013, 8:33:04 AM (12 years ago)

Author:

emillour

Message:

Mars GCM:

• Bug fix: when running with photochemistry, ccns did not sediment! Fixed initracer.F. Also added that callsedim/newsedim use updated temperatures.
• Converted run0 and run_mcd scripts to bash.

EM

File:

• trunk/LMDZ.MARS/libf/dyn3d/test_period.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/dyn3d/test_period.F

@@ -25 +25 @@
           PRINT *,'STOP dans test_period car ---  UCOV  ---  n est pas',  
      ,  ' periodique en longitude ! '
-          PRINT *,' l,  ij = ', l, ij, ij+iim
+          PRINT *,' l,  ij, ij+iim = ', l, ij, ij+iim
+          write(*,*) "ucov(ij,l)=",ucov(ij,l)," ucov(ij+iim,l)=",
+     &                ucov(ij+iim,l)
           STOP
           ENDIF
@@ -31 +33 @@
           PRINT *,'STOP dans test_period car ---  TETA  ---  n est pas',  
      ,   ' periodique en longitude ! '
-          PRINT *,' l,  ij = ', l, ij, ij+iim
+          PRINT *,' l,  ij, ij+iim = ', l, ij, ij+iim
+          write(*,*) "teta(ij,l)=",teta(ij,l)," teta(ij+iim,l)=",
+     &                teta(ij+iim,l)
           STOP
           ENDIF
@@ -43 +47 @@
           PRINT *,'STOP dans test_period car ---  VCOV  ---  n est pas',  
      ,   ' periodique en longitude !'
-          PRINT *,' l,  ij = ', l, ij, ij+iim,vcov(ij+iim,l),vcov(ij,l)
-          vcov(ij+iim,l)=vcov(ij,l)
+          PRINT *,' l,  ij, ij+iim = ', l, ij, ij+iim
+          write(*,*) "vcov(ij,l)=",vcov(ij,l),
+     &               " vcov(ij+iim,l)",vcov(ij+iim,l)
           STOP
           ENDIF