Log of /trunk/phylmd/Interface_surf/cdrag.f90
Parent Directory
| Revision Log
Revision
343 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Oct 28 08:14:26 2019 UTC
(4 years, 7 months ago)
by
guez
File length: 4291 byte(s)
Diff to
previous 342
Add output variables rld and rldcs
Add output variables rld and rldcs (following LMDZ).
In procedure cdrag, rename variables zdu2, ztsolv, ztvd, zri to du2,
tsolv, tvd, ri. Replace `exp(log(psol))` by psol.
In procedure `pbl_surface`, rename u, v to `u_seri`, `v_seri`.
Revision
341 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Oct 21 06:11:44 2019 UTC
(4 years, 7 months ago)
by
guez
File length: 4246 byte(s)
Diff to
previous 328
Remove intermediate variables in `pbl_surface`
Remove file `diagcld2.f90`, no longer used since revision 340.
In procedure cdrag, rename zcdn to cdn. In procedure `interfsurf_hq`,
rename `temp_air` to t1lay: this is the corresponding name in
`calcul_fluxs`, is consistent with the other names `[uvq]1lay` and is
more precise.
In procedure `pbl_surface`, rename t and q to `t_seri` and `q_seri`,
which are the names in procedure physiq. Remove needless intermediate
variables qair1, tairsol, psfce, patm and zgeo1. Remove useless
initialization of yrugos. Remove a useless assignment `i = ni(j)`.
Revision
328 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jun 13 14:40:06 2019 UTC
(4 years, 11 months ago)
by
guez
File length: 4255 byte(s)
Copied from:
trunk/phylmd/Interface_surf/cdrag.f revision 327
Diff to
previous 292
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
274 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 11 16:50:27 2018 UTC
(5 years, 10 months ago)
by
guez
Original Path:
trunk/phylmd/clcdrag.f
File length: 3741 byte(s)
Diff to
previous 272
Merge clcdrag and coefcdrag (following LMDZ revision 2232). Replace
local arrays by scalars. max(qsurf, 0), f_cdrag_ter, f_cdrag_oce in
clcdrag. max(cepdu2, speed(i)**2) in coefcdrag, test zri > 0 instead
of >= 0. trm1 was unused in coefcdrag. No need for intermediary local
variable pref_local.
Revision
272 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 11 14:51:28 2018 UTC
(5 years, 10 months ago)
by
guez
Original Path:
trunk/phylmd/clcdrag.f
File length: 3409 byte(s)
Diff to
previous 271
Add arguments psol and pref to clcdrag, in preparation of merge with
coefcdrag. Remove intent out arguments cdran and zri1 of coefcdrag,
not used. Make argument pref of coefcdrag optional, in preparation of
merge with clcdrag. Remove useless intermediary local variable zdphi
in coefcdrag. Remove unused local variable ri1 in stdlevvar.
Revision
248 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jan 5 16:40:13 2018 UTC
(6 years, 4 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/clcdrag.f
File length: 3195 byte(s)
Diff to
previous 246
Move the call to clcdrag up from coefkz to clmain (folllowing
LMDZ). As both clcdrag and coefkz need zgeop, also move the
computation of zgeop from coefkz to clmain.
Revision
221 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Apr 20 14:44:47 2017 UTC
(7 years, 1 month ago)
by
guez
Original Path:
trunk/Sources/phylmd/clcdrag.f
File length: 3051 byte(s)
Diff to
previous 134
clcdrag is no longer used in LMDZ. Replaced by cdrag in LMDZ. In cdrag
in LMDZ, zxli is a symbolic constant, false. So removed case zxli true
in LMDZE.
read_sst is called zero (if no ocean point on the whole planet) time or
once per call of physiq. If mod(itap - 1, lmt_pas) == 0 then we have
advanced in time of lmt_pas and deja_lu is necessarily false.
qsat[sl] and dqsat[sl] were never called.
Added output of qsurf in histins, following LMDZ.
Last dummy argument dtime of phystokenc is always the same as first
dummy argument pdtphys, removed dtime.
Removed make rules for nag_xref95, since it does not exist any longer.
Revision
62 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Jul 26 14:37:37 2012 UTC
(11 years, 10 months ago)
by
guez
Original Path:
trunk/libf/phylmd/clcdrag.f90
File length: 4255 byte(s)
Diff to
previous 47
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
47 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 1 15:00:48 2011 UTC
(12 years, 11 months ago)
by
guez
Original Path:
trunk/libf/phylmd/clcdrag.f90
File length: 3987 byte(s)
Diff to
previous 40
Split "thermcell.f" and "cv3_routines.f".
Removed copies of files that are now in "L_util".
Moved "mva9" and "diagetpq" to their own files.
Unified variable names across procedures.
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/clcdrag.f90
File length: 4333 byte(s)
Diff to
previous 3
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".
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.