Ignore:
Timestamp:
Feb 5, 2018, 7:04:44 PM (7 years ago)
Author:
idelkadi
Message:

Correction de bogue dans le simulateur Modis (mise a jour dans la version Cosp v1.4.2)

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/cosp_simulator.F90

    r2944 r3185  
    205205                                                      modis%Optical_Thickness_vs_Cloud_Top_Pressure*100.0
    206206  endif
     207  if (cfg%Lcrimodis) then
     208     where(modis%Optical_Thickness_vs_ReffICE /= R_UNDEF) modis%Optical_Thickness_vs_ReffICE = &
     209                                                      modis%Optical_Thickness_vs_ReffICE*100.0
     210  endif
     211  if (cfg%Lcrlmodis) then
     212     where(modis%Optical_Thickness_vs_ReffLIQ /= R_UNDEF) modis%Optical_Thickness_vs_ReffLIQ = &
     213                                                      modis%Optical_Thickness_vs_ReffLIQ*100.0
     214  endif
     215
    207216  if (cfg%Lcltmodis) then
    208217    where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/modis_simulator.F90

    r2822 r3185  
    863863    tau(:) = ice_tau(:) + water_tau(:)
    864864    where (tau(:) > 0)
    865       g(:)  = (water_tau(:) * water_g(:)                + ice_tau(:) * ice_g(:)            ) / &
    866               tau(:) 
    867       w0(:) = (water_tau(:) * water_g(:) * water_w0(:)  + ice_tau(:) * ice_g(:) * ice_w0(:)) / &
    868               (g(:) * tau(:))
     865      w0(:) = (water_tau(:) * water_w0(:)  + ice_tau(:) * ice_w0(:)) / &
     866              tau(:)
     867      g(:) = (water_tau(:) * water_g(:) * water_w0(:)  + ice_tau(:) * ice_g(:) * ice_w0(:)) / &
     868             (w0(:) * tau(:))
    869869    end where
    870870   
Note: See TracChangeset for help on using the changeset viewer.