Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/ini_bilKP_ave.h
- 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/ini_bilKP_ave.h
r766 r1299 1 1 c 2 c $ Header$2 c $Id$ 3 3 c 4 4 IF (ok_journe) THEN … … 17 17 cym ENDDO 18 18 DO ll=1,klev 19 znivsig(ll)= float(ll)19 znivsig(ll)=REAL(ll) 20 20 ENDDO 21 21 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
Note: See TracChangeset
for help on using the changeset viewer.