- 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/pbl_surface_mod.F90
r1282 r1299 22 22 USE climb_wind_mod, ONLY : climb_wind_down, climb_wind_up 23 23 USE coef_diff_turb_mod, ONLY : coef_diff_turb 24 USE control_mod 25 24 26 25 27 IMPLICIT NONE … … 257 259 INCLUDE "YOETHF.h" 258 260 INCLUDE "temps.h" 259 INCLUDE "control.h"260 261 ! Input variables 261 262 !**************************************************************************************** … … 657 658 tabindx(:)=0. 658 659 DO i=1,knon 659 tabindx(i)= FLOAT(i)660 tabindx(i)=REAL(i) 660 661 END DO 661 662 debugtab(:,:) = 0.
Note: See TracChangeset
for help on using the changeset viewer.