Changeset 2944
- Timestamp:
- Jul 12, 2017, 3:15:57 PM (7 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd/cosp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cosp/cosp_output_mod.F90
r2822 r2944 42 42 ! CALIPSO vars 43 43 TYPE(ctrl_outcosp), SAVE :: o_cllcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 44 "cllcalipso", "Lidar Low-level Cloud Fraction", " %", (/ ('', i=1, 3) /))44 "cllcalipso", "Lidar Low-level Cloud Fraction", "1", (/ ('', i=1, 3) /)) 45 45 TYPE(ctrl_outcosp), SAVE :: o_clmcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 46 "clmcalipso", "Lidar Mid-level Cloud Fraction", " %", (/ ('', i=1, 3) /))46 "clmcalipso", "Lidar Mid-level Cloud Fraction", "1", (/ ('', i=1, 3) /)) 47 47 TYPE(ctrl_outcosp), SAVE :: o_clhcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 48 "clhcalipso", "Lidar High-level Cloud Fraction", " %", (/ ('', i=1, 3) /))48 "clhcalipso", "Lidar High-level Cloud Fraction", "1", (/ ('', i=1, 3) /)) 49 49 TYPE(ctrl_outcosp), SAVE :: o_cltcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 50 "cltcalipso", "Lidar Total Cloud Fraction", " %", (/ ('', i=1, 3) /))50 "cltcalipso", "Lidar Total Cloud Fraction", "1", (/ ('', i=1, 3) /)) 51 51 TYPE(ctrl_outcosp), SAVE :: o_clcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 52 "clcalipso", "Lidar Cloud Fraction (532 nm)", " %", (/ ('', i=1, 3) /))52 "clcalipso", "Lidar Cloud Fraction (532 nm)", "1", (/ ('', i=1, 3) /)) 53 53 TYPE(ctrl_outcosp), SAVE :: o_cfad_lidarsr532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), & 54 54 "cfad_lidarsr532", "Lidar Scattering Ratio CFAD (532 nm)", "1", (/ ('', i=1, 3) /)) … … 119 119 "sunlit", "1 for day points, 0 for nightime","1",(/ ('', i=1, 3) /)) 120 120 TYPE(ctrl_outcosp), SAVE :: o_clisccp2 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 121 "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator"," 1", (/ ('', i=1, 3) /))121 "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator","%", (/ ('', i=1, 3) /)) 122 122 TYPE(ctrl_outcosp), SAVE :: o_boxtauisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), & 123 123 "boxtauisccp", "Optical Depth in Each Column as Calculated by the ISCCP Simulator","1", (/ ('', i=1, 3) /)) … … 125 125 "boxptopisccp", "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator","Pa", (/ ('', i=1, 3) /)) 126 126 TYPE(ctrl_outcosp), SAVE :: o_tclisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 127 "tclisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", " 1", (/ ('', i=1, 3) /))127 "tclisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", "%", (/ ('', i=1, 3) /)) 128 128 TYPE(ctrl_outcosp), SAVE :: o_ctpisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 129 129 "ctpisccp", "Mean Cloud Top Pressure as Calculated by the ISCCP Simulator", "Pa", (/ ('', i=1, 3) /)) … … 141 141 ! MISR simulator 142 142 TYPE(ctrl_outcosp), SAVE :: o_clMISR = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 143 "clMISR", "Cloud Fraction as Calculated by the MISR Simulator"," 1", (/ ('', i=1, 3) /))143 "clMISR", "Cloud Fraction as Calculated by the MISR Simulator","%", (/ ('', i=1, 3) /)) 144 144 145 145 ! MODIS simulator 146 146 TYPE(ctrl_outcosp), SAVE :: o_cllmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 147 "cllmodis", "MODIS Low-level Cloud Fraction", " 1", (/ ('', i=1, 3) /))147 "cllmodis", "MODIS Low-level Cloud Fraction", "%", (/ ('', i=1, 3) /)) 148 148 TYPE(ctrl_outcosp), SAVE :: o_clmmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 149 "clmmodis", "MODIS Mid-level Cloud Fraction", " 1", (/ ('', i=1, 3) /))149 "clmmodis", "MODIS Mid-level Cloud Fraction", "%", (/ ('', i=1, 3) /)) 150 150 TYPE(ctrl_outcosp), SAVE :: o_clhmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 151 "clhmodis", "MODIS High-level Cloud Fraction", " 1", (/ ('', i=1, 3) /))151 "clhmodis", "MODIS High-level Cloud Fraction", "%", (/ ('', i=1, 3) /)) 152 152 TYPE(ctrl_outcosp), SAVE :: o_cltmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 153 "cltmodis", "MODIS Total Cloud Fraction", " 1", (/ ('', i=1, 3) /))153 "cltmodis", "MODIS Total Cloud Fraction", "%", (/ ('', i=1, 3) /)) 154 154 TYPE(ctrl_outcosp), SAVE :: o_clwmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 155 "clwmodis", "MODIS Cloud Fraction water mean", " 1", (/ ('', i=1, 3) /))155 "clwmodis", "MODIS Cloud Fraction water mean", "%", (/ ('', i=1, 3) /)) 156 156 TYPE(ctrl_outcosp), SAVE :: o_climodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 157 "climodis", "MODIS Cloud Fraction ice mean", " 1", (/ ('', i=1, 3) /))157 "climodis", "MODIS Cloud Fraction ice mean", "%", (/ ('', i=1, 3) /)) 158 158 TYPE(ctrl_outcosp), SAVE :: o_tautmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 159 159 "tautmodis", "MODIS Optical_Thickness_Total_Mean", "1", (/ ('', i=1, 3) /)) … … 167 167 "tauwlogmodis", "MODIS Optical_Thickness_Water_logMean", "1", (/ ('', i=1, 3) /)) 168 168 TYPE(ctrl_outcosp), SAVE :: o_tauilogmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 169 "tauilogmodis", "MODIS Optical_Thickness_Ice_logMean", "1", (/ ('', i=1, 3) /)) 169 "tauilogmodis", "MODIS Optical_Thickness_Ice_logMean", "1", (/ ('', i=1, 3) /)) 170 170 TYPE(ctrl_outcosp), SAVE :: o_reffclwmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 171 "reffclwmodis", "Modis Cloud_Particle_Size_Water_Mean", "m", (/ ('', i=1, 3) /)) 171 "reffclwmodis", "Modis Cloud_Particle_Size_Water_Mean", "m", (/ ('', i=1, 3) /)) 172 172 TYPE(ctrl_outcosp), SAVE :: o_reffclimodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 173 173 "reffclimodis", "Modis Cloud_Particle_Size_Ice_Mean", "m", (/ ('', i=1, 3) /)) … … 177 177 "lwpmodis", "Modis Liquid_Water_Path_Mean", "kg m-2", (/ ('', i=1, 3) /)) 178 178 TYPE(ctrl_outcosp), SAVE :: o_iwpmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 179 "iwpmodis", "Modis Ice_Water_Path_Mean", "kg m-2", (/ ('', i=1, 3) /)) 179 "iwpmodis", "Modis Ice_Water_Path_Mean", "kg m-2", (/ ('', i=1, 3) /)) 180 180 TYPE(ctrl_outcosp), SAVE :: o_clmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 181 181 "clmodis", "MODIS Cloud Area Fraction", "%", (/ ('', i=1, 3) /)) … … 191 191 ! Scops and others 192 192 TYPE(ctrl_outcosp), SAVE :: o_fracout = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 193 "fracout", "Subcolumn output from SCOPS", "%", (/ ('', i=1, 3) /)) 193 "fracout", "Subcolumn output from SCOPS", "%", (/ ('', i=1, 3) /)) 194 194 195 195 LOGICAL, SAVE :: cosp_varsdefined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL -
LMDZ5/trunk/libf/phylmd/cosp/cosp_simulator.F90
r2464 r2944 170 170 ! where(stlidar%cldlayer /= R_UNDEF) stlidar%cldlayer = stlidar%cldlayer*100.0 171 171 ! endif 172 !if (cfg%Lclcalipso2) then173 !where(stradar%lidar_only_freq_cloud /= R_UNDEF) stradar%lidar_only_freq_cloud = stradar%lidar_only_freq_cloud*100.0174 !endif175 176 !if (cfg%Lcltcalipsoliq.OR.cfg%Lcllcalipsoliq.OR.cfg%Lclmcalipsoliq.OR.cfg%Lclhcalipsoliq.OR. &177 !cfg%Lcltcalipsoice.OR.cfg%Lcllcalipsoice.OR.cfg%Lclmcalipsoice.OR.cfg%Lclhcalipsoice.OR. &178 !cfg%Lcltcalipsoun.OR.cfg%Lcllcalipsoun.OR.cfg%Lclmcalipsoun.OR.cfg%Lclhcalipsoun ) then179 !where(stlidar%cldlayerphase /= R_UNDEF) stlidar%cldlayerphase = stlidar%cldlayerphase*100.0180 !endif181 !if (cfg%Lclcalipsoliq.OR.cfg%Lclcalipsoice.OR.cfg%Lclcalipsoun) then182 !where(stlidar%lidarcldphase /= R_UNDEF) stlidar%lidarcldphase = stlidar%lidarcldphase*100.0183 !endif184 !if (cfg%Lclcalipsotmp.OR.cfg%Lclcalipsotmpliq.OR.cfg%Lclcalipsotmpice.OR.cfg%Lclcalipsotmpun) then185 !where(stlidar%lidarcldtmp /= R_UNDEF) stlidar%lidarcldtmp = stlidar%lidarcldtmp*100.0186 !endif187 188 !if (cfg%Lcltisccp) then189 !where(isccp%totalcldarea /= R_UNDEF) isccp%totalcldarea = isccp%totalcldarea*100.0190 !endif191 !if (cfg%Lclisccp) then192 !where(isccp%fq_isccp /= R_UNDEF) isccp%fq_isccp = isccp%fq_isccp*100.0193 !endif194 195 !if (cfg%LclMISR) then196 !where(misr%fq_MISR /= R_UNDEF) misr%fq_MISR = misr%fq_MISR*100.0197 !endif198 199 !if (cfg%Lcltlidarradar) then200 !where(stradar%radar_lidar_tcc /= R_UNDEF) stradar%radar_lidar_tcc = stradar%radar_lidar_tcc*100.0201 !endif172 if (cfg%Lclcalipso2) then 173 where(stradar%lidar_only_freq_cloud /= R_UNDEF) stradar%lidar_only_freq_cloud = stradar%lidar_only_freq_cloud*100.0 174 endif 175 176 if (cfg%Lcltcalipsoliq.OR.cfg%Lcllcalipsoliq.OR.cfg%Lclmcalipsoliq.OR.cfg%Lclhcalipsoliq.OR. & 177 cfg%Lcltcalipsoice.OR.cfg%Lcllcalipsoice.OR.cfg%Lclmcalipsoice.OR.cfg%Lclhcalipsoice.OR. & 178 cfg%Lcltcalipsoun.OR.cfg%Lcllcalipsoun.OR.cfg%Lclmcalipsoun.OR.cfg%Lclhcalipsoun ) then 179 where(stlidar%cldlayerphase /= R_UNDEF) stlidar%cldlayerphase = stlidar%cldlayerphase*100.0 180 endif 181 if (cfg%Lclcalipsoliq.OR.cfg%Lclcalipsoice.OR.cfg%Lclcalipsoun) then 182 where(stlidar%lidarcldphase /= R_UNDEF) stlidar%lidarcldphase = stlidar%lidarcldphase*100.0 183 endif 184 if (cfg%Lclcalipsotmp.OR.cfg%Lclcalipsotmpliq.OR.cfg%Lclcalipsotmpice.OR.cfg%Lclcalipsotmpun) then 185 where(stlidar%lidarcldtmp /= R_UNDEF) stlidar%lidarcldtmp = stlidar%lidarcldtmp*100.0 186 endif 187 188 if (cfg%Lcltisccp) then 189 where(isccp%totalcldarea /= R_UNDEF) isccp%totalcldarea = isccp%totalcldarea*100.0 190 endif 191 if (cfg%Lclisccp) then 192 where(isccp%fq_isccp /= R_UNDEF) isccp%fq_isccp = isccp%fq_isccp*100.0 193 endif 194 195 if (cfg%LclMISR) then 196 where(misr%fq_MISR /= R_UNDEF) misr%fq_MISR = misr%fq_MISR*100.0 197 endif 198 199 if (cfg%Lcltlidarradar) then 200 where(stradar%radar_lidar_tcc /= R_UNDEF) stradar%radar_lidar_tcc = stradar%radar_lidar_tcc*100.0 201 endif 202 202 203 203 if (cfg%Lclmodis) then … … 205 205 modis%Optical_Thickness_vs_Cloud_Top_Pressure*100.0 206 206 endif 207 !if (cfg%Lcltmodis) then208 !where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0209 !endif210 !if (cfg%Lclwmodis) then211 !where(modis%Cloud_Fraction_Water_Mean /= R_UNDEF) modis%Cloud_Fraction_Water_Mean = modis%Cloud_Fraction_Water_Mean*100.0212 !endif213 !if (cfg%Lclimodis) then214 !where(modis%Cloud_Fraction_Ice_Mean /= R_UNDEF) modis%Cloud_Fraction_Ice_Mean = modis%Cloud_Fraction_Ice_Mean*100.0215 !endif216 217 !if (cfg%Lclhmodis) then218 !where(modis%Cloud_Fraction_High_Mean /= R_UNDEF) modis%Cloud_Fraction_High_Mean = modis%Cloud_Fraction_High_Mean*100.0219 !endif220 !if (cfg%Lclmmodis) then221 !where(modis%Cloud_Fraction_Mid_Mean /= R_UNDEF) modis%Cloud_Fraction_Mid_Mean = modis%Cloud_Fraction_Mid_Mean*100.0222 !endif223 !if (cfg%Lcllmodis) then224 !where(modis%Cloud_Fraction_Low_Mean /= R_UNDEF) modis%Cloud_Fraction_Low_Mean = modis%Cloud_Fraction_Low_Mean*100.0225 !endif207 if (cfg%Lcltmodis) then 208 where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0 209 endif 210 if (cfg%Lclwmodis) then 211 where(modis%Cloud_Fraction_Water_Mean /= R_UNDEF) modis%Cloud_Fraction_Water_Mean = modis%Cloud_Fraction_Water_Mean*100.0 212 endif 213 if (cfg%Lclimodis) then 214 where(modis%Cloud_Fraction_Ice_Mean /= R_UNDEF) modis%Cloud_Fraction_Ice_Mean = modis%Cloud_Fraction_Ice_Mean*100.0 215 endif 216 217 if (cfg%Lclhmodis) then 218 where(modis%Cloud_Fraction_High_Mean /= R_UNDEF) modis%Cloud_Fraction_High_Mean = modis%Cloud_Fraction_High_Mean*100.0 219 endif 220 if (cfg%Lclmmodis) then 221 where(modis%Cloud_Fraction_Mid_Mean /= R_UNDEF) modis%Cloud_Fraction_Mid_Mean = modis%Cloud_Fraction_Mid_Mean*100.0 222 endif 223 if (cfg%Lcllmodis) then 224 where(modis%Cloud_Fraction_Low_Mean /= R_UNDEF) modis%Cloud_Fraction_Low_Mean = modis%Cloud_Fraction_Low_Mean*100.0 225 endif 226 226 227 227 ! Change pressure from hPa to Pa.
Note: See TracChangeset
for help on using the changeset viewer.