- Timestamp:
- Oct 5, 2023, 5:33:27 PM (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_call_cloud_optics_prop.F90
r4715 r4717 20 20 USE lmdz_cloud_optics_prop_ini , ONLY : ok_cdnc 21 21 USE lmdz_cloud_optics_prop_ini , ONLY : bl95_b0, bl95_b1 22 USE lmdz_cloud_optics_prop_ini , ONLY : iflag_ice_thermo, ok_new_lscp 22 USE lmdz_cloud_optics_prop_ini , ONLY : iflag_ice_thermo, ok_new_lscp, iflag_t_glace 23 23 USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop 24 24 … … 95 95 REAL :: dzfice(klon, klev) 96 96 97 DO k = 1, klev 98 IF (ok_new_lscp) THEN 99 CALL icefrac_lscp(klon,temp(:,k),iflag_ice_thermo,distcltop(:,k),temp_cltop(:,k), & 97 IF (iflag_t_glace .EQ. 0) THEN 98 icefrac_optics(:, :) = 0. 99 ELSE 100 DO k = 1, klev 101 IF (ok_new_lscp) THEN 102 CALL icefrac_lscp(klon,temp(:,k),iflag_ice_thermo,distcltop(:,k),temp_cltop(:,k), & 100 103 & icefrac_optics(:,k),dzfice(:,k)) 101 ELSE 102 CALL icefrac_lsc(klon,temp(:,k),pplay(1:klon,k)/paprs(1:klon,1),icefrac_optics(:,k)) 103 ENDIF 104 ENDDO 104 ELSE 105 CALL icefrac_lsc(klon,temp(:,k),pplay(1:klon,k)/paprs(1:klon,1),icefrac_optics(:,k)) 106 ENDIF 107 ENDDO 108 ENDIF 109 105 110 106 111
Note: See TracChangeset
for help on using the changeset viewer.