Changeset 1526 for LMDZ5/trunk/libf/cosp/lidar_simulator.F90
- Timestamp:
- May 26, 2011, 1:41:28 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/cosp/lidar_simulator.F90
r1279 r1526 179 179 REAL tautot_S_liq(npoints),tautot_S_ice(npoints) ! for liq and ice clouds 180 180 181 ! Abderrahmane 8-2-2011 182 Logical iflag_testlidar 183 PARAMETER (iflag_testlidar=.false.) 181 184 182 185 !------------------------------------------------------------ … … 384 387 END DO 385 388 389 if (iflag_testlidar) then 390 !+JLD test 391 ! do k=1,nlev 392 ! print*,'Min val de frac_out=',k,minval(frac_out(:,k)) 393 ! print*,'Max val de frac_out=',k,maxval(frac_out(:,k)) 394 ! enddo 395 where ( frac_out(:,:).ge.0.5) 396 ! Correction AI 9 5 11 pnorm(:,:) = pmol(:,:)*10. 397 pnorm(:,:) = pmol(:,:)*50. 398 elsewhere 399 pnorm(:,:) = pmol(:,:) 400 endwhere 401 !-JLD test 402 endif 403 386 404 !-------- End computation Lidar -------------------------- 387 405
Note: See TracChangeset
for help on using the changeset viewer.