Context Navigation

← Previous Change
Next Change →

dyn3dmem

Timestamp:

Jul 25, 2024, 5:47:25 PM (8 weeks ago)

Author:

abarral

Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Files:

: 24 edited

advtrac_loc.f90 (modified) (1 diff)
bilan_dyn_loc.f90 (modified) (1 diff)
check_isotopes_loc.F90 (modified) (1 diff)
conf_gcm.F90 (modified) (1 diff)
dynetat0_loc.F90 (modified) (1 diff)
dynredem_mod.F90 (modified) (1 diff)
exner_hyb_loc_m.F90 (modified) (1 diff)
exner_milieu_loc_m.F90 (modified) (1 diff)
friction_loc.f90 (modified) (1 diff)
gcm.F90 (modified) (1 diff)
guide_loc_mod.F90 (modified) (1 diff)
iniacademic_loc.F90 (modified) (1 diff)
integrd_loc.f90 (modified) (1 diff)
leapfrog_loc.F90 (modified) (1 diff)
lmdz_filtreg_p.F90 (modified) (1 diff)
mod_hallo.F90 (modified) (1 diff)
parallel_lmdz.F90 (modified) (1 diff)
paramet.h (modified) (1 diff)
qminimum_loc.f90 (modified) (1 diff)
times.F90 (modified) (1 diff)
vlsplt_loc.f90 (modified) (1 diff)
vlspltgen_loc.F90 (modified) (1 diff)
vlspltqs_loc.f90 (modified) (2 diffs)
wrgrads.f90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

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

r5117	r5128
22	22	USE lmdz_libmath, ONLY: minmax
23	23
	24
24	25	IMPLICIT NONE
25	26

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

r5118	r5128
19	19	USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
20	20	USE lmdz_iniprint, ONLY: lunout, prt_level
	21
21	22
22	23	IMPLICIT NONE

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

r5117	r5128
4	4	USE infotrac, ONLY: nqtot, niso, nphas, isotope, isoCheck, iqIsoPha, isoSelect, &
5	5	ntiso, iH2O, nzone, tracers, isoName, itZonIso, getKey
	6
	7
6	8	IMPLICIT NONE
7	9	include "dimensions.h"

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

r5120	r5128
22	22	USE temps_mod, ONLY: calend, year_len, offline_time
23	23	USE lmdz_iniprint, ONLY: lunout, prt_level
	24
24	25
25	26	IMPLICIT NONE

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

r5118	r5128
23	23	USE lmdz_description, ONLY: descript
24	24	USE lmdz_iniprint, ONLY: lunout, prt_level
	25
25	26
26	27	IMPLICIT NONE

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

r5101	r5128
250	250	SUBROUTINE err(ierr,typ,nam)
251	251
252		~~!===============================================================================~~
253	252	IMPLICIT NONE
254	253	!===============================================================================

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

r5119	r5128
37	37	USE comvert_mod, ONLY: preff
38	38	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
	39
39	40
40	41	IMPLICIT NONE

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

r5119	r5128
33	33	USE comconst_mod, ONLY: cpp, kappa, r, jmp1
34	34	USE comvert_mod, ONLY: preff
	35
35	36
36	37	IMPLICIT NONE

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

r5118	r5128
8	8	USE comconst_mod, ONLY: pi
9	9	USE lmdz_iniprint, ONLY: lunout, prt_level
	10
	11
10	12	IMPLICIT NONE
11	13

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

r5118	r5128
27	27	USE lmdz_description, ONLY: descript
28	28	USE lmdz_iniprint, ONLY: lunout, prt_level
	29
29	30
30	31	IMPLICIT NONE

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

r5117	r5128
15	15	USE parallel_lmdz
16	16	USE lmdz_pres2lev, ONLY: pres2lev
	17
17	18
18	19	IMPLICIT NONE

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

r5118	r5128
20	20	USE lmdz_ran1, ONLY: ran1
21	21	USE lmdz_iniprint, ONLY: lunout, prt_level
	22
22	23
23	24	! Author: Frederic Hourdin original: 15/01/93

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

r5123	r5128
18	18	USE lmdz_iniprint, ONLY: lunout, prt_level
19	19	USE lmdz_ssum_scopy, ONLY: ssum
	20
20	21
21	22	IMPLICIT NONE

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

r5123	r5128
42	42	USE lmdz_description, ONLY: descript
43	43	USE lmdz_iniprint, ONLY: lunout, prt_level
	44
44	45
45	46	IMPLICIT NONE

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

r5120	r5128
14	14	USE lmdz_timer_filtre, ONLY: init_timer, start_timer, stop_timer
15	15	USE lmdz_coefils, ONLY: jfiltnu, jfiltnv, jfiltsu, jfiltsv, sddu, sddv, unsddu, unsddv, modfrstv, modfrstu
	16
16	17
17	18	!=======================================================================

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

r5119	r5128
138	138
139	139	SUBROUTINE allocate_buffer(Size,Index,Pos)
	140
140	141	IMPLICIT NONE
141	142	INTEGER :: Size

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

r5119	r5128
374	374	! ug Pour les sorties XIOS
375	375	USE lmdz_wxios
	376
376	377
377	378	#ifdef CPP_COUPLE

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/paramet.h

r5099	r5128
18	18
19	19	PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3 &
20		& ,jjp1=jjm+1-1/jjm)
	20	,jjp1=jjm+1-1/jjm)
21	21	PARAMETER( llmp1 = llm+1, llmp2 = llm+2, llmm1 = llm-1 )
22	22	PARAMETER( kftd = iim/2 -ndm )

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

r5123	r5128
8	8	USE lmdz_readTracFiles, ONLY: addPhase
9	9	USE lmdz_iniprint, ONLY: lunout, prt_level
	10
	11
10	12	IMPLICIT none
11	13	!

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

r5119	r5128
49	49
50	50	SUBROUTINE start_timer(no_timer)
	51
	52
51	53	IMPLICIT NONE
52	54	INTEGER :: no_timer

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

r5123	r5128
814	814	USE lmdz_iniprint, ONLY: lunout, prt_level
815	815
	816
816	817	IMPLICIT NONE
817	818	!

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

r5117	r5128
31	31	USE comconst_mod, ONLY: cpp
32	32	USE logic_mod, ONLY: adv_qsat_liq
	33
	34
33	35	IMPLICIT NONE
34	36

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

-                      r5123
+                      r5128
     IF (pole_sud) THEN
+      convps = -SSUM(iim, qbyv(ip1jm - iim, l, iq), iq, 1) / apols  ! /!\ called with 4 args ???
+      convps = -SSUM(iim, qbyv(ip1jm - iim, l, iq), 1) / apols
       convmps = -SSUM(iim, masse_adv_v(ip1jm - iim, l), 1) / apols
       DO ij = ip1jm + 1, ip1jmp1
 …
         masse(ij, l, iq) = newmasse
       ENDDO
     ENDIF
     !.-. fin ancienne version

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

r5117	r5128
3	3	SUBROUTINE wrgrads(if, nl, field, name, titlevar)
4	4	USE lmdz_formcoord, ONLY: formcoord
	5
	6
5	7	IMPLICIT NONE
6	8

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

Context Navigation

Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Legend:

Download in other formats: