Log of /trunk/dyn3d/Dissipation/inidissip.f
Parent Directory
| 
Revision Log
Revision
266 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Apr 19 17:54:55 2018 UTC
(6 years ago)
by
guez
File length: 3863 byte(s)
Diff to
previous 265
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
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/dyn3d/Dissipation/inidissip.f
File length: 3827 byte(s)
Diff to
previous 137
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
137 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed May 6 15:51:03 2015 UTC
(8 years, 11 months ago)
by
guez
Original Path:
trunk/Sources/dyn3d/Dissipation/inidissip.f
File length: 3857 byte(s)
Diff to
previous 134
Removed unused argument missval in ma_fucoll_r[1-3]1, ma_fufill_r[1-3]1.
Split filtreg into two procedures: filtreg_scal and filtreg_v. I did
not like the test on the extent of the argument and there was no
common code between the two cases: jjm and jjm + 1. Also, it is
simpler now to just remove the argument "direct" from filtreg_v instead
of allowing it and then stopping the program if it is false.
Removed the computation of pkf in reanalyse2nat, was not used.
As a consequence of the split of filtreg, had to extract the
computation of pkf out of exner_hyb. This is clearer anyway because we
want to be able to call exner_hyb with any size in the first two
dimensions (as in test_disvert). But at the same time exner_hyb
required particular sizes for the computation of pkf. It was
awkward. The only computation of pkf is now in leapfrog.
Revision
107 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 11 15:09:15 2014 UTC
(9 years, 7 months ago)
by
guez
File length: 3825 byte(s)
Diff to
previous 82
Imported procedure grilles_gcm_sub from LMDZ. Had then to transform
local variable phis of etat to argument.
Replaced calls to lnblnk by calls to trim.
Removed arguments nlat, klevel and griscal of filtreg. Replaced
integer arguments ifiltre and iaire by logical arguments direct and
intensive.
Changed default values of guide_t and guide_q to false.
Revision
71 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jul 8 18:12:18 2013 UTC
(10 years, 9 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/inidissip.f90
File length: 3755 byte(s)
Diff to
previous 66
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
65 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 20 09:57:03 2012 UTC
(11 years, 7 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/inidissip.f90
File length: 3753 byte(s)
Diff to
previous 64
Removed unused procedure "divgrad".
In procedure "dissip", save memory by using intermediary arrays "gdx"
and "gdy" several times instead of additional array "grx" and "gry".
In procedure "inidissip", write "dtdiss * teta*" instead of "teta*".
In "comvert", change name of s_sampling from "LMD5" to "tropo" and
from "strato2" to "strato".
Revision
64 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Aug 29 14:47:17 2012 UTC
(11 years, 8 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/inidissip.f90
File length: 3567 byte(s)
Diff to
previous 57
Removed variable lstardis in module comdissnew and procedures gradiv
and nxgrarot. lstardir had to be true. gradiv and nxgrarot were called
if lstardis was false. Removed argument iter of procedure
filtreg. iter had to be 1. gradiv and nxgrarot called filtreg with
iter == 2.
Moved procedure flxsetup into module yoecumf. Module yoecumf is only
used in program units of directory Conflx, moved it there.
Revision
57 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Jan 30 12:54:02 2012 UTC
(12 years, 2 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/inidissip.f90
File length: 4191 byte(s)
Diff to
previous 55
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
55 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Dec 12 13:25:01 2011 UTC
(12 years, 4 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/inidissip.f90
File length: 4110 byte(s)
Copied from:
trunk/libf/dyn3d/inidissip.f90 revision 54
Diff to
previous 54
-- In procedure "bilan_dyn", replaced average of "zvq" by integral of
"zvq", following a comment of Francis Codron :
Le calcul actuel donne des unités peu pratiques : transports de
chaleur en K m / s par exemple. C'est bien pour les sorties à 2
dimensions, latitude et pression, car alors le transport ne dépend pas
de l'espacement des niveaux, mieux pour comparer ou tracer en latitude
et pression. Par contre, quand on somme sur la verticale, on
préfèrerait avoir des transports d'énergie en watts, ou au moins an K
kg / s (à multiplier par "Cp" ou "L"). On doit pouvoir recalculer le
transport intégré à partir des fichiers de sortie, mais c'est embêtant
(calcul de "cv").
-- Gathered files in directory Dissipation.
Revision
54 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Dec 6 15:07:04 2011 UTC
(12 years, 4 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f90
File length: 4110 byte(s)
Diff to
previous 48
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".
Revision
47 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Jul 1 15:00:48 2011 UTC
(12 years, 9 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f90
File length: 4339 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
39 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jan 25 15:11:05 2011 UTC
(13 years, 3 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f90
File length: 5052 byte(s)
Diff to
previous 27
"pi" comes from "nr_util". Removed subroutine "initialize" in module
"comconst".
Copied the content of "fxy_sin.h" into "fxysinus", instead of getting
it from an "include" line. Removed file "fxy_sin.h".
"ps" has rank 2 in "gcm" and "dynetat0".
Assumed-shape for argument "q" of "integrd".
Revision
27 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Mar 25 14:29:07 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f90
File length: 5046 byte(s)
Diff to
previous 26
"dyn3d" and "filtrez" do not contain any included file so make rules
have been updated.
"comdissip.f90" was useless, removed it.
"dynredem0" wrote undefined value in "controle(31)", that was
overwritten by "dynredem1". Now "dynredem0" just writes 0 to
"controle(31)".
Removed arguments of "inidissip". "inidissip" now accesses the
variables by use association.
In program "etat0_lim", "itaufin" is not defined so "dynredem1" wrote
undefined value to "controle(31)". Added argument "itau" of
"dynredem1" to correct that.
"itaufin" does not need to be a module variable (of "temps"), made it
a local variable of "leapfrog".
Removed calls to "diagedyn" from "leapfrog".
Revision
26 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Mar 9 15:27:15 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f90
File length: 5063 byte(s)
Copied from:
trunk/libf/dyn3d/inidissip.f revision 25
Diff to
previous 25
Moved variable "dtdiss" from module "comconst", variable "idissip"
from module "conf_gcm_m" and all variables from module "comdissipn" to
module "inidissip_m". "inidissip" creates file
"inidissip.csv". "idissip" is no longer read from a namelist. Removed
useless computation of "dtdiss" in procedure "iniconst".
Revision
25 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Mar 5 16:43:45 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/inidissip.f
File length: 5979 byte(s)
Diff to
previous 3
Simplified "etat0_lim.sh" and "gcm.sh" because the full versions
depended on personal arrangements for directories and machines.
Translated included files into modules. Encapsulated procedures into modules.
Moved variables from module "comgeom" to local variables of
"inigeom". Deleted some unused variables in "comgeom".
Moved variable "day_ini" from module "temps" to module "dynetat0_m".
Removed useless test on variable "time" and useless "close" statement
in procedure "leapfrog".
Removed useless call to "inigeom" in procedure "limit".
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.
