Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/albedo.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/albedo.F
r900 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 67 67 c prend en compte l'autre moitie de la journee): 68 68 DO k = 1, npts 69 rmu = aa + bb * COS( FLOAT(k)/FLOAT(npts)*zpi)69 rmu = aa + bb * COS(REAL(k)/REAL(npts)*zpi) 70 70 rmu = MAX(0.0, rmu) 71 71 fauxo = (1.47-ACOS(rmu))/.15 … … 110 110 c prend en compte l'autre moitie de la journee): 111 111 DO k = 1, npts 112 rmu = aa + bb * COS( FLOAT(k)/FLOAT(npts)*zpi)112 rmu = aa + bb * COS(REAL(k)/REAL(npts)*zpi) 113 113 rmu = MAX(0.0, rmu) 114 114 cIM cf. PB alb = 0.058/(rmu + 0.30)
Note: See TracChangeset
for help on using the changeset viewer.