Log of /trunk/Compilation/common_sources
Parent Directory
| Revision Log
Revision
121 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jan 28 16:10:02 2015 UTC
(9 years, 5 months ago)
by
guez
File length: 621 byte(s)
Diff to
previous 119
,
to
selected 82
In procedure fxhyp, extracted the body of the loop on ik into a new
procedure: fxhyp_loop_ik.
dzoomx and dzoomy must now be fractions of the entire range, they
cannot be ranges in degrees or rad.
In fxhyp, force Xf(2 * nmax) = pi_d instead of possibly doing it in
fxhyp_loop_ik.
In fxhyp_loop_ik, when testing whether xvrai is between -pi and pi,
changed the boundaries from -pi - 0.1 to - pi_d - 1d-5 and from pi +
0.1 to pi_d + 1d-5. This reveals a misconception of the
code. Therefore, this version does not work.
Revision
119 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jan 7 14:34:57 2015 UTC
(9 years, 6 months ago)
by
guez
File length: 605 byte(s)
Diff to
previous 113
,
to
selected 82
Removed procedure fxyhyper. Useless intermediary between inigeom and
fxhyp, fyhyp. Removed argument yprimv of fyhyp, not used in
inigeom. Downgraded rlonm025 and rlonp025 from arguments to local
variables of fxhyp, not used in inigeom. Downgraded arguments
champmin, champmax of fxhyp and fyhyp to local variables: print them
in fxhyp and fyhyp instead of fxyhyper.
Removed arguments xzoomdeg, grossism, dzooma, tau of fxhyp. Use
directly module variables clon, grossismx, dzoomx, taux instead.
Removed arguments yzoomdeg, grossism, dzooma, tau of fyhyp. Use
directly module variables clat, grossismy, dzoomy, tauy instead.
In procedure yamada4, l0 does not need the save attribute. It is
defined at each call.
Revision
113 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 18 19:56:46 2014 UTC
(9 years, 9 months ago)
by
guez
File length: 616 byte(s)
Diff to
previous 104
,
to
selected 82
Moved the call to read_serre out of conf_gcm so that it can be called
only in the program ce0l, not in gcm. In gcm, variables of module
serre are read from start file. Added reading of dzoomx, dzoomy, taux,
tauy from start file, in dynetat0. Those variables were written by
dynredem0 but not read.
Removed possibility fxyhypb = false, because the geometric part of the
program is such a mess. Could then remove variables transx, transy,
alphax, alphay, pxo, pyo of module serre.
Bug fix in tau2alpha: missing save attributes. The first call to
tau2alpha needs to compute dxdyu and dxdyv regardless of value of
argument type, because they will be needed for subsequent calls to
tau2alpha with various values of argument type.
Revision
104 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 4 10:05:52 2014 UTC
(9 years, 10 months ago)
by
guez
File length: 633 byte(s)
Diff to
previous 97
,
to
selected 82
Removed procedure sortvarc0. Called sortvarc with an additional
argument resetvarc instead. (Following LMDZ.) Moved current time
computations and some printing statements from sortvarc to
caldyn. Could then remove arguments itau and time_0 of sortvarc, and
could remove "use dynetat0". Better to keep "dynetat0.f" as a gcm-only
file.
Moved some variables from module ener to module sortvarc.
Split file "mathelp.f" into single-procedure files.
Removed unused argument nadv of adaptdt. Removed dimension arguments
of bernoui.
Removed unused argument nisurf of interfoce_lim. Changed the size of
argument lmt_sst of interfoce_lim from klon to knon. Removed case when
newlmt is false.
dynredem1 is called only once in each run, either ce0l or gcm. So
variable nb in call to nf95_put_var was always 1. Removed variable nb.
Removed dimension arguments of calcul_fluxs. Removed unused arguments
precip_rain, precip_snow, snow of calcul_fluxs. Changed the size of
all the arrays in calcul_fluxs from klon to knon.
Removed dimension arguments of fonte_neige. Changed the size of all
the arrays in fonte_neige from klon to knon.
Changed the size of arguments tsurf and tsurf_new of interfsurf_hq
from klon to knon. Changed the size of argument ptsrf of soil from
klon to knon.
Revision
97 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Apr 25 14:58:31 2014 UTC
(10 years, 2 months ago)
by
guez
File length: 622 byte(s)
Diff to
previous 94
,
to
selected 82
Module pressure_var is now only used in gcm. Created local variables
pls and p3d in etat0, added argument p3d to regr_pr_o3.
In leapfrog, moved computation of p3d and exner function immediately
after integrd, for clarity (does not change the execution).
Removed unused arguments: ntra, tra1 and tra of cv3_compress; ntra,
tra and traent of cv3_mixing; ntra, ftra, ftra1 of cv3_uncompress;
ntra, tra, trap of cv3_unsat; ntra, tra, trap, traent, ftra of
cv3_yield; tra, tvp, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt,
dplcldr, ntra of concvl; ndp1, ntra, tra1 of cv_driver
Removed argument d_tra and computation of d_tra in concvl. Removed
argument ftra1 and computation of ftra1 in cv_driver. ftra1 was just
set to 0 in cv_driver, associated to d_tra in concvl, and set again to
zero in concvl.
Revision
93 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Apr 1 15:50:48 2014 UTC
(10 years, 3 months ago)
by
guez
Original Path:
trunk/common_sources
File length: 637 byte(s)
Diff to
previous 92
,
to
selected 82
Moved variable calendar_used, un_an and mon_len from module calendar
to module ioconf_calendar_m. Removed unused variables cal, start_day,
start_sec of module calendar.
Inlined procedure ju2ymds_internal into procedure ju2ymds. Inlined
procedure ymds2ju_internal into procedure ymds2ju.
Removed generic interface ioget_calendar. Merged ioget_calendar_real1
and ioget_calendar_real2 into ioget_calendar_real.
Revision
82 -
(
view)
(
annotate)
-
[selected]
Modified
Wed Mar 5 14:57:53 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/common_sources
File length: 599 byte(s)
Diff to
previous 81
Changed all ".f90" suffixes to ".f".
Revision
81 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Mar 5 14:38:41 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/common_sources
File length: 713 byte(s)
Diff to
previous 79
,
to
selected 82
Converted to free source form files which were still in fixed source
form. The conversion was done using the polish mode of the NAG Fortran
Compiler.
In addition to converting to free source form, the processing of the
files also:
-- indented the code (including comments);
-- set Fortran keywords to uppercase, and set all other identifiers
to lower case;
-- added qualifiers to end statements (for example "end subroutine
conflx", instead of "end");
-- changed the terminating statements of all DO loops so that each
loop ends with an ENDDO statement (instead of a labeled continue).
Revision
79 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Feb 28 17:52:47 2014 UTC
(10 years, 4 months ago)
by
guez
Original Path:
trunk/common_sources
File length: 689 byte(s)
Diff to
previous 78
,
to
selected 82
Moved procedure iniconst inside module comconst. Removed useless
variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1,
lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in
dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step
and start.nc that was in gcm to dynetat0. Moved call to disvert out of
iniconst. Moved call to iniconst in gcm before call to dynetat0.
Removed unused argument pvteta of physiq (not used either in LMDZ).
Revision
78 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Feb 5 17:51:07 2014 UTC
(10 years, 5 months ago)
by
guez
Original Path:
trunk/common_sources
File length: 712 byte(s)
Diff to
previous 76
,
to
selected 82
Moved procedure inigeom into module comgeom.
In disvert, renamed s_sampling to vert_sampling, following
LMDZ. Removed choice strato1. In case read, read ap and bp instead of
s (following LMDZ).
Added argument phis to start_init_orog and start_init_dyn, and removed
variable phis of module start_init_orog_m. In etat0 and
start_init_orog, renamed relief to zmea_2d. In start_init_dyn, renamed
psol to ps.
In start_init_orog, renamed relief_hi to relief. No need to set
phis(iim + 1, :) = phis(1, :), already done in grid_noro.
Documentation for massbar out of SVN, in massbar.txt. Documentation
was duplicated in massdair, but not relevant in massdair.
In conflx, no need to initialize pen_[ud] and pde_[ud]. In flxasc,
used intermediary variable fact (following LMDZ).
In grid_noro, added local variable zmea0 for zmea not smoothed and
computed zphi from zmea instead of zmea0 (following LMDZ). This
changes the results of ce0l.
Removed arguments pen_u and pde_d of phytrac and nflxtr, which were
not used.
Revision
71 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 8 18:12:18 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/common_sources
File length: 936 byte(s)
Diff to
previous 70
,
to
selected 82
No reason to call inidissip in ce0l.
In inidissip, set random seed to 1 beacuse PGI compiler does not
accept all zeros.
dq was computed needlessly in caladvtrac. Arguments masse and dq of
calfis not used.
Replaced real*8 by double precision.
Pass arrays with inverted order of vertical levels to conflx instead
of creating local variables for this inside conflx.
Revision
70 -
(
view)
(
annotate)
-
[select for diffs]
Added
Mon Jun 24 15:39:52 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/common_sources
File length: 988 byte(s)
Diff
to
selected 82
In procedure, "addfi" access directly the module variable "dtphys"
instead of going through an argument.
In "conflx", do not create a local variable for temperature with
reversed order of vertical levels. Instead, give an actual argument
with reversed order in "physiq".
Changed names of variables "rmd" and "rmv" from module "suphec_m" to
"md" and "mv".
In "hgardfou", print only the first temperature out of range found.
This form allows you to request diffs between any two revisions of this file.
For each of the two "sides" of the diff,
enter a numeric revision.