Log of /trunk/phylmd/Interface_surf/albsno.f
Parent Directory
| Revision Log
Revision
299 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Aug 2 14:27:11 2018 UTC
(5 years, 11 months ago)
by
guez
File length: 712 byte(s)
Diff to
previous 254
Use directly dtphys from module comconst when possible instead of
having it trickle down through procedure arguments.
Revision
174 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Nov 25 20:14:19 2015 UTC
(8 years, 7 months ago)
by
guez
Original Path:
trunk/Sources/phylmd/Interface_surf/albsno.f
File length: 714 byte(s)
Diff to
previous 134
Simplifications in procedure albsno. Since veget(:, 2:) was 0,
iterations 2 to nvm of the loop computing alb_neig_grid were useless.
Useless initializations of alb_neige in procedure interfsurf_hq:
alb_neig is always computed by albsno just before being used. Useless
computation of local variable zfra in the land ice case.
Revision
116 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Thu Dec 4 16:35:03 2014 UTC
(9 years, 7 months ago)
by
guez
Original Path:
trunk/phylmd/albsno.f
File length: 1217 byte(s)
Diff to
previous 82
In test_disvert, write output files before testing order of pressure
values, so we have more information if there is a problem.
Revision
68 -
(
view)
(
annotate)
-
[select for diffs]
Modified
Wed Nov 14 16:59:30 2012 UTC
(11 years, 7 months ago)
by
guez
Original Path:
trunk/libf/phylmd/albsno.f90
File length: 1178 byte(s)
Copied from:
trunk/libf/phylmd/albsno_m.f90 revision 66
Diff to
previous 3
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.
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.