- Timestamp:
- May 20, 2017, 9:41:16 AM (7 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2867-2869,2871-2872,2876-2878,2881-2882,2884-2885
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/cosp/cosp_output_write_mod.F90
r2839 r2886 182 182 CALL histwrite3d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr(:,icl,:),nvert,icl) 183 183 enddo 184 CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp) 185 #endif 186 184 #endif 185 186 CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp) 187 187 do k=1,PARASOL_NREFL 188 188 do ip=1, Npoints 189 if (stlidar%cldlayer(ip,4).gt.0.01 ) then189 if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then 190 190 parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ & 191 191 stlidar%cldlayer(ip,4) … … 196 196 endif 197 197 enddo 198 198 199 enddo 199 200 CALL histwrite3d_cosp(o_Ncrefl,Ncref,nvertp)
Note: See TracChangeset
for help on using the changeset viewer.