Context Navigation

← Previous Changeset
Next Changeset →

Changeset 5195

Timestamp:

Sep 16, 2024, 3:18:00 PM (2 days ago)

Author:

abarral

Message:

Correct r5192, some lmdz_description cases were missing

Location:

LMDZ6/branches/Amaury_dev/libf

Files:

: 18 edited

dyn3d/gcm.f90 (modified) (2 diffs)
dyn3d_common/adaptdt.f90 (modified) (1 diff)
dyn3d_common/initdynav.F90 (modified) (1 diff)
dyn3d_common/initfluxsto.f90 (modified) (1 diff)
dyn3d_common/inithist.F90 (modified) (1 diff)
dyn3d_common/interpre.f90 (modified) (1 diff)
dyn3d_common/traceurpole.f90 (modified) (1 diff)
dyn3dmem/advtrac_loc.f90 (modified) (1 diff)
dyn3dmem/dynetat0_loc.f90 (modified) (1 diff)
dyn3dmem/dynredem_loc.F90 (modified) (2 diffs)
dyn3dmem/gcm.F90 (modified) (2 diffs)
dyn3dmem/initdynav_loc.f90 (modified) (1 diff)
dyn3dmem/initfluxsto_p.f90 (modified) (1 diff)
dyn3dmem/inithist_loc.F90 (modified) (1 diff)
dyn3dmem/leapfrog_loc.f90 (modified) (1 diff)
dyn3dmem/writedyn_xios.F90 (modified) (1 diff)
dyn3dmem/writedynav_loc.f90 (modified) (1 diff)
dyn3dmem/writehist_loc.f90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.f90

-                      r5186
+                      r5195
   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
-  USE lmdz_description, ONLY: descript
   USE lmdz_dynetat0, ONLY: dynetat0
 …
   abort_message = 'last timestep reached'
   modname = 'gcm'
-  descript = 'Run GCM LMDZ'
   lafin = .FALSE.
   dynhist_file = 'dyn_hist.nc'

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/adaptdt.f90

r5159	r5195
6	6
7	7	USE comconst_mod, ONLY: dtvr
8		~~USE lmdz_description, ONLY: descript~~
9	8	USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis
10	9	USE lmdz_comgeom2

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/initdynav.F90

r5182	r5195
10	10	USE comvert_mod, ONLY: presnivs
11	11	USE temps_mod, ONLY: itau_dyn
12		~~USE lmdz_description, ONLY: descript~~
13	12	USE lmdz_iniprint, ONLY: lunout, prt_level
14	13	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/initfluxsto.f90

r5159	r5195
9	9	USE comvert_mod, ONLY: nivsigs
10	10	USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
11		~~USE lmdz_description, ONLY: descript~~
12	11	USE lmdz_iniprint, ONLY: lunout, prt_level
13	12	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inithist.F90

r5182	r5195
10	10	USE comvert_mod, ONLY: presnivs
11	11	USE temps_mod, ONLY: itau_dyn
12		~~USE lmdz_description, ONLY: descript~~
13	12	USE lmdz_iniprint, ONLY: lunout, prt_level
14	13	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/interpre.f90

r5159	r5195
7	7	USE comconst_mod, ONLY: g
8	8	USE comvert_mod, ONLY: ap, bp
9		~~USE lmdz_description, ONLY: descript~~
10	9	USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis
11	10	USE lmdz_comgeom2

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/traceurpole.f90

r5159	r5195
2	2
3	3	SUBROUTINE traceurpole(q, masse)
4		~~USE lmdz_description, ONLY: descript~~
5	4	USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis
6	5	USE lmdz_comgeom2

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/advtrac_loc.f90

r5182	r5195
19	19	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
20	20	USE lmdz_strings, ONLY: int2str
21		~~USE lmdz_description, ONLY: descript~~
22	21	USE lmdz_libmath, ONLY: minmax
23	22	USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.f90

r5185	r5195
21	21	USE ener_mod, ONLY: etot0, ptot0, ztot0, stot0, ang0
22	22	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
23		~~USE lmdz_description, ONLY: descript~~
24	23	USE lmdz_iniprint, ONLY: lunout, prt_level
25	24	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

-                      r5182
+                      r5195
   USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itaufin, start_time
   USE ener_mod, ONLY: etot0, ptot0, ztot0, stot0, ang0
-  USE lmdz_description, ONLY: descript
   USE lmdz_iniprint, ONLY: lunout, prt_level
   USE lmdz_comgeom
 …
           err, modname, fil, msg
   USE temps_mod, ONLY: itau_dyn, itaufin
-  USE lmdz_description, ONLY: descript
   USE lmdz_iniprint, ONLY: lunout, prt_level
   USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gcm.F90

-                      r5186
+                      r5195
   USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init
   USE lmdz_filtreg, ONLY: inifilr
-  USE lmdz_description, ONLY: descript
   USE lmdz_iniprint, ONLY: lunout, prt_level
   USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
 …
   abort_message = 'last timestep reached'
   modname = 'gcm'
-  descript = 'Run GCM LMDZ'
   lafin = .FALSE.
   dynhist_file = 'dyn_hist'

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initdynav_loc.f90

r5182	r5195
14	14	USE comvert_mod, ONLY: presnivs
15	15	USE temps_mod, ONLY: itau_dyn
16		~~USE lmdz_description, ONLY: descript~~
17	16	USE lmdz_iniprint, ONLY: lunout, prt_level
18	17	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initfluxsto_p.f90

r5159	r5195
9	9	USE comvert_mod, ONLY: nivsigs
10	10	USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
11		~~USE lmdz_description, ONLY: descript~~
12	11	USE lmdz_iniprint, ONLY: lunout, prt_level
13	12	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/inithist_loc.F90

r5159	r5195
13	13	USE comvert_mod, ONLY: presnivs
14	14	USE temps_mod, ONLY: itau_dyn
15		~~USE lmdz_description, ONLY: descript~~
16	15	USE lmdz_iniprint, ONLY: lunout, prt_level
17	16	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.f90

r5185	r5195
40	40	using_xios
41	41	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO, CPPKEY_REPROBUS
42		~~USE lmdz_description, ONLY: descript~~
43	42	USE lmdz_iniprint, ONLY: lunout, prt_level
44	43	USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

r5182	r5195
12	12	USE temps_mod, ONLY: itau_dyn
13	13	USE mod_xios_dyn3dmem, ONLY: writefield_dyn_u, writefield_dyn_v
14		~~USE lmdz_description, ONLY: descript~~
15	14	USE lmdz_iniprint, ONLY: lunout, prt_level
16	15	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedynav_loc.f90

r5182	r5195
12	12	USE comconst_mod, ONLY: cpp
13	13	USE temps_mod, ONLY: itau_dyn
14		~~USE lmdz_description, ONLY: descript~~
15	14	USE lmdz_iniprint, ONLY: lunout, prt_level
16	15	USE lmdz_comgeom

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writehist_loc.f90

r5182	r5195
9	9	USE comconst_mod, ONLY: cpp
10	10	USE temps_mod, ONLY: itau_dyn
11		~~USE lmdz_description, ONLY: descript~~
12	11	USE lmdz_iniprint, ONLY: lunout, prt_level
13	12	USE lmdz_comgeom

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

Context Navigation

Changeset 5195

Legend:

Download in other formats: