Log of /trunk/Compilation/src_ce0l_only
Parent Directory
| Revision Log
Revision
99 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 2 18:39:15 2014 UTC
(9 years, 11 months ago)
by
guez
File length: 314 byte(s)
Diff to
previous 98
Created procedure test_disvert (following LMDZ). Added procedures
hybrid and funcd in module disvert_m. Upgraded compute_ab from
internal procedure of disvert to module procedure. Added variables y,
ya in module disvert_m. Upgraded s from local variable of procedure
disvert to module variable.
Renamed allowed value of variable vert_sampling in procedure disvert
from "read" to "read_hybrid". Added possibility to read pressure
values, value "read_pressure". Replaced vertical distribution for
value "param" by the distribution "strato_correct" from LMDZ (but kept
the value "param"). In case "tropo", replaced 1 by dsigmin (following
LMDZ). In case "strato", replaced 0.3 by dsigmin (following LMDZ).
Changed computation of bp in procedure compute_ab.
Removed debugindex case in clmain. Removed useless argument rlon of
procedure clmain. Removed useless variables ytaux, ytauy of procedure
clmain.
Removed intermediary variables tsol, qsol, tsolsrf, tslab in procedure
etat0.
Removed variable ok_veget:. coupling with the model Orchid is not
possible. Removed variable ocean: modeling an ocean slab is not
possible.
Removed useless variables tmp_rriv and tmp_rcoa from module
interface_surf.
Moved initialization of variables da, mp, phi in procedure physiq to
to inside the test iflag_con >= 3.
Revision
98 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue May 13 17:23:16 2014 UTC
(10 years, 1 month ago)
by
guez
File length: 299 byte(s)
Diff to
previous 94
Split inter_barxy.f : one procedure per module, one module per
file. Grouped the files into a directory.
Split orbite.f.
Value of raz_date read from the namelist is taken into account
(resetting the step counter) even if annee_ref == anneeref and day_ref
== dayref. raz_date is no longer modified by gcm main unit. (Following
LMDZ.)
Removed argument klon of interfsur_lim. Renamed arguments lmt_alb,
lmt_rug to alb_new, z0_new (same name as corresponding actual
arguments in interfsurf_hq).
Removed argument klon of interfsurf_hq.
Removed arguments qs and d_qs of diagetpq. Were always
zero. Downgraded arguments d_qw, d_ql of diagetpq to local variables,
they were not used in physiq. Removed all computations for solid water
in diagetpq, was just zero.
Downgraded arguments fs_bound, fq_bound of diagphy to local variables,
they were not used in physiq. Encapsulated in a test on iprt all
computations in diagphy.
Removed parameter nbtr of module dimphy. Replaced it everywhere in the
program by nqmx - 2.
Removed parameter rnpb of procedure physiq. Kept the true case in
physiq and phytrac. Could not work with false case anyway.
Removed arguments klon, llm, airephy of qcheck. Removed argument ftsol
of initrrnpb, was not used.
Revision
81 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Mar 5 14:38:41 2014 UTC
(10 years, 3 months ago)
by
guez
Original Path:
trunk/src_ce0l_only
File length: 286 byte(s)
Diff to
previous 79
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, 3 months ago)
by
guez
Original Path:
trunk/src_ce0l_only
File length: 284 byte(s)
Copied from:
trunk/src_no_main_ce0l_only revision 78
Diff to
previous 78
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, 4 months ago)
by
guez
Original Path:
trunk/src_no_main_ce0l_only
File length: 275 byte(s)
Copied from:
trunk/sources_ce0l_only revision 77
Diff to
previous 76
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
70 -
(
view)
(
annotate)
-
[select for diffs]
Added
Mon Jun 24 15:39:52 2013 UTC
(10 years, 11 months ago)
by
guez
Original Path:
trunk/libf/sources_ce0l_only
File length: 346 byte(s)
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.