Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust
- Timestamp:
- Jul 29, 2024, 11:01:04 PM (12 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust
- Files:
-
- 21 edited
-
aeropt_spl.f90 (modified) (1 diff)
-
bcscav_spl.f90 (modified) (2 diffs)
-
bl_for_dms.f90 (modified) (2 diffs)
-
blcloud_scav.f90 (modified) (1 diff)
-
blcloud_scav_lsc.f90 (modified) (1 diff)
-
cltrac_spl.f90 (modified) (3 diffs)
-
cm3_to_kg.f90 (modified) (1 diff)
-
coarsemission.f90 (modified) (2 diffs)
-
deposition.f90 (modified) (2 diffs)
-
finemission.f90 (modified) (1 diff)
-
gastoparticle.f90 (modified) (2 diffs)
-
incloud_scav.f90 (modified) (2 diffs)
-
incloud_scav_lsc.f90 (modified) (2 diffs)
-
inscav_spl.f90 (modified) (2 diffs)
-
kg_to_cm3.f90 (modified) (1 diff)
-
nightingale.f90 (modified) (1 diff)
-
phytracr_spl_mod.F90 (modified) (1 diff)
-
precuremission.f90 (modified) (2 diffs)
-
seasalt.f90 (modified) (2 diffs)
-
sediment_mod.f90 (modified) (2 diffs)
-
trconvect.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/aeropt_spl.f90
r5134 r5144 10 10 USE dimphy 11 11 USE infotrac 12 USE lmdz_yomcst 13 12 14 IMPLICIT NONE 13 15 ! 14 16 INCLUDE "chem.h" 15 17 INCLUDE "dimensions.h" 16 INCLUDE "YOMCST.h"17 18 ! 18 19 ! Arguments: -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bcscav_spl.f90
r5142 r5144 3 3 USE dimphy 4 4 USE lmdz_YOECUMF 5 USE lmdz_yomcst 5 6 6 7 IMPLICIT NONE … … 13 14 INCLUDE "dimensions.h" 14 15 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h"16 16 ! 17 17 REAL :: pdtime, alpha_r, alpha_s, R_r, R_s -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90
r5143 r5144 2 2 , t, q, tsol, ustar, obklen) 3 3 USE dimphy 4 USE lmdz_ YOETHF4 USE lmdz_yoethf 5 5 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep 6 USE lmdz_yomcst 6 7 7 8 IMPLICIT NONE … … 21 22 ! 22 23 INCLUDE "dimensions.h" 23 INCLUDE "YOMCST.h"24 24 ! 25 25 ! Arguments : -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav.f90
r5104 r5144 8 8 USE indice_sol_mod 9 9 USE infotrac 10 USE lmdz_yomcst 11 10 12 IMPLICIT NONE 11 13 12 14 INCLUDE "dimensions.h" 13 15 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h"15 16 INCLUDE "paramet.h" 16 17 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav_lsc.f90
r5104 r5144 8 8 USE indice_sol_mod 9 9 USE infotrac 10 USE lmdz_yomcst 11 10 12 IMPLICIT NONE 11 13 12 14 INCLUDE "dimensions.h" 13 15 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h"15 16 INCLUDE "paramet.h" 16 17 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/cltrac_spl.f90
r5134 r5144 1 SUBROUTINE cltrac_spl(dtime, coef, yu1, yv1, t, tr, & 2 flux, paprs, pplay, d_tr) 1 SUBROUTINE cltrac_spl(dtime, coef, yu1, yv1, t, tr, flux, paprs, pplay, d_tr) 3 2 4 3 USE dimphy 4 USE lmdz_yomcst 5 5 6 IMPLICIT NONE 6 7 !====================================================================== … … 35 36 REAL :: flux(klon), cdrag(klon), tr0(klon) 36 37 ! REAL flux_tr(klon,klev) 37 !====================================================================== 38 INCLUDE "YOMCST.h" 39 !====================================================================== 38 40 39 INTEGER :: i, k 41 40 REAL :: zx_ctr(klon, 2:klev) … … 134 133 ! print *,'d_tr = ',sum(d_tr),MINVAL(d_tr),MAXVAL(d_tr) 135 134 136 137 135 END SUBROUTINE cltrac_spl -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/cm3_to_kg.f90
r5099 r5144 4 4 USE infotrac 5 5 USE indice_sol_mod 6 USE lmdz_yomcst 6 7 7 8 IMPLICIT NONE 8 9 9 10 INCLUDE "dimensions.h" 10 INCLUDE "YOMCST.h"11 11 12 12 REAL :: t_seri(klon, klev), pplay(klon, klev) -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.f90
r5117 r5144 30 30 USE dustemission_mod, ONLY: dustemission 31 31 ! USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb 32 USE lmdz_yomcst 33 32 34 IMPLICIT NONE 33 35 … … 35 37 INCLUDE "chem.h" 36 38 INCLUDE "chem_spla.h" 37 INCLUDE "YOMCST.h"38 39 INCLUDE "paramet.h" 39 40 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/deposition.f90
r5104 r5144 9 9 USE infotrac 10 10 USE indice_sol_mod 11 USE lmdz_yomcst 11 12 12 13 IMPLICIT NONE … … 14 15 INCLUDE "dimensions.h" 15 16 INCLUDE "chem.h" 16 INCLUDE "YOMCST.h"17 17 INCLUDE "paramet.h" 18 18 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/finemission.f90
r5104 r5144 15 15 USE infotrac 16 16 ! USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb 17 USE lmdz_yomcst 18 17 19 IMPLICIT NONE 18 20 19 21 INCLUDE "dimensions.h" 20 22 INCLUDE "chem.h" 21 INCLUDE "YOMCST.h"22 23 INCLUDE "paramet.h" 23 24 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/gastoparticle.f90
r5142 r5144 8 8 USE lmdz_YOECUMF 9 9 ! USE indice_sol_mod 10 USE lmdz_yomcst 10 11 11 12 IMPLICIT NONE … … 14 15 INCLUDE "chem.h" 15 16 INCLUDE "chem_spla.h" 16 INCLUDE "YOMCST.h"17 17 ! 18 18 REAL :: pdtphys -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/incloud_scav.f90
r5104 r5144 8 8 USE infotrac 9 9 USE indice_sol_mod 10 USE lmdz_yomcst 10 11 11 12 IMPLICIT NONE … … 13 14 INCLUDE "dimensions.h" 14 15 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h"16 16 INCLUDE "paramet.h" 17 17 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/incloud_scav_lsc.f90
r5104 r5144 8 8 USE infotrac 9 9 USE indice_sol_mod 10 USE lmdz_yomcst 10 11 11 12 IMPLICIT NONE … … 13 14 INCLUDE "dimensions.h" 14 15 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h"16 16 INCLUDE "paramet.h" 17 17 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90
r5142 r5144 1 1 SUBROUTINE inscav_spl(pdtime, it, masse, henry, kk, qliq, & 2 flxr, flxs, zrho, zdz, t, x, & 3 his_dh) 2 flxr, flxs, zrho, zdz, t, x, his_dh) 4 3 USE dimphy 5 4 USE lmdz_YOECUMF 5 USE lmdz_yomcst 6 6 7 7 IMPLICIT NONE … … 14 14 INCLUDE "dimensions.h" 15 15 INCLUDE "chem.h" 16 INCLUDE "YOMCST.h"17 16 ! 18 17 INTEGER :: it -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/kg_to_cm3.f90
r5099 r5144 3 3 USE dimphy 4 4 USE infotrac 5 USE lmdz_yomcst 6 5 7 IMPLICIT NONE 6 8 7 9 INCLUDE "dimensions.h" 8 INCLUDE "YOMCST.h"9 10 10 11 REAL :: t_seri(klon, klev), pplay(klon, klev) -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/nightingale.f90
r5104 r5144 5 5 USE dimphy 6 6 USE indice_sol_mod 7 USE lmdz_yomcst 8 7 9 IMPLICIT NONE 8 10 ! 9 11 INCLUDE "dimensions.h" 10 INCLUDE "YOMCST.h"11 12 ! 12 13 REAL :: u(klon, klev), v(klon, klev) -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90
r5143 r5144 799 799 USE lmdz_yomcst 800 800 USE lmdz_alpale 801 USE lmdz_ YOETHF801 USE lmdz_yoethf 802 802 803 803 IMPLICIT NONE -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/precuremission.f90
r5117 r5144 20 20 USE infotrac 21 21 ! USE phytracr_spl_mod, ONLY: nbreg_dust, nbreg_ind, nbreg_bb 22 USE lmdz_yomcst 23 22 24 IMPLICIT NONE 23 25 … … 25 27 INCLUDE "chem.h" 26 28 INCLUDE "chem_spla.h" 27 INCLUDE "YOMCST.h"28 29 INCLUDE "paramet.h" 29 30 -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/seasalt.f90
r5142 r5144 6 6 USE dimphy 7 7 USE lmdz_YOECUMF 8 USE lmdz_yomcst 8 9 9 10 IMPLICIT NONE … … 12 13 INCLUDE "chem.h" 13 14 INCLUDE "chem_spla.h" 14 INCLUDE "YOMCST.h"15 15 ! 16 16 INTEGER :: i, bin !local variables -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90
r5142 r5144 11 11 USE infotrac 12 12 USE lmdz_YOECUMF 13 USE lmdz_yomcst 13 14 14 15 IMPLICIT NONE … … 16 17 INCLUDE "dimensions.h" 17 18 INCLUDE "chem.h" 18 INCLUDE "YOMCST.h"19 19 ! 20 20 REAL :: RHcl(klon, klev) ! humidite relative ciel clair -
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/trconvect.f90
r5104 r5144 7 7 USE infotrac 8 8 USE indice_sol_mod 9 USE lmdz_yomcst 9 10 10 11 IMPLICIT NONE … … 12 13 INCLUDE "dimensions.h" 13 14 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h"15 15 INCLUDE "paramet.h" 16 16
Note: See TracChangeset
for help on using the changeset viewer.
