Changeset 476 for trunk/LMDZ.MARS/libf/aeronomars/calchim.F

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

File:

• trunk/LMDZ.MARS/libf/aeronomars/calchim.F (modified) (1 diff)

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)