Revision
139 -
Directory Listing
Modified
Tue May 26 17:46:03 2015 UTC
(8 years, 11 months ago)
by
guez
dynetat0 read rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d from
"start.nc" and then these variables were overwritten by
inigeom. Corrected this. Now, inigeom does not compute rlonu, rlatu,
rlonv and rlatv. Moreover, cu_2d, cv_2d, aire_2d are not written to
"restart.nc". Since xprimu, xprimv, xprimm025, xprimp025, rlatu1,
rlatu2, yprimu1, yprimu2 are computed at the same time as rlonu,
rlatu, rlonv, rlatv, and since it would not be convenient to separate
those computations, we decide to write xprimu, xprimv, xprimm025,
xprimp025, rlatu1, rlatu2, yprimu1, yprimu2 into "restart.nc", read
them from "start.nc" and not compute them in inigeom. So, in summary,
"start.nc" contains all the coordinates and their derivatives, and
inigeom only computes the 2D-variables.
Technical details:
Moved variables rlatu, rlonv, rlonu, rlatv, xprimu, xprimv from module
comgeom to module dynetat0_m. Upgraded local variables rlatu1,
yprimu1, rlatu2, yprimu2, xprimm025, xprimp025 of procedure inigeom to
variables of module dynetat0_m.
Removed unused local variable yprimu of procedure inigeom and
corresponding argument yyprimu of fyhyp.
Moved variables clat, clon, grossismx, grossismy, dzoomx, dzoomy,
taux, tauy from module serre to module dynetat0_m (since they are read
from "start.nc"). The default values are now defined in read_serre
instead of in the declarations. Changed name of module serre to
read_serre_m, no more module variable here.
The calls to fxhyp and fyhyp are moved from inigeom to etat0.
Side effects in programs other than gcm: etat0 and read_serre write
variables of module dynetat0; the programs test_fxyp and
test_inter_barxy need more source files.
Removed unused arguments len and nd of cv3_tracer. Removed unused
argument PPSOL of LWU.
Bug fix in test_inter_barxy: forgotten call to read_serre.
Revision
57 -
Directory Listing
Modified
Mon Jan 30 12:54:02 2012 UTC
(12 years, 3 months ago)
by
guez
Original Path:
trunk/libf/dyn3d/Vlsplt
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
32 -
Directory Listing
Modified
Tue Apr 6 17:52:58 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/Vlsplt
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
Added
Thu Apr 1 14:59:19 2010 UTC
(14 years, 1 month ago)
by
guez
Original Path:
trunk/libf/dyn3d/Vlsplt
Split "vlsplt.f" in single-procedure files. Gathered the files in
directory "dyn3d/Vlsplt".
Defined "pbarum(:, 1, :)" and "pbarum(:, jjm + 1, :)" in procedure
"groupe".