Log of /trunk/phylmd/Interface_surf/calcul_fluxs.f
Parent Directory
| Revision Log
Revision
279 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 20 14:30:23 2018 UTC
(5 years, 11 months ago)
by
guez
File length: 4237 byte(s)
Diff to
previous 266
,
to
selected 178
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
File length: 4224 byte(s)
Diff to
previous 254
,
to
selected 178
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)
-
[select for diffs]
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
,
to
selected 178
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
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)
-
[selected]
Modified
Fri Mar 11 18:47:26 2016 UTC
(8 years, 3 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f
File length: 4626 byte(s)
Diff to
previous 171
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 178
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
File length: 6953 byte(s)
Diff to
previous 103
,
to
selected 178
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
File length: 7307 byte(s)
Diff to
previous 101
,
to
selected 178
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
File length: 7319 byte(s)
Diff to
previous 99
,
to
selected 178
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
File length: 7323 byte(s)
Diff to
previous 82
,
to
selected 178
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 178
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.