Ignore:
Timestamp:
Apr 15, 2014, 11:46:48 PM (11 years ago)
Author:
aslmd
Message:

LMDZ.MARS : Replaced comcstfi and planete includes by modules.

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

Legend:

Unmodified
Added
Removed

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

    r1125 r1226  
    1515
    1616      use conc_mod, only: mmean ! mean molecular mass of the atmosphere
     17      USE comcstfi_h
    1718
    1819      implicit none
    … …  
    7071#include "chimiedata.h"
    7172!#include "tracer.h"
    72 #include "comcstfi.h"
    7373#include "callkeys.h"
    7474!#include "conc.h"

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

    r1119 r1226  
    1010                            igcm_n2plus, igcm_hplus, igcm_hco2plus,     &
    1111                            igcm_elec, igcm_oplus
     12      USE comcstfi_h
    1213      IMPLICIT NONE
    1314!=======================================================================
    … …  
    3132#include "dimensions.h"
    3233#include "dimphys.h"
    33 #include "comcstfi.h"
    3434#include "callkeys.h"
    3535!#include "comdiurn.h"

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

    r1047 r1226  
    1111     &                      igcm_hplus, igcm_hco2plus, mmol
    1212      use conc_mod, only: mmean, Akknew, rnew, cpnew
    13                          
     13      USE comcstfi_h                   
    1414      implicit none
    1515
    … …  
    2929!#include "dimensions.h"
    3030!#include "dimphys.h"
    31 #include "comcstfi.h"
    3231#include "callkeys.h"
    3332!#include "comdiurn.h"

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

    r1047 r1226  
    1919!#include "dimensions.h"
    2020!#include "dimphys.h"
    21 !#include "comcstfi.h"
    2221!#include "surfdat.h"
    2322!#include "chimiedata.h"

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

    r1047 r1226  
    1414!#include "dimensions.h"
    1515!#include "dimphys.h"
    16 !#include "planete.h"
    1716!#include "chimiedata.h"
    1817!#include "conc.h"

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

    r1119 r1226  
    3333!#include "dimensions.h"
    3434!#include "dimphys.h"
    35 !#include "comcstfi.h"
    3635#include "callkeys.h"
    3736!#include "comdiurn.h"

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

    r1047 r1226  
    88     &                      igcm_h2o_vap, mmol
    99      use conc_mod, only: rnew, mmean
     10      USE comcstfi_h
    1011      implicit none
    1112
    1213!#include "dimensions.h"
    1314!#include "dimphys.h"
    14 #include "comcstfi.h"
    1515!#include "callkeys.h"
    1616!#include "comdiurn.h"

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

    r1047 r1226  
    33
    44use tracer_mod, only: noms, mmol
     5USE comcstfi_h
    56
    67implicit none
    … …  
    89!#include "dimensions.h"
    910!#include "dimphys.h"
    10 #include "comcstfi.h"
    1111!#include "callkeys.h"
    1212!#include "comdiurn.h"

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

    r1047 r1226  
    2222!#include "dimensions.h"
    2323!#include "dimphys.h"
    24 !#include "comcstfi.h"
    2524!#include "surfdat.h"
    2625!#include "chimiedata.h"

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

    r1047 r1226  
    55      use tracer_mod, only: igcm_h2o2, mmol
    66      use conc_mod, only: mmean
     7      USE comcstfi_h
    78      IMPLICIT NONE
    89
    … …  
    2627!#include "dimensions.h"
    2728!#include "dimphys.h"
    28 #include "comcstfi.h"
    2929!#include "chimiedata.h"
    3030!#include "tracer.h"

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

    r1125 r1226  
    787787c*****************************************************************
    788788
     789      USE comcstfi_h
    789790      implicit none
    790791
    … …  
    792793!#include "dimphys.h"
    793794#include "chimiedata.h"
    794 #include "comcstfi.h"
    795795
    796796cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    … …  
    13621362c*****************************************************************
    13631363
     1364      USE comcstfi_h
    13641365      implicit none
    13651366
    13661367!#include "dimensions.h"
    13671368!#include "dimphys.h"
    1368 #include "comcstfi.h"
    13691369
    13701370cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

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

    r1047 r1226  
    88     &                      igcm_ccn_number, varian, ccn_factor
    99      use conc_mod, only: rnew
     10      USE comcstfi_h
    1011      implicit none
    1112
    … …  
    2021#include "dimensions.h"
    2122!#include "dimphys.h"
    22 #include "comcstfi.h"
    2323#include "callkeys.h"
    2424!#include "tracer.h"

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

    r1047 r1226  
    66
    77      use conc_mod, only: rnew, cpnew
     8      USE comcstfi_h
    89      implicit none
    910
    1011!#include "dimensions.h"
    1112!#include "dimphys.h"
    12 #include "comcstfi.h"
    1313#include "callkeys.h"
    1414!#include "comdiurn.h"
Note: See TracChangeset for help on using the changeset viewer.