Changeset 5292 for LMDZ6/trunk/libf


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
Files:
29 edited
4 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/friction.f90

    r5285 r5292  
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1212  USE paramet_mod_h
     13  USE academic_mod_h, ONLY: kfrict
    1314IMPLICIT NONE
    1415
    … …  
    2425  !                   iniacademic.F)
    2526  !=======================================================================
    26 
    27 
    28   include "academic.h"
    2927
    3028  ! arguments:

  • LMDZ6/trunk/libf/dyn3d/iniacademic.f90

    r5285 r5292  
    44SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
    55
    6   USE iniprint_mod_h
     6USE academic_mod_h
     7    USE iniprint_mod_h
    78  USE comgeom_mod_h
    89  USE filtreg_mod, ONLY: inifilr
    … …  
    3738
    3839
    39   include "academic.h"
    4040
    4141  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5285 r5292  
    2929  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3030  USE paramet_mod_h
     31  USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4
    3132  IMPLICIT NONE
    3233
    … …  
    6162  !   Declarations:
    6263  !   -------------
    63   include "academic.h"
    6464
    6565  REAL,INTENT(IN) :: time_0 ! not used

  • LMDZ6/trunk/libf/dyn3d_common/academic_mod_h.f90

    r5291 r5292  
    1 !
    2 ! $Id$
    3 !
    4       common/academic/tetarappel,knewt_t,kfrict,knewt_g,clat4
    5       real :: tetarappel(ip1jmp1,llm)
    6       real :: knewt_t(llm)
    7       real :: kfrict(llm)
    8       real :: knewt_g
    9       real :: clat4(ip1jmp1)
     1! Replaces academic.h
     2
     3MODULE academic_mod_h
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5  USE paramet_mod_h
     6  IMPLICIT NONE; PRIVATE
     7
     8  PUBLIC tetarappel, knewt_t, kfrict, knewt_g, clat4
     9
     10  REAL :: tetarappel(ip1jmp1, llm)
     11  REAL :: knewt_t(llm)
     12  REAL :: kfrict(llm)
     13  REAL :: knewt_g
     14  REAL :: clat4(ip1jmp1)
     15
     16END MODULE academic_mod_h

  • LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90

    r5285 r5292  
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1313  USE paramet_mod_h
     14  USE academic_mod_h, ONLY: kfrict
    1415IMPLICIT NONE
    1516
    … …  
    2526  !                   iniacademic.F)
    2627  !=======================================================================
    27 
    28 
    29   include "academic.h"
    3028
    3129  ! arguments:

  • LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90

    r5285 r5292  
    44SUBROUTINE iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
    55
    6   USE iniprint_mod_h
     6USE academic_mod_h
     7    USE iniprint_mod_h
    78  USE comgeom_mod_h
    89  USE filtreg_mod, ONLY: inifilr
    … …  
    3839
    3940
    40   include "academic.h"
    4141
    4242  !   Arguments:

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90

    r5285 r5292  
    4545   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4646   USE paramet_mod_h
     47   USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4
    4748IMPLICIT NONE
    4849
    … …  
    7778  !   Declarations:
    7879  !   -------------
    79   include "academic.h"
    80 
    8180  REAL,INTENT(IN) :: time_0 ! not used
    8281

  • 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

  • LMDZ6/trunk/libf/phylmd/chem_mod_h.f90

    r5291 r5292  
    1 !
    2 ! $Header$
    3 !
    4       INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
    5       PARAMETER (idms=1, iso2=2, iso4=3)
    6       PARAMETER (ih2s=4, idmso=5, imsa=6, ih2o2=7)
     1MODULE chem_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
     4          n_avogadro, masse_s, masse_so4, rho_water, rho_ice
    75
    8       REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
    9       PARAMETER (n_avogadro=6.02E23)                  !--molec mol-1
    10       PARAMETER (masse_s=32.0)                        !--g mol-1
    11       PARAMETER (masse_so4=96.0)                      !--g mol-1
    12       PARAMETER (rho_water=1000.0)                    !--kg m-3
    13       PARAMETER (rho_ice=500.0)                       !--kg m-3
     6  INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
     7  PARAMETER (idms = 1, iso2 = 2, iso4 = 3)
     8  PARAMETER (ih2s = 4, idmso = 5, imsa = 6, ih2o2 = 7)
    149
     10  REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
     11  PARAMETER (n_avogadro = 6.02E23)                  !--molec mol-1
     12  PARAMETER (masse_s = 32.0)                        !--g mol-1
     13  PARAMETER (masse_so4 = 96.0)                      !--g mol-1
     14  PARAMETER (rho_water = 1000.0)                    !--kg m-3
     15  PARAMETER (rho_ice = 500.0)                       !--kg m-3
     16
     17END MODULE chem_mod_h
     18

  • LMDZ6/trunk/libf/phylmd/cvltr_scav.f90

    r5289 r5292  
    1111     zmfd1a,zmfphi2,zmfdam)
    1212  !
    13 USE yoecumf_mod_h
     13USE chem_mod_h
     14  USE yoecumf_mod_h
    1415  USE conema3_mod_h
    1516    USE IOIPSL
    … …  
    2526
    2627
    27   include "chem.h"
    2828
    2929  ! Entree

  • LMDZ6/trunk/libf/phylmd/cvltr_spl.f90

    r5289 r5292  
    1111           qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
    1212           zmfd1a,zmfphi2,zmfdam)
    13 USE yoecumf_mod_h
     13USE chem_mod_h
     14  USE yoecumf_mod_h
    1415  USE conema3_mod_h
    1516    USE IOIPSL
    … …  
    2526
    2627
    27   include "chem.h"
    2828
    2929! Entree

  • LMDZ6/trunk/libf/phylmd/lsc_scav.f90

    r5289 r5292  
    1414  USE yomcst_mod_h
    1515  USE yoecumf_mod_h
     16  USE chem_mod_h
    1617IMPLICIT NONE
    1718!=====================================================================
    … …  
    2122! last modification 16/01/2013 (reformulation partie evaporation)
    2223!=====================================================================
    23 
    24   include "chem.h"
    2524
    2625! inputs

  • LMDZ6/trunk/libf/phylmd/readaerosol_interp.f90

    r5285 r5292  
    1313! 4) Test for negative mass values
    1414
    15   USE clesphys_mod_h
     15USE chem_mod_h
     16    USE clesphys_mod_h
    1617  USE ioipsl
    1718  USE dimphy, ONLY : klev,klon
    … …  
    2829
    2930
    30   INCLUDE "chem.h"
    3131
    3232!

  • LMDZ6/trunk/libf/phylmdiso/chem_mod_h.f90

    r5291 r5292  
    1 link ../phylmd/chem.h
     1link ../phylmd/chem_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.