Log of /trunk/dyn3d/Dissipation/dissip.f
Parent Directory
| 
Revision Log
Revision
65 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Sep 20 09:57:03 2012 UTC
(11 years, 8 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/dissip.f90
File length: 2670 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, 9 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/dissip.f90
File length: 2671 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, 4 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/dissip.f90
File length: 3008 byte(s)
Diff to
previous 56
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
56 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Jan 10 19:02:02 2012 UTC
(12 years, 4 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/dissip.f90
File length: 3013 byte(s)
Diff to
previous 55
Imported "writehist.f" from LMDZ.
Moved module variable "histaveid" from "com_io_dyn" to "initdynav_m".
In "inithist", access directly module variables from "com_io_dyn"
instead of going through the arguments. Copying from LMDZ, write "u"
and scalar variables to separate files. Create a new variable for the
new file in "com_io_dyn". Copying from LMDZ, change the vertical axes
of the three files.
Removed some useless initializations in "dissip".
In "bilan_dyn", removed useless variable "time". Avoiding the
approximate test on "dt_cum" being a multiple of "dt_app", just
compute "ncum" from known usage of "bilan_dyn" and compute "dt_cum"
from "ncum". Change "periodav" from real to integer in
"conf_gcm_m". Since "day_step" is required to be a multiple of
"iperiod", so is "ncum".
Revision
55 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Mon Dec 12 13:25:01 2011 UTC
(12 years, 5 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Dissipation/dissip.f90
File length: 2720 byte(s)
Copied from:
trunk/libf/dyn3d/dissip.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, 5 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f90
File length: 2801 byte(s)
Diff to
previous 47
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, 11 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f90
File length: 2697 byte(s)
Diff to
previous 44
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
44 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Apr 13 12:29:18 2011 UTC
(13 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f90
File length: 2498 byte(s)
Diff to
previous 26
Removed argument "pdteta" of "calfis", because it was not used.
Created module "conf_guide_m", containing procedure
"conf_guide". Moved module variables from "guide_m" to "conf_guide_m".
In module "getparam", removed "ini_getparam" and "fin_getparam" from
generic interface "getpar".
Created module variables in "tau2alpha_m" to replace common "comdxdy".
Revision
26 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Tue Mar 9 15:27:15 2010 UTC
(14 years, 2 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f90
File length: 2872 byte(s)
Copied from:
trunk/libf/dyn3d/dissip.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, 2 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f
File length: 3323 byte(s)
Diff to
previous 10
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".
Revision
10 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Fri Apr 18 14:45:53 2008 UTC
(16 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/dissip.f
File length: 3325 byte(s)
Diff to
previous 3
Added NetCDF directory "/home/guez/include" in "g95.mk" and
"nag_tools.mk".
Added some "intent" attributes in "PVtheta", "advtrac", "caladvtrac",
"calfis", "diagedyn", "dissip", "vlspltqs", "aeropt", "ajsec",
"calltherm", "clmain", "cltrac", "cltracrn", "concvl", "conema3",
"conflx", "fisrtilp", "newmicro", "nuage", "diagcld1", "diagcld2",
"drag_noro", "lift_noro", "SUGWD", "physiq", "phytrac", "radlwsw", "thermcell".
Removed the case "ierr == 0" in "abort_gcm"; moved call to "histclo"
and messages for end of run from "abort_gcm" to "gcm"; replaced call
to "abort_gcm" in "leapfrog" by exit from outer loop.
In "calfis": removed argument "pp" and variable "unskap"; changed
"pksurcp" from scalar to rank 2; use "pressure_var"; rewrote
computation of "zplev", "zplay", "ztfi", "pcvgt" using "dyn_phy";
added computation of "pls".
Removed unused variable in "dynredem0".
In "exner_hyb": changed "dellta" from scalar to rank 1; replaced call
to "ssum" by call to "sum"; removed variables "xpn" and "xps";
replaced some loops by array expressions.
In "leapfrog": use "pressure_var"; deleted variables "p", "longcles".
Converted common blocks "YOECUMF", "YOEGWD" to modules.
Removed argument "pplay" in "cvltr", "diagetpq", "nflxtr".
Created module "raddimlw" from include file "raddimlw.h".
Corrected call to "new_unit" in "test_disvert".
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.
