Ignore:
Timestamp:
Sep 7, 2021, 12:10:35 PM (3 years ago)
Author:
emillour
Message:

Mars GCM:
Some code cleanup and refactoring around wstats:

  • turn wstats.F90 in a module
  • remove no useless statto_mod.F90
  • incorporate auxilliary inistats and mkstats routines in wstats_mod.F90
  • move flag "callstats" from callkeys.h to being a module variable of wstats_mod

EM

Location:
trunk/LMDZ.MARS/libf/aeronomars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/calchim_mod.F90

    r2461 r2559  
    3131      use photolysis_mod, only: init_photolysis, nphot
    3232      use iono_h, only: temp_elect
     33      use wstats_mod, only: callstats, wstats
    3334
    3435      implicit none

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

    r2030 r2559  
    88     &                      igcm_ccn_number, varian, ccn_factor
    99      use conc_mod, only: rnew
    10       USE comcstfi_h
     10      use comcstfi_h, only: pi
     11      use wstats_mod, only: callstats, wstats
    1112      implicit none
    1213
Note: See TracChangeset for help on using the changeset viewer.