Context Navigation

← Previous Change
Next Change →

Dust

Timestamp:

Sep 10, 2024, 4:25:29 PM (6 months ago)

Author:

abarral

Message:

(WIP) Replace REPROBUS CPP KEY by logical
properly name modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

: 21 edited

aeropt_spl.f90 (modified) (1 diff)
blcloud_scav.f90 (modified) (1 diff)
blcloud_scav_lsc.f90 (modified) (1 diff)
cm3_to_kg.f90 (modified) (1 diff)
coarsemission.f90 (modified) (1 diff)
deposition.f90 (modified) (1 diff)
dustemission_mod.F90 (modified) (5 diffs)
finemission.f90 (modified) (1 diff)
gastoparticle.f90 (modified) (1 diff)
incloud_scav.f90 (modified) (1 diff)
incloud_scav_lsc.f90 (modified) (1 diff)
kg_to_cm3.f90 (modified) (1 diff)
lmdz_phytracr_spl.F90 (modified) (1 diff)
lmdz_precuremission.f90 (modified) (1 diff)
lsc_scav_orig.F90 (modified) (1 diff)
lsc_scav_spl.F90 (modified) (1 diff)
minmaxqfi2.f90 (modified) (1 diff)
minmaxsource.f90 (modified) (1 diff)
phys_output_write_spl_mod.F90 (modified) (1 diff)
sediment_mod.f90 (modified) (1 diff)
trconvect.f90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/aeropt_spl.f90

r5160	r5182
9	9
10	10	USE dimphy
11		USE infotrac
	11	USE lmdz_infotrac
12	12	USE lmdz_yomcst
13	13	USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav.f90

r5160	r5182
7	7	USE dimphy
8	8	USE indice_sol_mod
9		USE infotrac
	9	USE lmdz_infotrac
10	10	USE lmdz_yomcst
11	11

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/blcloud_scav_lsc.f90

r5160	r5182
7	7	USE dimphy
8	8	USE indice_sol_mod
9		USE infotrac
	9	USE lmdz_infotrac
10	10	USE lmdz_yomcst
11	11

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/cm3_to_kg.f90

r5159	r5182
2	2
3	3	USE dimphy
4		USE infotrac
	4	USE lmdz_infotrac
5	5	USE indice_sol_mod
6	6	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.f90

r5160	r5182
27	27	USE dimphy
28	28	USE indice_sol_mod
29		USE infotrac
	29	USE lmdz_infotrac
30	30	USE dustemission_mod, ONLY: dustemission
31	31	! USE lmdz_phytracr_spl, ONLY: nbreg_dust, nbreg_ind, nbreg_bb

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/deposition.f90

r5160	r5182
7	7
8	8	USE dimphy
9		USE infotrac
	9	USE lmdz_infotrac
10	10	USE indice_sol_mod
11	11	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

-                      r5160
+                      r5182
                           emdustacc,emdustcoa,emdustsco,maskdust)    !Output
   USE dimphy
   USE infotrac
+  USE lmdz_infotrac
   USE lmdz_writefield_phy
   USE lmdz_grid_phy
 …
  SUBROUTINE makemask(maskdustloc)
   USE dimphy
   USE infotrac
+  USE lmdz_infotrac
   IMPLICIT NONE
   !Input
 …
   USE dimphy
   USE infotrac
+  USE lmdz_infotrac
   USE lmdz_writefield_phy
   USE lmdz_grid_phy
 …
   SUBROUTINE initdust(xlat,xlon,pctsrf)
   USE dimphy
   USE infotrac
+  USE lmdz_infotrac
   USE lmdz_writefield_phy
   USE lmdz_grid_phy
 …
   ! emisions over 12 dust bin
   USE dimphy
   USE infotrac
+  USE lmdz_infotrac
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/finemission.f90

r5160	r5182
13	13	USE dimphy
14	14	USE indice_sol_mod
15		USE infotrac
	15	USE lmdz_infotrac
16	16	! USE lmdz_phytracr_spl, ONLY: nbreg_dust, nbreg_ind, nbreg_bb
17	17	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/gastoparticle.f90

r5160	r5182
2	2	id_prec, id_fine, tr_seri, his_g2pgas, his_g2paer)
3	3	USE dimphy
4		USE infotrac
	4	USE lmdz_infotrac
5	5	USE lmdz_YOECUMF
6	6	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/incloud_scav.f90

r5160	r5182
6	6
7	7	USE dimphy
8		USE infotrac
	8	USE lmdz_infotrac
9	9	USE indice_sol_mod
10	10	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/incloud_scav_lsc.f90

r5160	r5182
6	6
7	7	USE dimphy
8		USE infotrac
	8	USE lmdz_infotrac
9	9	USE indice_sol_mod
10	10	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/kg_to_cm3.f90

r5159	r5182
2	2
3	3	USE dimphy
4		USE infotrac
	4	USE lmdz_infotrac
5	5	USE lmdz_yomcst
6	6

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lmdz_phytracr_spl.F90

r5160	r5182
783	783	USE IOIPSL
784	784	USE dimphy
785		USE infotrac
	785	USE lmdz_infotrac
786	786	USE indice_sol_mod
787	787	USE lmdz_writefield_phy

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lmdz_precuremission.f90

r5160	r5182
24	24	USE dimphy
25	25	USE indice_sol_mod
26		USE infotrac
	26	USE lmdz_infotrac
27	27	USE lmdz_yomcst
28	28

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_orig.F90

r5160	r5182
9	9	USE lmdz_phys_para
10	10	USE traclmdz_mod
11		USE infotrac, ONLY: nbtr
	11	USE lmdz_infotrac, ONLY: nbtr
12	12	USE iophy
13	13	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_spl.F90

r5160	r5182
11	11	USE lmdz_phys_para
12	12	USE traclmdz_mod
13		USE infotrac, ONLY: nbtr
	13	USE lmdz_infotrac, ONLY: nbtr
14	14	USE iophy
15	15	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxqfi2.f90

r5159	r5182
2	2
3	3	USE dimphy
4		USE infotrac
	4	USE lmdz_infotrac
5	5	USE lmdz_libmath, ONLY: ismax, ismin
6	6

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/minmaxsource.f90

r5159	r5182
2	2
3	3	USE dimphy
4		USE infotrac
	4	USE lmdz_infotrac
5	5	USE lmdz_libmath, ONLY: ismax, ismin
6	6

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

r5160	r5182
382	382	USE pbl_surface_mod, ONLY: snow
383	383	USE indice_sol_mod, ONLY: nbsrf
384		USE infotrac, ONLY: nqtot, nbtr, tracers
	384	USE lmdz_infotrac, ONLY: nqtot, nbtr, tracers
385	385	USE lmdz_geometry, ONLY: cell_area
386	386	USE surface_data, ONLY: type_ocean, version_ocean, ok_veget, landice_opt

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90

r5160	r5182
9	9
10	10	USE dimphy
11		USE infotrac
	11	USE lmdz_infotrac
12	12	USE lmdz_YOECUMF
13	13	USE lmdz_yomcst

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/trconvect.f90

r5160	r5182
5	5
6	6	USE dimphy
7		USE infotrac
	7	USE lmdz_infotrac
8	8	USE indice_sol_mod
9	9	USE lmdz_yomcst

Note: See TracChangeset for help on using the changeset viewer.

Context Navigation

Changeset 5182 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Legend:

Download in other formats: