Revision
71 -
Directory Listing
Modified
Mon Jul 8 18:12:18 2013 UTC
(10 years, 10 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Thermcell
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
54 -
Directory Listing
Modified
Tue Dec 6 15:07:04 2011 UTC
(12 years, 5 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Thermcell
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
52 -
Directory Listing
Modified
Fri Sep 23 12:28:01 2011 UTC
(12 years, 7 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Thermcell
Split "conflx.f" into single-procedure files in directory "Conflx".
Split "cv_routines.f" into single-procedure files in directory
"CV_routines". Made module "cvparam" from included file
"cvparam.h". No included file other than "netcdf.inc" left in LMDZE.
Revision
47 -
Directory Listing
Added
Fri Jul 1 15:00:48 2011 UTC
(12 years, 10 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Thermcell
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.