Log of /trunk/phylmd/Interface_surf/albsno.f

---

Revision 117 - (view) (annotate) - [select for diffs]
Modified Thu Dec 4 16:48:53 2014 UTC (9 years, 5 months ago) by guez
File length: 1217 byte(s)
Copied from: trunk/phylmd/albsno.f revision 116
Diff to previous 116

Split "albedo.f" into "alboc.f" and "alboc_cd.f".

---

Revision 116 - (view) (annotate) - [select for diffs]
Modified Thu Dec 4 16:35:03 2014 UTC (9 years, 5 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 82 - (view) (annotate) - [select for diffs]
Modified Wed Mar 5 14:57:53 2014 UTC (10 years, 2 months ago) by guez
Original Path: trunk/phylmd/albsno.f
File length: 1178 byte(s)
Copied from: trunk/phylmd/albsno.f90 revision 80
Diff to previous 76

Changed all ".f90" suffixes to ".f".

---

Revision 76 - (view) (annotate) - [select for diffs]
Modified Fri Nov 15 18:45:49 2013 UTC (10 years, 5 months ago) by guez
Original Path: trunk/phylmd/albsno.f90
File length: 1178 byte(s)
Copied from: trunk/libf/phylmd/albsno_m.f90 revision 66
Diff to previous 68

Moved everything out of libf.

---

Revision 68 - (view) (annotate) - [select for diffs]
Modified Wed Nov 14 16:59:30 2012 UTC (11 years, 5 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.

---

Revision 3 - (view) (annotate) - [select for diffs]
Added Wed Feb 27 13:16:39 2008 UTC (16 years, 2 months ago) by guez
Original Path: trunk/libf/phylmd/albsno_m.f90
File length: 1178 byte(s)

Initial import