Log of /trunk/phylmd/Interface_surf/interfsurf_hq.f
Parent Directory
|
Revision Log
Revision
104 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 4 10:05:52 2014 UTC
(9 years, 11 months ago)
by
guez
File length: 16257 byte(s)
Diff to
previous 101
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
101 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 7 17:45:21 2014 UTC
(10 years, 1 month ago)
by
guez
File length: 15716 byte(s)
Diff to
previous 100
Removed unused files "interfoce_slab.f" and "gath2cpl.f". Removed
unused variables coastalflow and riverflow of module
interface_surf. Removed unused arguments cal, radsol, dif_grnd,
fluxlat, fluxsens, dflux_s, dflux_l of procedure fonte_neige. Removed
unused arguments tslab, seaice of procedure interfsurf_hq and
clqh. Removed unused arguments seaice of procedure clmain.
In interfsurf_hq, used variable soil_model of module clesphys2 instead
of cascading it as an argument from physiq.
In phyetat0, stop if masque not found.
Variable TS instead of "TS[0-9][0-9]" in "(re)startphy.nc", with
additional dimension nbsrf.
Revision
100 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 2 19:07:58 2014 UTC
(10 years, 1 month ago)
by
guez
File length: 21294 byte(s)
Diff to
previous 99
Removed unused variable tmp_rlic of module interface_surf.
Removed useless call to gath2cpl in procedure interfsurf_hq. Removed
then uncalled procedure gath2cpl.
Revision
99 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 2 18:39:15 2014 UTC
(10 years, 1 month ago)
by
guez
File length: 21506 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, 3 months ago)
by
guez
File length: 24544 byte(s)
Diff to
previous 82
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
72 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jul 23 13:00:07 2013 UTC
(11 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/interfsurf_hq.f90
File length: 24798 byte(s)
Diff to
previous 62
NaN to signalling NaN in gfortran_debug.mk.
Removed unused procedures in getincom and getincom2. In procedure
conf_interface, replaced call to getincom by new namelist. Moved
procedure conf_interface into module interface_surf.
Added variables sig1 and w01 to startphy.nc and restartphy.nc, for
procedure cv_driver. Renamed (ema_)?work1 and (ema_)?work2 to sig1 and
w01 in concvl and physiq.
Deleted unused arguments of clmain, clqh and intersurf_hq, among which
(y)?sollwdown. Following LMDZ, in physiq, read sollw instead of
sollwdown from startphy.nc, write sollw instead of sollwdown to
restartphy.nc.
In procedure sw, initialized zfs[ud][pn]a[di], for runs where ok_ade
and ok_aie are false. (Following LMDZ.)
Added dimension klev to startphy.nc and restartphy.nc, and deleted
dimension horizon_vertical. Made t_ancien and q_ancien two-dimensional
NetCDF variables. Bug fix: in phyetat0, define ratqs, clwcon and
rnebcon for vertical levels >=2.
Bug fix: set mfg, p[de]n_[ud] to 0. when iflag_con >= 3. (Following LMDZ.)
Revision
62 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jul 26 14:37:37 2012 UTC
(12 years ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/interfsurf_hq.f90
File length: 25989 byte(s)
Diff to
previous 54
Changed handling of compiler in compilation system.
Removed the prefix letters "y", "p", "t" or "z" in some names of variables.
Replaced calls to NetCDF by calls to NetCDF95.
Extracted "ioget_calendar" procedures from "calendar.f90" into a
separate file.
Extracted to a separate file, "mathop2.f90", procedures that were not
part of the generic interface "mathop" in "mathop.f90".
Removed computation of "dq" in "bilan_dyn", which was not used.
In "iniadvtrac", removed schemes 20 Slopes and 30 Prather. Was not
compatible with declarations of array sizes.
In "clcdrag", "ustarhb", "vdif_kcay", "yamada4" and "coefkz", changed
the size of some arrays from "klon" to "knon".
Removed possible call to "conema3" in "physiq".
Removed unused argument "cd" in "yamada".
Revision
54 -
(
view)
(
annotate)
-
[select for diffs]
Added
Tue Dec 6 15:07:04 2011 UTC
(12 years, 8 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/interfsurf_hq.f90
File length: 26001 byte(s)
Removed Numerical Recipes procedure "ran1". Replaced calls to "ran1"
in "inidissip" by calls to intrinsic procedures.
Split file "interface_surf.f90" into a file with a module containing
only variables, "interface_surf", and single-procedure files. Gathered
files into directory "Interface_surf".
Added argument "cdivu" to "gradiv" and "gradiv2", "cdivh" to
"divgrad2" and "divgrad", and "crot" to "nxgraro2" and
"nxgrarot". "dissip" now uses variables "cdivu", "cdivh" and "crot"
from module "inidissip_m", so it can pass them to "gradiv2",
etc. Thanks to this modification, we avoid a circular dependency
betwwen "inidissip.f90" and "gradiv2.f90", etc. The value -1. used by
"gradiv2", for instance, during computation of eigenvalues is not the
value "cdivu" computed by "inidissip".
Extracted procedure "start_inter_3d" from module "startdyn", to its
own module.
In "inidissip", unrolled loop on "ii". I find it clearer now.
Moved variables "matriceun", "matriceus", "matricevn", "matricevs",
"matrinvn" and "matrinvs" from module "parafilt" to module
"inifilr_m". Moved variables "jfiltnu", "jfiltnv", "jfiltsu",
"jfiltsv" from module "coefils" to module "inifilr_m".
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.