Changeset 2958 for trunk/LMDZ.GENERIC/libf/aeronostd

Timestamp:

May 5, 2023, 2:23:32 PM (20 months ago)

Author:

emillour

Message:

Generic PCM:
Upgrade wstats following the Mars PCM one. It is now a module and there no
longer needs to have if (callstats) around a call to wstats as it managed
internally in the wstats routine.
In addition: wstats now looks for an (optional) stats.def file in the
directory where the GCM is run to know which variable should be included
in the stats.nc file. The stats.def ASCII file should simply contain
one variable name per line, in the same way as the diagfi.def file for
diagfi outputs. If there is no stats.def file then all variables sent to
wstats will be in the stats.nc file (which matches the behaviour prior to
this improvement).
EM

File:

• trunk/LMDZ.GENERIC/libf/aeronostd/calchim_asis.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/aeronostd/calchim_asis.F90

@@ -14 +14 @@
       use chimiedata_h
       use radcommon_h,      only: glat
+      use wstats_mod, only: wstats
 
       implicit none
@@ -339 +340 @@
       if (photochem .and. output) then
 
-         if (callstats) then
             ! photoloysis
             do i=1,nb_phot_hv_max
@@ -371 +371 @@
                end do
             endif ! end depos
-         endif ! end callstats
 
          ! photoloysis