Changeset 5292 for LMDZ6/trunk
- Timestamp:
- Oct 28, 2024, 4:58:32 PM (2 months ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 29 edited
- 4 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/friction.f90
r5285 r5292 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 12 USE paramet_mod_h 13 USE academic_mod_h, ONLY: kfrict 13 14 IMPLICIT NONE 14 15 … … 24 25 ! iniacademic.F) 25 26 !======================================================================= 26 27 28 include "academic.h"29 27 30 28 ! arguments: -
LMDZ6/trunk/libf/dyn3d/iniacademic.f90
r5285 r5292 4 4 SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0) 5 5 6 USE iniprint_mod_h 6 USE academic_mod_h 7 USE iniprint_mod_h 7 8 USE comgeom_mod_h 8 9 USE filtreg_mod, ONLY: inifilr … … 37 38 38 39 39 include "academic.h"40 40 41 41 ! Arguments: -
LMDZ6/trunk/libf/dyn3d/leapfrog.F90
r5285 r5292 29 29 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 30 30 USE paramet_mod_h 31 USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4 31 32 IMPLICIT NONE 32 33 … … 61 62 ! Declarations: 62 63 ! ------------- 63 include "academic.h"64 64 65 65 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 3 MODULE 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 16 END MODULE academic_mod_h -
LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90
r5285 r5292 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 13 USE paramet_mod_h 14 USE academic_mod_h, ONLY: kfrict 14 15 IMPLICIT NONE 15 16 … … 25 26 ! iniacademic.F) 26 27 !======================================================================= 27 28 29 include "academic.h"30 28 31 29 ! arguments: -
LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90
r5285 r5292 4 4 SUBROUTINE iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0) 5 5 6 USE iniprint_mod_h 6 USE academic_mod_h 7 USE iniprint_mod_h 7 8 USE comgeom_mod_h 8 9 USE filtreg_mod, ONLY: inifilr … … 38 39 39 40 40 include "academic.h"41 41 42 42 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90
r5285 r5292 45 45 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 46 46 USE paramet_mod_h 47 USE academic_mod_h, ONLY: tetarappel, knewt_t, knewt_g, clat4 47 48 IMPLICIT NONE 48 49 … … 77 78 ! Declarations: 78 79 ! ------------- 79 include "academic.h"80 81 80 REAL,INTENT(IN) :: time_0 ! not used 82 81 -
LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90
r5285 r5292 8 8 taue550_dustsco,taue670_dustsco,taue865_dustsco) 9 9 ! 10 USE dimphy 10 USE chem_mod_h 11 USE dimphy 11 12 USE infotrac 12 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 14 15 IMPLICIT none 15 16 ! 16 INCLUDE "chem.h"17 17 18 18 !INCLUDE "dimphy.h" -
LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90
r5289 r5292 5 5 USE yomcst_mod_h 6 6 USE yoecumf_mod_h 7 USE chem_mod_h 7 8 IMPLICIT NONE 8 9 !===================================================================== … … 11 12 ! Auteur: O. Boucher (LOA) 12 13 !===================================================================== 13 !14 14 15 INCLUDE "chem.h"16 15 ! 17 16 REAL :: pdtime, alpha_r, alpha_s, R_r, R_s -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90
r5285 r5292 5 5 his_dhbclsc,his_dhbccon,tr_seri) 6 6 7 USE dimphy 7 USE chem_mod_h 8 USE dimphy 8 9 USE indice_sol_mod 9 10 USE infotrac … … 14 15 15 16 16 INCLUDE "chem.h"17 17 18 18 -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90
r5285 r5292 5 5 his_dhbclsc,his_dhbccon,tr_seri) 6 6 7 USE dimphy 7 USE chem_mod_h 8 USE dimphy 8 9 USE indice_sol_mod 9 10 USE infotrac … … 14 15 15 16 16 INCLUDE "chem.h"17 17 18 18 -
LMDZ6/trunk/libf/phylmd/Dust/chem_spla_mod_h.f90
r5291 r5292 1 ! 2 ! $Header$ 3 ! 1 MODULE chem_spla_mod_h 2 IMPLICIT NONE; PRIVATE 3 PUBLIC ss_bins, masse_ammsulfate 4 4 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 7 END MODULE chem_spla_mod_h 7 8 8 ! INTEGER nbreg_dust,nbreg_ind, nbreg_bb9 ! PARAMETER (nbreg_dust=11,nbreg_ind=13,nbreg_bb=15)10 11 REAL masse_ammsulfate12 PARAMETER (masse_ammsulfate=132.0) !--g mol-113 14 -
LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90
r5285 r5292 26 26 ! 27 27 28 USE dimphy 28 USE chem_spla_mod_h 29 USE chem_mod_h 30 USE dimphy 29 31 USE indice_sol_mod 30 32 USE infotrac … … 37 39 38 40 39 INCLUDE "chem.h"40 INCLUDE "chem_spla.h"41 41 42 42 -
LMDZ6/trunk/libf/phylmd/Dust/deposition.f90
r5285 r5292 6 6 his_ds,source_tr,tr_seri) 7 7 8 USE dimphy 8 USE chem_mod_h 9 USE dimphy 9 10 USE infotrac 10 11 USE indice_sol_mod … … 16 17 17 18 18 INCLUDE "chem.h"19 19 20 20 -
LMDZ6/trunk/libf/phylmd/Dust/finemission.f90
r5285 r5292 11 11 source_tr,flux_tr,tr_seri) 12 12 13 USE dimphy 13 USE chem_mod_h 14 USE dimphy 14 15 USE indice_sol_mod 15 16 USE infotrac … … 21 22 22 23 23 INCLUDE "chem.h"24 24 25 25 -
LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90
r5289 r5292 4 4 !nhl . fluxso4chem, flux_sparam_sulf, 5 5 6 USE yoecumf_mod_h 6 USE chem_spla_mod_h 7 USE chem_mod_h 8 USE yoecumf_mod_h 7 9 USE dimphy 8 10 USE infotrac … … 14 16 ! 15 17 16 INCLUDE "chem.h"17 INCLUDE "chem_spla.h"18 18 19 19 ! -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90
r5285 r5292 5 5 his_dhlsc,his_dhcon1,tr_seri) 6 6 7 USE dimphy 7 USE chem_mod_h 8 USE dimphy 8 9 USE infotrac 9 10 USE indice_sol_mod … … 15 16 16 17 17 INCLUDE "chem.h"18 18 19 19 -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90
r5285 r5292 5 5 his_dhlsc,his_dhcon1,tr_seri) 6 6 7 USE dimphy 7 USE chem_mod_h 8 USE dimphy 8 9 USE infotrac 9 10 USE indice_sol_mod … … 15 16 16 17 17 INCLUDE "chem.h"18 18 19 19 -
LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90
r5289 r5292 6 6 USE yomcst_mod_h 7 7 USE yoecumf_mod_h 8 USE chem_mod_h 8 9 IMPLICIT NONE 9 10 !===================================================================== … … 12 13 ! Auteur: O. Boucher (LOA) 13 14 !===================================================================== 14 !15 15 16 INCLUDE "chem.h"17 16 ! 18 17 INTEGER :: it -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90
r5289 r5292 16 16 USE yomcst_mod_h 17 17 USE yoecumf_mod_h 18 USE chem_mod_h 18 19 IMPLICIT NONE 19 20 !===================================================================== … … 24 25 !===================================================================== 25 26 26 27 include "chem.h"28 27 29 28 REAL,INTENT(IN) :: pdtime ! time step (s) -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90
r5289 r5292 17 17 USE yomcst_mod_h 18 18 USE yoecumf_mod_h 19 USE chem_mod_h 19 20 IMPLICIT NONE 20 21 !===================================================================== … … 26 27 ! SPLA version taken from trunk revision 2041 27 28 28 29 include "chem.h"30 29 31 30 REAL,INTENT(IN) :: pdtime ! time step (s) -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5285 r5292 4 4 MODULE phytracr_spl_mod 5 5 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 11 10 12 11 REAL,SAVE :: scale_param_ssacc !Scaling parameter for Fine Sea Salt … … 812 811 USE alpale_mod 813 812 USE yoethf_mod_h 813 USE chem_mod_h 814 814 IMPLICIT none 815 815 ! … … 825 825 !! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ; 826 826 !! et c'est encore different avec le parser de DC ? 827 !======================================================================828 INCLUDE "chem.h"829 INCLUDE "chem_spla.h"830 831 827 !====================================================================== 832 828 -
LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90
r5285 r5292 16 16 source_tr,flux_tr,tr_seri) 17 17 18 USE dimphy 18 USE chem_spla_mod_h 19 USE chem_mod_h 20 USE dimphy 19 21 USE indice_sol_mod 20 22 USE infotrac … … 26 28 27 29 28 INCLUDE "chem.h"29 INCLUDE "chem_spla.h"30 30 31 31 -
LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90
r5285 r5292 18 18 lmt_omnat, lmt_omba) 19 19 20 USE dimphy 20 USE chem_spla_mod_h 21 USE chem_mod_h 22 USE dimphy 21 23 USE indice_sol_mod 22 24 USE mod_grid_phy_lmdz … … 31 33 ! INCLUDE 'dimphy.h' 32 34 33 INCLUDE 'chem.h'34 INCLUDE 'chem_spla.h'35 35 ! INCLUDE 'indicesol.h' 36 36 -
LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90
r5289 r5292 4 4 SUBROUTINE seasalt(v_10m, u_10m, pct_ocean, lmt_sea_salt) 5 5 6 USE yoecumf_mod_h 6 USE chem_spla_mod_h 7 USE chem_mod_h 8 USE yoecumf_mod_h 7 9 USE dimphy 8 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 11 13 ! 12 14 13 INCLUDE "chem.h"14 INCLUDE "chem_spla.h"15 15 16 16 ! -
LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90
r5289 r5292 8 8 !nhl . xlon,xlat, 9 9 ! 10 USE yoecumf_mod_h 10 USE chem_mod_h 11 USE yoecumf_mod_h 11 12 USE dimphy 12 13 USE infotrac … … 16 17 ! 17 18 18 INCLUDE "chem.h"19 19 ! INCLUDE "dimphy.h" 20 20 -
LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90
r5285 r5292 4 4 dtrconv,tr_seri) 5 5 6 USE dimphy 6 USE chem_mod_h 7 USE dimphy 7 8 USE infotrac 8 9 USE indice_sol_mod … … 14 15 15 16 16 INCLUDE "chem.h"17 17 18 18 -
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) 1 MODULE 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 7 5 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) 14 9 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 17 END MODULE chem_mod_h 18 -
LMDZ6/trunk/libf/phylmd/cvltr_scav.f90
r5289 r5292 11 11 zmfd1a,zmfphi2,zmfdam) 12 12 ! 13 USE yoecumf_mod_h 13 USE chem_mod_h 14 USE yoecumf_mod_h 14 15 USE conema3_mod_h 15 16 USE IOIPSL … … 25 26 26 27 27 include "chem.h"28 28 29 29 ! Entree -
LMDZ6/trunk/libf/phylmd/cvltr_spl.f90
r5289 r5292 11 11 qPa,qMel,qTrdi,dtrcvMA,Mint, & 12 12 zmfd1a,zmfphi2,zmfdam) 13 USE yoecumf_mod_h 13 USE chem_mod_h 14 USE yoecumf_mod_h 14 15 USE conema3_mod_h 15 16 USE IOIPSL … … 25 26 26 27 27 include "chem.h"28 28 29 29 ! Entree -
LMDZ6/trunk/libf/phylmd/lsc_scav.f90
r5289 r5292 14 14 USE yomcst_mod_h 15 15 USE yoecumf_mod_h 16 USE chem_mod_h 16 17 IMPLICIT NONE 17 18 !===================================================================== … … 21 22 ! last modification 16/01/2013 (reformulation partie evaporation) 22 23 !===================================================================== 23 24 include "chem.h"25 24 26 25 ! inputs -
LMDZ6/trunk/libf/phylmd/readaerosol_interp.f90
r5285 r5292 13 13 ! 4) Test for negative mass values 14 14 15 USE clesphys_mod_h 15 USE chem_mod_h 16 USE clesphys_mod_h 16 17 USE ioipsl 17 18 USE dimphy, ONLY : klev,klon … … 28 29 29 30 30 INCLUDE "chem.h"31 31 32 32 ! -
LMDZ6/trunk/libf/phylmdiso/chem_mod_h.f90
r5291 r5292 1 link ../phylmd/chem .h1 link ../phylmd/chem_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.