Log of /trunk/IOIPSL
Directory Listing
Revision
83 -
Directory Listing
Modified
Thu Mar 6 15:12:00 2014 UTC
(10 years, 4 months ago)
by
guez
In procedure conf_guide, replaced calls to getpar by reading a
namelist. Removed file getparam.f, now unused. So getin of IOIPSL is
now unused too. Removed files getincom.f, getincom2.f, cmpblank.f,
find_sig.f, gensig.f and nocomma.f.
Moved variables lat_min_guide and lat_max_guide from module
tau2alpha_m to module conf_guide_m.
Removed variables nivsig and nivsigs of module disvert_m. Instead, in
initdynav and initfluxsto, directly wrote arithmetic sequence for
verical axis, pending a better vertical axis. Removed variables nivsig
and nivsigs of "(re)?.start.nc".
In procedure exner_hyb, replaced p(:, :, 1) by equivalent ps.
Revision
82 -
Directory Listing
Modified
Wed Mar 5 14:57:53 2014 UTC
(10 years, 4 months ago)
by
guez
Changed all ".f90" suffixes to ".f".
Revision
79 -
Directory Listing
Modified
Fri Feb 28 17:52:47 2014 UTC
(10 years, 4 months ago)
by
guez
Moved procedure iniconst inside module comconst. Removed useless
variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1,
lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in
dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step
and start.nc that was in gcm to dynetat0. Moved call to disvert out of
iniconst. Moved call to iniconst in gcm before call to dynetat0.
Removed unused argument pvteta of physiq (not used either in LMDZ).
Revision
72 -
Directory Listing
Modified
Tue Jul 23 13:00:07 2013 UTC
(10 years, 11 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
NaN to signalling NaN in gfortran_debug.mk.
Removed unused procedures in getincom and getincom2. In procedure
conf_interface, replaced call to getincom by new namelist. Moved
procedure conf_interface into module interface_surf.
Added variables sig1 and w01 to startphy.nc and restartphy.nc, for
procedure cv_driver. Renamed (ema_)?work1 and (ema_)?work2 to sig1 and
w01 in concvl and physiq.
Deleted unused arguments of clmain, clqh and intersurf_hq, among which
(y)?sollwdown. Following LMDZ, in physiq, read sollw instead of
sollwdown from startphy.nc, write sollw instead of sollwdown to
restartphy.nc.
In procedure sw, initialized zfs[ud][pn]a[di], for runs where ok_ade
and ok_aie are false. (Following LMDZ.)
Added dimension klev to startphy.nc and restartphy.nc, and deleted
dimension horizon_vertical. Made t_ancien and q_ancien two-dimensional
NetCDF variables. Bug fix: in phyetat0, define ratqs, clwcon and
rnebcon for vertical levels >=2.
Bug fix: set mfg, p[de]n_[ud] to 0. when iflag_con >= 3. (Following LMDZ.)
Revision
68 -
Directory Listing
Modified
Wed Nov 14 16:59:30 2012 UTC
(11 years, 7 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Split "flincom.f90" into "flinclo.f90", "flinfindcood.f90",
"flininfo.f90" and "flinopen_nozoom.f90", in directory
"IOIPSL/Flincom".
Renamed "etat0_lim" to "ce0l", as in LMDZ.
Split "readsulfate.f" into "readsulfate.f90", "readsulfate_preind.f90"
and "getso4fromfile.f90".
In etat0, renamed variable q3d to q, as in "dynredem1". Replaced calls
to Flicom procedures by calls to NetCDF95.
In leapfrog, added call to writehist.
Extracted ASCII art from "grid_noro" into a file
"grid_noro.txt". Transformed explicit-shape local arrays into
automatic arrays, so that test on values of iim and jjm is no longer
needed. Test on weight:
IF (weight(ii, jj) /= 0.) THEN
is useless. There is already a test before:
if (any(weight == 0.)) stop "zero weight in grid_noro"
In "aeropt", replaced duplicated lines with different values of inu by
a loop on inu.
Removed arguments of "conf_phys". Corresponding variables are now
defined in "physiq", in a namelist. In "conf_phys", read a namelist
instead of using getin.
Revision
62 -
Directory Listing
Modified
Thu Jul 26 14:37:37 2012 UTC
(11 years, 11 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
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
61 -
Directory Listing
Modified
Fri Apr 20 14:58:43 2012 UTC
(12 years, 2 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
No more included file in LMDZE, not even "netcdf.inc".
Created a variable containing the list of common source files in
GNUmakefile. So we now also see clearly files that are specific to
each program.
Split module "histcom". Assembled resulting files in directory
"Histcom".
Removed aliasing in calls to "laplacien".
Revision
57 -
Directory Listing
Modified
Mon Jan 30 12:54:02 2012 UTC
(12 years, 5 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
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 -
Directory Listing
Modified
Tue Jan 10 19:02:02 2012 UTC
(12 years, 6 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
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
51 -
Directory Listing
Modified
Tue Sep 20 09:14:34 2011 UTC
(12 years, 9 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Split "getincom.f90" into "getincom.f90" and "getincom2.f90". Split
"nuage.f" into "nuage.f90", "diagcld1.f90" and "diagcld2.f90". Created
module "chem" from included file "chem.h". Moved "YOEGWD.f90" to
directory "Orography".
In "physiq", for evaporation of water, "zlsdcp" was equal to
"zlvdc". Removed useless variables.
Revision
49 -
Directory Listing
Modified
Wed Aug 24 11:43:14 2011 UTC
(12 years, 10 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
LMDZE now uses library Jumble.
Removed all calls to "flinget". Replaced calls to "flinget",
"flininfo", "flinopen_nozoom" by calls to NetCDF95 and Jumble.
Split file "cv_driver.f" into "cv_driver.f90", "cv_flag.f90" and
"cv_thermo.f90".
Bug fix: "QANCIEN" was read twice in "phyeytat0".
In "physiq", initialization of "d_t", "d_u", "d_v" was useless.
Revision
48 -
Directory Listing
Modified
Tue Jul 19 12:54:20 2011 UTC
(12 years, 11 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Replaced calls to "flinget" by calls to "NetCDF95".
Revision
45 -
Directory Listing
Modified
Wed Apr 27 13:00:12 2011 UTC
(13 years, 2 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Split file "histwrite.f90" into "histwrite.f90", "histwrite_real.f90"
and "histvar_seq.f90".
Extracted documentation from "psextbar.f" into "psextbar.txt" (out of SVN).
Revision
42 -
Directory Listing
Modified
Thu Mar 24 11:52:41 2011 UTC
(13 years, 3 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Removed programs "test_inter_barxy" and "test_disvert".
Added option "read" for "s_sampling" in "disvert".
Revision
35 -
Directory Listing
Modified
Tue Jun 8 15:37:21 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Created intermediary variable for meridional wind in "calfis". Removed
unused variables.
Removed argument "firstcal" of "physiq", made it a local
variable. Removed unused argument "v" of "phytrac".
Revision
32 -
Directory Listing
Modified
Tue Apr 6 17:52:58 2010 UTC
(14 years, 3 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Split "stringop.f90" into single-procedure files. Gathered files in directory
"IOIPSL/Stringop".
Split "flincom.f90" into "flincom.f90" and "flinget.f90". Removed
unused procedures from module "flincom". Removed unused argument
"filename" of procedure "flinopen_nozoom".
Removed unused files.
Split "grid_change.f90" into "grid_change.f90" and
"gr_phy_write_3d.f90".
Removed unused procedures from modules "calendar", "ioipslmpp",
"grid_atob", "gath_cpl" and "getincom". Removed unused procedures in
files "ppm3d.f" and "thermcell.f".
Split "mathelp.f90" into "mathelp.f90" and "mathop.f90".
Removed unused variable "dpres" of module "comvert".
Use argument "itau" instead of local variables "iadvtr" and "first" to
control algorithm in procedure "fluxstokenc".
Removed unused arguments of procedure "integrd".
Removed useless computations at the end of procedure "leapfrog".
Merged common block "matrfil" into module "parafilt".
Revision
31 -
Directory Listing
Modified
Thu Apr 1 14:59:19 2010 UTC
(14 years, 3 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Split "vlsplt.f" in single-procedure files. Gathered the files in
directory "dyn3d/Vlsplt".
Defined "pbarum(:, 1, :)" and "pbarum(:, jjm + 1, :)" in procedure
"groupe".
Revision
30 -
Directory Listing
Added
Thu Apr 1 09:07:28 2010 UTC
(14 years, 3 months ago)
by
guez
Original Path:
trunk/libf/IOIPSL
Imported Source files of the external library "IOIPSL_Lionel" into
"libf/IOIPSL".
Split "cray.f90" into "scopy.f90" and "ssum.f90".
Rewrote "leapfrog" in order to have a clearer algorithmic structure.