Changeset 3286 for LMDZ6/trunk/libf
- Timestamp:
- Mar 19, 2018, 1:27:22 PM (7 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd/cosp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_constants.F90
r3241 r3286 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/trunk/libf/phylmd/cosp/mod_modis_sim.F90
r3241 r3286 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.