- Timestamp:
- Mar 16, 2018, 10:48:57 AM (7 years ago)
- Location:
- LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/mod_cosp_constants.F90
r3242 r3276 40 40 41 41 ! Mode debug ou prod (AI 0302018) 42 logical :: ok_debug_cosp = . false.42 logical :: ok_debug_cosp = .true. 43 43 44 44 ! Indices to address arrays of LS and CONV hydrometeors -
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/mod_modis_sim.F90
r3242 r3276 596 596 ! Set clear-scenes to undefined 597 597 ! ######################################################################################## 598 where (Cloud_Fraction_High_Mean == 0) Cloud_Fraction_High_Mean = R_UNDEF599 where (Cloud_Fraction_Mid_Mean == 0) Cloud_Fraction_Mid_Mean = R_UNDEF600 where (Cloud_Fraction_Low_Mean == 0) Cloud_Fraction_Low_Mean = R_UNDEF598 ! where (Cloud_Fraction_High_Mean == 0) Cloud_Fraction_High_Mean = R_UNDEF 599 ! where (Cloud_Fraction_Mid_Mean == 0) Cloud_Fraction_Mid_Mean = R_UNDEF 600 ! where (Cloud_Fraction_Low_Mean == 0) Cloud_Fraction_Low_Mean = R_UNDEF 601 601 602 602 ! ########################################################################################
Note: See TracChangeset
for help on using the changeset viewer.