Context Navigation

← Previous Change
Next Change →

phylmd

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd

Files:

: 24 edited

Dust/aeropt_spl.f90 (modified) (1 diff)
Dust/blcloud_scav.f90 (modified) (1 diff)
Dust/blcloud_scav_lsc.f90 (modified) (1 diff)
Dust/cm3_to_kg.f90 (modified) (1 diff)
Dust/coarsemission.f90 (modified) (1 diff)
Dust/deposition.f90 (modified) (1 diff)
Dust/dustemission_mod.F90 (modified) (5 diffs)
Dust/finemission.f90 (modified) (1 diff)
Dust/gastoparticle.f90 (modified) (1 diff)
Dust/incloud_scav.f90 (modified) (1 diff)
Dust/incloud_scav_lsc.f90 (modified) (1 diff)
Dust/kg_to_cm3.f90 (modified) (1 diff)
Dust/lmdz_phytracr_spl.F90 (modified) (1 diff)
Dust/lmdz_precuremission.f90 (modified) (1 diff)
Dust/lsc_scav_orig.F90 (modified) (1 diff)
Dust/lsc_scav_spl.F90 (modified) (1 diff)
Dust/minmaxqfi2.f90 (modified) (1 diff)
Dust/minmaxsource.f90 (modified) (1 diff)
Dust/phys_output_write_spl_mod.F90 (modified) (1 diff)
Dust/sediment_mod.f90 (modified) (1 diff)
Dust/trconvect.f90 (modified) (1 diff)
dyn1d/lmdz_1dutils.f90 (modified) (2 diffs)
dyn1d/lmdz_old_lmdz1d.F90 (modified) (1 diff)
dyn1d/lmdz_scm.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

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

-                      r5160
+                      r5182
     USE iostart
     USE lmdz_writefield_phy
     USE infotrac
+    USE lmdz_infotrac
     USE control_mod
     USE comconst_mod, ONLY: im, jm, lllm
 …
     USE phys_state_var_mod
     USE iostart
     USE infotrac
+    USE lmdz_infotrac
     USE control_mod
     USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

r5160	r5182
33	33	USE fonte_neige_mod, ONLY: fonte_neige_init, fonte_neige_final
34	34
35		USE infotrac
	35	USE lmdz_infotrac
36	36	USE control_mod
37	37	USE indice_sol_mod

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

r5160	r5182
27	27	USE fonte_neige_mod, ONLY: fonte_neige_init, fonte_neige_final
28	28
29		USE infotrac
	29	USE lmdz_infotrac
30	30	USE control_mod
31	31	USE indice_sol_mod

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

Context Navigation

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

Legend:

Download in other formats: