Changeset 476

Timestamp:

Dec 15, 2011, 4:22:43 PM (13 years ago)

Author:

emillour

Message:

Mars GCM: minor correction in aeronomars/calchim.F and aeronomars/surfacearea.F : calls to wstats should always be embeded in if (callstats) condition.
EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/aeronomars/calchim.F (modified) (1 diff)
• libf/aeronomars/surfacearea.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -1349 +1349 @@
    and improved to Mars.
 
+== 15/12/2011 == EM
+>> minor correction in aeronomars/calchim.F and aeronomars/surfacearea.F : 
+   calls to wstats should always be embeded in if (callstats) condition.

trunk/LMDZ.MARS/libf/aeronomars/calchim.F

@@ -493 +493 @@
             call writediagfi(ngridmx,'jo3','j o3->o1d',
      $                       's-1',3,jo3_3d(1,1))
+           if (callstats) then
             call wstats(ngridmx,'jo3','j o3->o1d',
      $                       's-1',3,jo3_3d(1,1))
+           endif
          end if ! of if (ngridmx.gt.1)
       endif ! of if (output)

trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F

@@ -101 +101 @@
 
 ! write diagnostics in micron2/cm3
-
-      call wstats(ngrid,"surfdust", "Dust surface area",
+      
+      if (callstats) then
+        call wstats(ngrid,"surfdust", "Dust surface area",
      $            "micron2 cm-3",3,surfdust*1.e6)
+      endif
       call writediagfi(ngrid,"surfdust", "Dust cloud surface area",
      $            "micron2 cm-3",3,surfdust*1.e6)
-      call wstats(ngrid,"surfice", "Ice cloud surface area",
+      if (callstats) then
+        call wstats(ngrid,"surfice", "Ice cloud surface area",
      $            "micron2 cm-3",3,surfice*1.e6)
+      endif
       call writediagfi(ngrid,"surfice", "Ice cloud surface area",
      $            "micron2 cm-3",3,surfice*1.e6)