- Timestamp:
- Apr 4, 2018, 10:48:33 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/cosp_output_write_mod.F90
r3292 r3306 51 51 integer :: itau_wcosp, iff 52 52 real, dimension(Npoints,PARASOL_NREFL) :: parasolcrefl, Ncref 53 54 ! Variables locals intermidiaires pour inverser les axes des champs 4D 55 ! Compatibilite avec sorties CMIP 56 real, dimension(Npoints,Nlevout,SR_BINS) :: tmp_fi4da_cfadL 57 real, dimension(Npoints,Nlevout,DBZE_BINS) :: tmp_fi4da_cfadR 58 real, dimension(Npoints,MISR_N_CTH,7) :: tmp_fi4da_misr 53 59 54 60 #ifdef CPP_XIOS … … 158 164 159 165 #ifdef CPP_XIOS 160 if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr) 166 do icl=1,SR_BINS 167 tmp_fi4da_cfadL(:,:,icl)=stlidar%cfad_sr(:,icl,:) 168 enddo 169 ! if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr) 170 if (cfg%LcfadLidarsr532) CALL histwrite4d_cosp(o_cfad_lidarsr532,tmp_fi4da_cfadL) 161 171 if (cfg%LprofSR) CALL histwrite4d_cosp(o_profSR,stlidar%profSR) !TIBO 162 172 #else … … 210 220 where(stradar%cfad_ze == R_UNDEF) stradar%cfad_ze = missing_val 211 221 #ifdef CPP_XIOS 222 do icl=1,DBZE_BINS 223 tmp_fi4da_cfadR(:,:,icl)=stradar%cfad_ze(:,icl,:) 224 enddo 212 225 if (cfg%Ldbze94) CALL histwrite4d_cosp(o_dbze94,sgradar%Ze_tot) 213 if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,stradar%cfad_ze) 226 ! if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,stradar%cfad_ze) 227 if (cfg%LcfadDbze94) CALL histwrite4d_cosp(o_cfadDbze94,tmp_fi4da_cfadR) 214 228 #else 215 229 if (cfg%Ldbze94) then … … 275 289 276 290 #ifdef CPP_XIOS 277 if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,misr%fq_MISR) 291 do icl=1,MISR_N_CTH 292 tmp_fi4da_misr(:,icl,:)=misr%fq_MISR(:,:,icl) 293 enddo 294 ! if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,misr%fq_MISR) 295 if (cfg%LclMISR) CALL histwrite4d_cosp(o_clMISR,tmp_fi4da_misr) 278 296 #else 279 297 if (cfg%LclMISR) then
Note: See TracChangeset
for help on using the changeset viewer.