- 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/write_histISCCP.h
r1045 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 IF (ok_isccp) THEN … … 77 77 . meantaucld(:,n)) 78 78 c 79 zx_tmp_fi2d(1:klon)= float(seed(1:klon,n))79 zx_tmp_fi2d(1:klon)=REAL(seed(1:klon,n)) 80 80 c 81 81 c print*,'n=',n,' write_ISCCP avant seed'
Note: See TracChangeset
for help on using the changeset viewer.