Log of /trunk/phylmd/Interface_surf/calcul_fluxs.f90
Parent Directory
| Revision Log
Revision
348 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Dec 23 14:32:59 2019 UTC
(4 years, 6 months ago)
by
guez
File length: 4349 byte(s)
Diff to
previous 341
,
to
selected 221
Rename delta to ice in `calcul_flux`
Rename variable delta to ice, which is more meaningful, in procedure
`calcul_flux`.
Revision
341 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Oct 21 06:11:44 2019 UTC
(4 years, 8 months ago)
by
guez
File length: 4360 byte(s)
Diff to
previous 328
,
to
selected 221
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
(5 years, 1 month ago)
by
guez
File length: 4292 byte(s)
Copied from:
trunk/phylmd/Interface_surf/calcul_fluxs.f revision 327
Diff to
previous 324
,
to
selected 221
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
324 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Feb 6 15:58:03 2019 UTC
(5 years, 5 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4292 byte(s)
Diff to
previous 311
,
to
selected 221
Rename variable zmasq of module phyetat0_m to masque, which was
already its name in "restartphy.nc". Rename variable fraclic of
procedure etat0 to landice, which was already its name in
"landiceref.nc". Style guide: we try to have the same names for
identical data objects across the program.
In procedure interfsurf_hq, in case is_sic, define tsurf instead of
tsurf_new, avoiding a copy from tsurf_new to tsurf.
Revision
311 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Dec 3 17:52:21 2018 UTC
(5 years, 7 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4292 byte(s)
Diff to
previous 309
,
to
selected 221
Move file cv_thermo.f to directory CV30_routines since it is only used
there. Rename module cv_thermo_m to cv_thermo.
Named constants instead of variables in module suphec_m.
Rename dummy argument spechum of procedure interfsurf_hq to q1lay
(same as corresponding dummy argument in calcul_fluxs).
Revision
309 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 27 14:58:10 2018 UTC
(5 years, 9 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4275 byte(s)
Diff to
previous 308
,
to
selected 221
Remove variable pourc_* in histins.nc, redundant with fract_*.
In procedure physiq, change the meaning of variable "sens" to avoid
changing the sign several times needlessly. Also the meaning of
variable "sens" in physiq is now the same than the meaning of netCDF
variable "sens". Also the convention for "sens" is now the same than
for radsol, zxfluxlat, and flux_t.
Revision
300 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Aug 2 15:55:01 2018 UTC
(5 years, 11 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4187 byte(s)
Diff to
previous 299
,
to
selected 221
The calls to calcul_fluxs were always done with an array argument
dif_grnd set to a scalar (and that is also the case in LMDZ). So just
use a scalar argument.
In procedure fonte_neige, the value of run_off_lic from previous call
was actually not used. So we can remove the save attribute and make it
an automatic array.
Revision
279 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 20 14:30:23 2018 UTC
(5 years, 11 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4237 byte(s)
Diff to
previous 266
,
to
selected 221
fqcalving was saved in physiq and had intent inout in pbl_surface. So
we could set fqcalving to 0 only once per run. The point is fqcalving
must be defined everywhere for the computation of the average over all
surfaces, even values that get multiplied by pctsrf = 0. I find it
clearer to set fqcalving to 0 at every call of pbl_surface. This is
more expensive but allows to give intent out to fqcalving in
pbl_surface and remove the save attribute in physiq.
Add zxfqcalving output netCDF variable (following LMDZ).
Revision
266 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Apr 19 17:54:55 2018 UTC
(6 years, 2 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 4224 byte(s)
Diff to
previous 254
,
to
selected 221
Define macros of the preprocessor CPP_IIM, CPP_JJM, CPP_LLM so we can
control the resolution from the compilation command, and automate
compilation for several resolutions.
In module yoethf_m, transform variables into named constants. So we do
not need procedure yoethf any longer.
Bug fix in program test_inter_barxy, missing calls to fyhyp and fxhyp,
and definition of rlatu.
Remove variable iecri of module conf_gcm_m. The files dyn_hist*.nc are
written every time step. We are simplifying the output system, pending
replacement by a whole new system.
Modify possible value of vert_sampling from "param" to
"strato_custom", following LMDZ. Default values of corresponding
namelist variables are now the values used for LMDZ CMIP6.
Revision
221 -
(
view)
(
annotate)
-
[selected]
Modified
Thu Apr 20 14:44:47 2017 UTC
(7 years, 2 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f
File length: 4226 byte(s)
Diff to
previous 214
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
206 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Aug 30 12:52:46 2016 UTC
(7 years, 10 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f
File length: 4669 byte(s)
Diff to
previous 178
,
to
selected 221
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
178 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Mar 11 18:47:26 2016 UTC
(8 years, 4 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f
File length: 4626 byte(s)
Diff to
previous 171
,
to
selected 221
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
171 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Sep 29 19:48:59 2015 UTC
(8 years, 9 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f
File length: 4703 byte(s)
Diff to
previous 134
,
to
selected 221
Removed argument ierr of abort_gcm. It was always 1 and not used.
Just encapsulated pres2lev into a module.
Removed test on run_off in procedure calcul_fluxs. Useless. The test
is always done just before in interfsurf_hq.
Removed named constants rea and repsm in module suphec: never used.
Revision
104 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 4 10:05:52 2014 UTC
(9 years, 10 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 6953 byte(s)
Diff to
previous 103
,
to
selected 221
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
103 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Aug 29 13:00:05 2014 UTC
(9 years, 10 months ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 7307 byte(s)
Diff to
previous 101
,
to
selected 221
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
101 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 7 17:45:21 2014 UTC
(10 years ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 7319 byte(s)
Diff to
previous 99
,
to
selected 221
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
99 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Jul 2 18:39:15 2014 UTC
(10 years ago)
by
guez
Original Path:
trunk/phylmd/Interface_surf/calcul_fluxs.f
File length: 7323 byte(s)
Diff to
previous 82
,
to
selected 221
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
54 -
(
view)
(
annotate)
-
[select for diffs]
Added
Tue Dec 6 15:07:04 2011 UTC
(12 years, 7 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Interface_surf/calcul_fluxs.f90
File length: 7364 byte(s)
Diff
to
selected 221
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.