/[lmdze]/trunk/phylmd/Interface_surf/albsno.f90
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Links to HEAD: (view) (annotate)
Sticky Revision:

Revision 332 - (view) (annotate) - [select for diffs]
Modified Tue Aug 13 09:19:22 2019 UTC (4 years, 9 months ago) by guez
File length: 784 byte(s)
Diff to previous 331
Declare variable nent in procedures `cv_driver`, `cv30_mixing` and
`cv30_yield` with shape `(ncum, 2:nl - 1)`.


Revision 331 - (view) (annotate) - [select for diffs]
Modified Wed Jul 31 17:10:31 2019 UTC (4 years, 9 months ago) by guez
File length: 709 byte(s)
Diff to previous 328
Use same variable name across procedures: falbe.

In procedure albsno, no need for `MAX(0., snow_fall)`: snow_fall is
necessarily >= 0. No need to constrain update of agesno to be >= 0:
the result of the computation is necessarily >= 0 since agesno >= 0
and dtphys <= 86400.


Revision 328 - (view) (annotate) - [select for diffs]
Modified Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File length: 706 byte(s)
Copied from: trunk/phylmd/Interface_surf/albsno.f revision 327
Diff to previous 305
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.


Revision 305 - (view) (annotate) - [select for diffs]
Modified Tue Sep 11 11:08:38 2018 UTC (5 years, 8 months ago) by guez
Original Path: trunk/phylmd/Interface_surf/albsno.f
File length: 706 byte(s)
Diff to previous 299
We want to keep the same variable names throughout procedures. In
pbl_surface, rain_fall and snow_fall were passed to clqh and became
precip_rain and precip_snow. Which name should we choose?
Precipitation normally refers to water in all phases. Rainfall and
snowfall seem to be more common names to distinguish liquid water and
snow. Cf. CF standard names. So change everywhere precip_rain to
rain_fall and precip_snow to snow_fall.


Revision 299 - (view) (annotate) - [select for diffs]
Modified Thu Aug 2 14:27:11 2018 UTC (5 years, 9 months ago) by guez
Original Path: trunk/phylmd/Interface_surf/albsno.f
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 254 - (view) (annotate) - [select for diffs]
Modified Mon Feb 5 10:39:38 2018 UTC (6 years, 3 months ago) by guez
Original Path: trunk/phylmd/Interface_surf/albsno.f
File length: 714 byte(s)
Diff to previous 174
Move Sources/* to root directory.

Revision 174 - (view) (annotate) - [select for diffs]
Modified Wed Nov 25 20:14:19 2015 UTC (8 years, 5 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 134 - (view) (annotate) - [select for diffs]
Modified Wed Apr 29 15:47:56 2015 UTC (9 years ago) by guez
Original Path: trunk/Sources/phylmd/Interface_surf/albsno.f
File length: 1217 byte(s)
Copied from: trunk/phylmd/albsno.f revision 116
Diff to previous 117
Sources inside, compilation outside.

Revision 117 - (view) (annotate) - [select for diffs]
Modified Thu Dec 4 16:48:53 2014 UTC (9 years, 5 months ago) by guez
Original Path: trunk/phylmd/Interface_surf/albsno.f
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, 6 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, 6 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

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.

  Diffs between and
  Type of Diff should be a

  ViewVC Help
Powered by ViewVC 1.1.21