Log of /trunk/phylmd/Interface_surf/hbtm.f90
Parent Directory
| 
Revision Log
Revision
346 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Dec 9 20:15:29 2019 UTC
(4 years, 5 months ago)
by
guez
File length: 13365 byte(s)
Diff to
previous 328
Rename block to `my_block` in procedure `CLOUDS_GNO` because block is
a Fortran keyword.
Remove computation of palpbla in procedure sw. It was not used nor
output. (Not used nor output either in LMDZ.)
In procedure physiq, define `d_[uv]_con` and add them to `[uv]_seri`
only if `conv_Emanuel`. Thus, we do not need to initialize
`d_[uv]_con` to 0, we do not have to save them and we do not add 0 to
`[uv]_seri`.
In procedure physiq, no need to initialize rnebcon to 0, it is defined
by phyetat0 afterwards.
Check that `iflag_cldcon` is between - 2 and 3.
Revision
328 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jun 13 14:40:06 2019 UTC
(4 years, 10 months ago)
by
guez
File length: 13364 byte(s)
Copied from:
trunk/phylmd/Interface_surf/hbtm.f revision 327
Diff to
previous 298
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.) Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.
Revision
227 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Nov 2 15:47:03 2017 UTC
(6 years, 6 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/hbtm.f
File length: 13477 byte(s)
Diff to
previous 206
Rename phisinit to phis in restart.nc: clearer, same name as Fortran variable.
In aaam_bud, use rlat and rlon from phyetat0_m instead of having these
module variables associated to actual arguments in physiq.
In clmain, too many wind variables make the procedure hard to
understand. Use yu(:knon, 1) and yv(:knon, 1) instead of u1lay(:knon)
and v1lay(:knon). Note that when yu(:knon, 1) and yv(:knon, 1) are
used as actual arguments, they are probably copied to new arrays since
the elements are not contiguous. Rename yu10m to wind10m because this
is the norm of wind vector, not its zonal component. Rename yustar to
ustar. Rename uzon and vmer to u1 and v1 since these are wind
components at first layer and u1 and v1 are the names of corresponding
dummy arguments in stdlevvar.
In clmain, rename yzlev to zlev.
In clmain, screenc, stdlevvar and coefcdrag, remove the code
corresponding to zxli true (not used in LMDZ either).
Subroutine ustarhb becomes a function. Simplifications using the fact
that zx_alf2 = 0 and zx_alf1 = 1 (discarding the possibility to change
this).
In procedure vdif_kcay, remove unused dummy argument plev. Remove
useless computations of sss and sssq.
In clouds_gno, exp(100.) would overflow in single precision. Set
maximum to exp(80.) instead.
In physiq, use u(:, 1) and v(:, 1) as arguments to phytrac instead of
creating ad hoc variables yu1 and yv1.
In stdlevvar, rename dummy argument u_10m to wind10m, following the
corresponding modification in clmain. Simplifications using the fact
that ok_pred = 0 and ok_corr = 1 (discarding the possibility to change
this).
Revision
206 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Aug 30 12:52:46 2016 UTC
(7 years, 8 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/hbtm.f
File length: 13478 byte(s)
Diff to
previous 188
Removed dimension klev of flux_[tquv] and y_flux_[tquv] in
clmain. Removed dimension klev of flux_[tquv] in physiq. Removed
dimension klev of flux_[tq] in hbtm. Removed dimension klev of
flux_[tq] in clqh and computations for layers other than the surface
layer. Removed dimension klev of flux_v in clvent and computations for
layers other than the surface layer. Values for layers other than the
surface layer were not used nor output (not even in LMDZ).
Removed argument dnwd0 of concvl. Simply write - mp in physiq
(following LMDZ).
Removed useless intermediary variables zxflux[tquv] in physiq.
Revision
186 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Mar 21 15:36:26 2016 UTC
(8 years, 1 month ago)
by
guez
Original Path:
trunk/Sources/phylmd/hbtm.f
File length: 13870 byte(s)
Diff to
previous 178
Removed variables nlm and nlp of module cv30_param_m. We do not
believe much in the benefit of these intermediary variables so we go
for clarity.
Removed variable noff of module cv30_param_m. Never used anywhere
else. Just set the value of nl explicitly in cv30_param.
Removed argument nd of cv30_param. Only called with nd = klev.
Replaced calls to zilch by array assignments. There was a strange
double call to zilch with the same arguments in cv30_mixing.
Removed procedure cv_flag. Just set the value of variable cvflag_grav
of module cvflag at declaration.
Revision
178 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Mar 11 18:47:26 2016 UTC
(8 years, 1 month ago)
by
guez
Original Path:
trunk/Sources/phylmd/hbtm.f
File length: 13760 byte(s)
Diff to
previous 149
Moved variables date0, deltat, datasz_max, ncvar_ids, point, buff_pos,
buffer, regular from module histcom_var to modules where they are
defined.
Removed procedure ioipslmpp, useless for a sequential program.
Added argument datasz_max to histwrite_real (to avoid circular
dependency with histwrite).
Removed useless variables and computations everywhere.
Changed real litteral constants from default kind to double precision
in lwb, lwu, lwvn, sw1s, swtt, swtt1, swu.
Removed unused arguments: paer of sw, sw1s, sw2s, swclr; pcldsw of
sw1s, sw2s; pdsig, prayl of swr; co2_ppm of clmain, clqh; tsol of
transp_lay; nsrf of screenp; kcrit and kknu of gwstress; pstd of
orosetup.
Added output of relative humidity.
Revision
149 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jun 18 12:23:44 2015 UTC
(8 years, 10 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/hbtm.f
File length: 17370 byte(s)
Diff to
previous 134
In invert_zoom_x, call rtsafe instead of the equivalent coding that
was there. funcd needs to access a[0-4] and abs_y so we upgrade a[0-4]
from arguments of coefpoly to variables of module coefpoly_m and abs_y
from local variable of invert_zoom_x to private variable of module
invert_zoom_x_m.
Removed unused arguments t10m and q10m of hbtm.
Revision
103 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Aug 29 13:00:05 2014 UTC
(9 years, 8 months ago)
by
guez
Original Path:
trunk/phylmd/hbtm.f
File length: 17557 byte(s)
Diff to
previous 82
Renamed module cvparam to cv_param. Deleted procedure
cv_param. Changed variables of module cv_param into parameters.
In procedures cv_driver, cv_uncompress and cv3_uncompress, removed
some arguments giving dimensions and used module variables klon and
klev instead.
In procedures gradiv2, laplacien_gam and laplacien, changed
declarations of local variables because klevel is not always klev.
Removed code for nudging surface pressure.
Removed arguments pim and pjm of tau2alpha. Added assignment of false
to variable first.
Replaced real argument del of procedures foeew and FOEDE by logical
argument.
Revision
71 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 8 18:12:18 2013 UTC
(10 years, 10 months ago)
by
guez
Original Path:
trunk/libf/phylmd/hbtm.f90
File length: 17613 byte(s)
Diff to
previous 49
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
49 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Aug 24 11:43:14 2011 UTC
(12 years, 8 months ago)
by
guez
Original Path:
trunk/libf/phylmd/hbtm.f90
File length: 17618 byte(s)
Diff to
previous 38
LMDZE now uses library Jumble.
Removed all calls to "flinget". Replaced calls to "flinget",
"flininfo", "flinopen_nozoom" by calls to NetCDF95 and Jumble.
Split file "cv_driver.f" into "cv_driver.f90", "cv_flag.f90" and
"cv_thermo.f90".
Bug fix: "QANCIEN" was read twice in "phyeytat0".
In "physiq", initialization of "d_t", "d_u", "d_v" was useless.
Revision
38 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jan 6 17:52:19 2011 UTC
(13 years, 4 months ago)
by
guez
Original Path:
trunk/libf/phylmd/hbtm.f90
File length: 17501 byte(s)
Diff to
previous 37
Extracted ASCII art from "inigeom" into a separate text file in the
documentation.
"test_disvert" now creates a separate file for layer thicknesses.
Moved variables from module "yomcst" to module "suphec_m" because this
is where those variables are defined. Kept in "yomcst" only parameters
of Earth orbit. Gave the attribute "parameter" to some variables of
module "suphec_m".
Variables of module "yoethf" were defined in procedure "suphec". Moved
these definitions to a new procedure "yoethf" in module "yoethf_m".
Revision
37 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Dec 21 15:45:48 2010 UTC
(13 years, 4 months ago)
by
guez
Original Path:
trunk/libf/phylmd/hbtm.f90
File length: 17497 byte(s)
Copied from:
trunk/libf/phylmd/hbtm.f revision 36
Diff to
previous 3
Inlined procedure "pression".
Split "guide.f90" into "guide.f90" and "tau2alpha.f90". Split
"read_reanalyse.f" into single-procedure files in directory
"Read_reanalyse".
Useless copy of variables in "iniphysiq". Directly define module
variables in "gcm" and remove procedure "iniphysiq".
Added "pressure-altitude" in "test_disvert".
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.
