- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/surf_ocean_mod.F90
r1146 r1299 141 141 !**************************************************************************************** 142 142 IF ( MINVAL(rmu0) == MAXVAL(rmu0) .AND. MINVAL(rmu0) == -999.999 ) THEN 143 CALL alboc( FLOAT(jour),rlat,alb_eau)143 CALL alboc(REAL(jour),rlat,alb_eau) 144 144 ELSE ! diurnal cycle 145 145 CALL alboc_cd(rmu0,alb_eau)
Note: See TracChangeset
for help on using the changeset viewer.