Log of /trunk/phylmd/Interface_surf/coefkz.f
Parent Directory
| Revision Log
Revision
288 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jul 24 16:27:12 2018 UTC
(6 years ago)
by
guez
File length: 4912 byte(s)
Diff to
previous 286
Remove tests on richum, tvirtu and opt_ec in procedure coefkz (not
used in LMDZ either).
Change the meaning of variable ecrit_ins of module clesphys from
number of seconds (integer, weird), which was modified in physiq to
make a multiple of the time step of physics, to number of physics time
steps.
Revision
279 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 20 14:30:23 2018 UTC
(6 years, 1 month ago)
by
guez
Original Path:
trunk/phylmd/coefkz.f
File length: 7285 byte(s)
Diff to
previous 254
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
248 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jan 5 16:40:13 2018 UTC
(6 years, 7 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 7317 byte(s)
Diff to
previous 233
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
233 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Nov 7 10:52:46 2017 UTC
(6 years, 9 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 8099 byte(s)
Diff to
previous 229
Use separate variables for eddy diffusion coefficient and drag
coefficient in procedure coefkz (following LMDZ). coefkzmin only
computes eddy diffusion coefficient, not drag coefficient.
Revision
229 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Nov 6 17:20:45 2017 UTC
(6 years, 9 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 8037 byte(s)
Diff to
previous 221
Use iflag_pbl from module conf_phys in yamada4 instead of getting it
as argument.
In clvent, simplifications using the fact that zx_alf2 = 0 and zx_alf1
= 1 (discarding the possibility to change this).
In physiq, no need for temporary variables z[uv]strph: compute actual
arguments of aaam_bud directly.
Revision
221 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Apr 20 14:44:47 2017 UTC
(7 years, 3 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 8007 byte(s)
Diff to
previous 208
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
208 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Dec 7 16:44:53 2016 UTC
(7 years, 8 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 8058 byte(s)
Diff to
previous 207
Module academic was not used.
Useful values for iflag_phys were only 0 and 1 so changed type to logical.
Definition of fmagic was duplicated in procedures alboc and alboc_cd
so moved it up to interfsurf_hq and also moved multiplication by
fmagic (following LMDZ).
Revision
178 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Mar 11 18:47:26 2016 UTC
(8 years, 5 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/coefkz.f
File length: 8370 byte(s)
Diff to
previous 134
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
103 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Aug 29 13:00:05 2014 UTC
(9 years, 11 months ago)
by
guez
Original Path:
trunk/phylmd/coefkz.f
File length: 8410 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
(11 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/coefkz.f90
File length: 8434 byte(s)
Diff to
previous 62
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
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/coefkz.f90
File length: 8439 byte(s)
Diff to
previous 57
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
57 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jan 30 12:54:02 2012 UTC
(12 years, 6 months ago)
by
guez
Original Path:
trunk/libf/phylmd/coefkz.f90
File length: 8806 byte(s)
Diff to
previous 47
Write used namelists to file "" instead of standard output.
Avoid aliasing in "inidissip" in calls to "divgrad2", "divgrad",
"gradiv2", "gradiv", "nxgraro2" and "nxgrarot". Add a degenerate
dimension to arrays so they have rank 3, like the dummy arguments in
"divgrad2", "divgrad", "gradiv2", "gradiv", "nxgraro2" and "nxgrarot".
Extract the initialization part from "bilan_dyn" and make a separate
procedure, "init_dynzon", from it.
Move variables from modules "iniprint" and "logic" to module
"conf_gcm_m".
Promote internal procedures of "fxy" to private procedures of module
"fxy_m".
Extracted documentation from "inigeom". Removed useless "save"
attributes. Removed useless intermediate variables. Extracted
processing of poles from loop on latitudes. Write coordinates to file
"longitude_latitude.txt" instead of standard output.
Do not use ozone tracer for radiative transfer.
Revision
47 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 1 15:00:48 2011 UTC
(13 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/coefkz.f90
File length: 8804 byte(s)
Diff to
previous 42
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, 7 months ago)
by
guez
Original Path:
trunk/libf/phylmd/coefkz.f
File length: 10251 byte(s)
Diff to
previous 12
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
12 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 21 16:05:07 2008 UTC
(16 years, 1 month ago)
by
guez
Original Path:
trunk/libf/phylmd/coefkz.f
File length: 10247 byte(s)
Diff to
previous 3
-- Minor modification of input/output:
Created procedure "read_logic". Variables of module "logic" are read
by "read_logic" instead of "conf_gcm". Variable "offline" of module
"conf_gcm" is read from namelist instead of "*.def".
Deleted arguments "dtime", "co2_ppm_etat0", "solaire_etat0",
"tabcntr0" and local variables "radpas", "tab_cntrl" of
"phyetat0". "phyetat0" does not read "controle" in "startphy.nc" any
longer. "phyetat0" now reads global attribute "itau_phy" from
"startphy.nc". "phyredem" does not create variable "controle" in
"startphy.nc" any longer. "phyredem" now writes global attribute
"itau_phy" of "startphy.nc". Deleted argument "tabcntr0" of
"printflag". Removed diagnostic messages written by "printflag" for
comparison of the variable "controle" of "startphy.nc" and the
variables read from "*.def" or namelist input.
-- Removing unwanted functionality:
Removed variable "lunout" from module "iniprint", replaced everywhere
by standard output.
Removed case "ocean == 'couple'" in "clmain", "interfsurf_hq" and
"physiq". Removed procedure "interfoce_cpl".
-- Should not change anything at run time:
Automated creation of graphs in documentation. More documentation on
input files.
Converted Fortran files to free format: "phyredem.f90", "printflag.f90".
Split module "clesphy" into "clesphys" and "clesphys2".
Removed variables "conser", "leapf", "forward", "apphys", "apdiss" and
"statcl" from module "logic". Added arguments "conser" to "advect",
"leapf" to "integrd". Added local variables "forward", "leapf",
"apphys", "conser", "apdiss" in "leapfrog".
Added intent attributes.
Deleted arguments "dtime" of "phyredem", "pdtime" of "flxdtdq", "sh"
of "phytrac", "dt" of "yamada".
Deleted local variables "dtime", "co2_ppm_etat0", "solaire_etat0",
"length", "tabcntr0" in "physiq". Replaced all references to "dtime"
by references to "pdtphys".
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.