Log of /trunk/Sources
Directory Listing
Revision
138 -
Directory Listing
Modified
Fri May 22 23:13:19 2015 UTC
(8 years, 11 months ago)
by
guez
Moved variable nb_files from module histcom_var to module
histbeg_totreg_m.
Removed unused argument q of writehist.
No history file is created in program ce0l so there is no need to call
histclo in etat0.
In phyredem, access variables rlat and rlon directly from module
phyetat0_m instead of having them as arguments. This is clearer for
the program gcm. There are bad side effects for the program ce0l: we
have to modify the module variables rlat and rlon in procedure etat0,
and we need the additional file phyetat0.f to compile ce0l.
Revision
137 -
Directory Listing
Modified
Wed May 6 15:51:03 2015 UTC
(9 years ago)
by
guez
Removed unused argument missval in ma_fucoll_r[1-3]1, ma_fufill_r[1-3]1.
Split filtreg into two procedures: filtreg_scal and filtreg_v. I did
not like the test on the extent of the argument and there was no
common code between the two cases: jjm and jjm + 1. Also, it is
simpler now to just remove the argument "direct" from filtreg_v instead
of allowing it and then stopping the program if it is false.
Removed the computation of pkf in reanalyse2nat, was not used.
As a consequence of the split of filtreg, had to extract the
computation of pkf out of exner_hyb. This is clearer anyway because we
want to be able to call exner_hyb with any size in the first two
dimensions (as in test_disvert). But at the same time exner_hyb
required particular sizes for the computation of pkf. It was
awkward. The only computation of pkf is now in leapfrog.
Revision
136 -
Directory Listing
Modified
Thu Apr 30 18:35:49 2015 UTC
(9 years ago)
by
guez
Clarified the logic in filtreg by creating a procedure
filtreg_hemisph. It was terrible with a loop on hemispheres and tests
on hemisphere inside the loop, plus maddening indirections on latitude
bounds, plus repeated code. Went from 126 lines to much clearer 74 +
32 = 106 lines.
In module inifilr_m, finally made the arrays matrice[uv][ns],
matrinv[ns] dynamic (following LMDZ). Changed the lower bound of
matriceun and matrinvn in the 3rd dimension: 2 instead of 1, the index
1 was not defined (nor used).
In module inifilr_m, changed the bounds of matriceus and matrinvs in
the 3rd dimension: jfiltsu:jjm instead of 1:jjm - jfiltsu + 1. Changed
the bounds of matricevs in the 3rd dimension: jfiltsv:jjm instead of
1:jjm - jfiltsv + 1. It is a little simpler and clearer this way in
procedure inifilr.
Revision
135 -
Directory Listing
Modified
Thu Apr 30 14:22:32 2015 UTC
(9 years ago)
by
guez
Use matmul in filtreg.
Revision
134 -
Directory Listing
Added
Wed Apr 29 15:47:56 2015 UTC
(9 years ago)
by
guez
Sources inside, compilation outside.