Changeset 4895 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
- Timestamp:
- Apr 9, 2024, 8:29:30 AM (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
r4885 r4895 188 188 !$OMP THREADPRIVATE(eps) 189 189 190 REAL, SAVE, PROTECTED :: coef_ventil=1. ! A COMMENTER TODO [-]191 !$OMP THREADPRIVATE( coef_ventil)190 REAL, SAVE, PROTECTED :: gamma_melt=1. ! A COMMENTER TODO [-] 191 !$OMP THREADPRIVATE(gamma_melt) 192 192 193 193 REAL, SAVE, PROTECTED :: alpha_freez=4. ! A COMMENTER TODO [-] … … 306 306 CALL getin_p('gamma_rim',gamma_rim) 307 307 CALL getin_p('gamma_freez',gamma_freez) 308 CALL getin_p('gamma_melt',gamma_melt) 308 309 CALL getin_p('r_snow',r_snow) 309 310 CALL getin_p('rain_fallspeed',rain_fallspeed) … … 363 364 WRITE(lunout,*) 'lscp_ini, gamma_rim:', gamma_rim 364 365 WRITE(lunout,*) 'lscp_ini, gamma_freez:', gamma_freez 366 WRITE(lunout,*) 'lscp_ini, gamma_melt:', gamma_melt 365 367 WRITE(lunout,*) 'lscp_ini, r_snow:', r_snow 366 368 WRITE(lunout,*) 'lscp_ini, rain_fallspeed_clr:', rain_fallspeed_clr
Note: See TracChangeset
for help on using the changeset viewer.