Ignore:
Timestamp:
Oct 28, 2024, 4:58:32 PM (4 days ago)
Author:
abarral
Message:

Move academic.h chem.h chem_spla.h to module

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
19 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90

    r5285 r5292  
    88        taue550_dustsco,taue670_dustsco,taue865_dustsco)
    99  !
    10   USE dimphy
     10USE chem_mod_h
     11    USE dimphy
    1112  USE infotrac
    1213  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1415IMPLICIT none
    1516  !
    16   INCLUDE "chem.h"
    1717
    1818  !INCLUDE "dimphy.h"

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5289 r5292  
    55  USE yomcst_mod_h
    66  USE yoecumf_mod_h
     7  USE chem_mod_h
    78IMPLICIT NONE
    89  !=====================================================================
    … …  
    1112  ! Auteur: O. Boucher (LOA)
    1213  !=====================================================================
    13   !
    1414
    15   INCLUDE "chem.h"
    1615  !
    1716  REAL :: pdtime, alpha_r, alpha_s, R_r, R_s

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5285 r5292  
    55        his_dhbclsc,his_dhbccon,tr_seri)
    66
    7   USE dimphy
     7USE chem_mod_h
     8    USE dimphy
    89  USE indice_sol_mod
    910  USE infotrac
    … …  
    1415
    1516
    16   INCLUDE "chem.h"
    1717
    1818

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5285 r5292  
    55        his_dhbclsc,his_dhbccon,tr_seri)
    66
    7   USE dimphy
     7USE chem_mod_h
     8    USE dimphy
    89  USE indice_sol_mod
    910  USE infotrac
    … …  
    1415
    1516
    16   INCLUDE "chem.h"
    1717
    1818

  • LMDZ6/trunk/libf/phylmd/Dust/chem_spla_mod_h.f90

    r5291 r5292  
    1 !
    2 ! $Header$
    3 !
     1MODULE chem_spla_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC ss_bins, masse_ammsulfate
    44
    5       INTEGER ss_bins
    6       PARAMETER (ss_bins=2)
     5  INTEGER, PARAMETER :: ss_bins = 2
     6  REAL, PARAMETER :: masse_ammsulfate = 132.0  !--g mol-1
     7END MODULE chem_spla_mod_h
    78
    8 !      INTEGER nbreg_dust,nbreg_ind, nbreg_bb
    9 !      PARAMETER (nbreg_dust=11,nbreg_ind=13,nbreg_bb=15)
    10 
    11       REAL masse_ammsulfate
    12       PARAMETER (masse_ammsulfate=132.0)              !--g mol-1
    13 
    14 

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5285 r5292  
    2626  !
    2727
    28   USE dimphy
     28USE chem_spla_mod_h
     29  USE chem_mod_h
     30    USE dimphy
    2931  USE indice_sol_mod
    3032  USE infotrac
    … …  
    3739
    3840
    39   INCLUDE "chem.h"
    40   INCLUDE "chem_spla.h"
    4141
    4242

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5285 r5292  
    66        his_ds,source_tr,tr_seri)
    77
    8   USE dimphy
     8USE chem_mod_h
     9    USE dimphy
    910  USE infotrac
    1011  USE indice_sol_mod
    … …  
    1617
    1718
    18   INCLUDE "chem.h"
    1919
    2020

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5285 r5292  
    1111        source_tr,flux_tr,tr_seri)
    1212
    13   USE dimphy
     13USE chem_mod_h
     14    USE dimphy
    1415  USE indice_sol_mod
    1516  USE infotrac
    … …  
    2122
    2223
    23   INCLUDE "chem.h"
    2424
    2525

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5289 r5292  
    44  !nhl     .                         fluxso4chem, flux_sparam_sulf,
    55
    6 USE yoecumf_mod_h
     6USE chem_spla_mod_h
     7  USE chem_mod_h
     8  USE yoecumf_mod_h
    79    USE dimphy
    810  USE infotrac
    … …  
    1416  !
    1517
    16   INCLUDE "chem.h"
    17   INCLUDE "chem_spla.h"
    1818
    1919  !

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5285 r5292  
    55        his_dhlsc,his_dhcon1,tr_seri)
    66
    7   USE dimphy
     7USE chem_mod_h
     8    USE dimphy
    89  USE infotrac
    910  USE indice_sol_mod
    … …  
    1516
    1617
    17   INCLUDE "chem.h"
    1818
    1919

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5285 r5292  
    55        his_dhlsc,his_dhcon1,tr_seri)
    66
    7   USE dimphy
     7USE chem_mod_h
     8    USE dimphy
    89  USE infotrac
    910  USE indice_sol_mod
    … …  
    1516
    1617
    17   INCLUDE "chem.h"
    1818
    1919

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5289 r5292  
    66  USE yomcst_mod_h
    77  USE yoecumf_mod_h
     8  USE chem_mod_h
    89IMPLICIT NONE
    910  !=====================================================================
    … …  
    1213  ! Auteur: O. Boucher (LOA)
    1314  !=====================================================================
    14   !
    1515
    16   INCLUDE "chem.h"
    1716  !
    1817  INTEGER :: it

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5289 r5292  
    1616  USE yomcst_mod_h
    1717  USE yoecumf_mod_h
     18  USE chem_mod_h
    1819IMPLICIT NONE
    1920!=====================================================================
    … …  
    2425!=====================================================================
    2526
    26 
    27   include "chem.h"
    2827
    2928  REAL,INTENT(IN)                        :: pdtime ! time step (s)

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5289 r5292  
    1717  USE yomcst_mod_h
    1818  USE yoecumf_mod_h
     19  USE chem_mod_h
    1920IMPLICIT NONE
    2021!=====================================================================
    … …  
    2627! SPLA version taken from trunk revision 2041
    2728
    28 
    29   include "chem.h"
    3029
    3130  REAL,INTENT(IN)                        :: pdtime ! time step (s)

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5285 r5292  
    44MODULE phytracr_spl_mod
    55
    6 ! Recuperation des morceaux de la physique de Jeronimo specifiques
    7 ! du modele d'aerosols d'Olivier n'co.
    8 !
    9 INCLUDE "chem.h"
    10 INCLUDE "chem_spla.h"
     6  ! Recuperation des morceaux de la physique de Jeronimo specifiques
     7  ! du modele d'aerosols d'Olivier n'co.
     8  USE chem_mod_h
     9  USE chem_spla_mod_h
    1110
    1211  REAL,SAVE  :: scale_param_ssacc  !Scaling parameter for Fine Sea Salt
    … …  
    812811      USE alpale_mod
    813812      USE yoethf_mod_h
     813      USE chem_mod_h
    814814      IMPLICIT none
    815815!
    … …  
    825825!! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ;
    826826!!   et c'est encore different avec le parser de DC ?
    827 !======================================================================
    828       INCLUDE "chem.h"
    829       INCLUDE "chem_spla.h"
    830 
    831827!======================================================================
    832828

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5285 r5292  
    1616        source_tr,flux_tr,tr_seri)
    1717
    18   USE dimphy
     18USE chem_spla_mod_h
     19  USE chem_mod_h
     20    USE dimphy
    1921  USE indice_sol_mod
    2022  USE infotrac
    … …  
    2628
    2729
    28   INCLUDE "chem.h"
    29   INCLUDE "chem_spla.h"
    3030
    3131

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90

    r5285 r5292  
    1818        lmt_omnat, lmt_omba)
    1919
    20   USE dimphy
     20USE chem_spla_mod_h
     21  USE chem_mod_h
     22    USE dimphy
    2123  USE indice_sol_mod
    2224  USE mod_grid_phy_lmdz
    … …  
    3133   ! INCLUDE 'dimphy.h'
    3234
    33   INCLUDE 'chem.h'
    34   INCLUDE 'chem_spla.h'
    3535   ! INCLUDE 'indicesol.h'
    3636

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5289 r5292  
    44SUBROUTINE seasalt(v_10m, u_10m, pct_ocean, lmt_sea_salt)
    55
    6 USE yoecumf_mod_h
     6USE chem_spla_mod_h
     7  USE chem_mod_h
     8  USE yoecumf_mod_h
    79    USE dimphy
    810  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1113  !
    1214
    13   INCLUDE "chem.h"
    14   INCLUDE "chem_spla.h"
    1515
    1616  !

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5289 r5292  
    88  !nhl     .                                       xlon,xlat,
    99  !
    10 USE yoecumf_mod_h
     10USE chem_mod_h
     11  USE yoecumf_mod_h
    1112     USE dimphy
    1213   USE infotrac
    … …  
    1617  !
    1718
    18   INCLUDE "chem.h"
    1919    ! INCLUDE "dimphy.h"
    2020

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5285 r5292  
    44        dtrconv,tr_seri)
    55
    6   USE dimphy
     6USE chem_mod_h
     7    USE dimphy
    78  USE infotrac
    89  USE indice_sol_mod
    … …  
    1415
    1516
    16   INCLUDE "chem.h"
    1717
    1818
Note: See TracChangeset for help on using the changeset viewer.