Changeset 4915 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
- Timestamp:
- Apr 22, 2024, 6:12:06 PM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
r4913 r4915 9 9 !$OMP THREADPRIVATE(RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RPI) 10 10 11 LOGICAL, SAVE, PROTECTED :: ok_bug_fonte_lscp=.true. ! maintains bug on temperature adjustment associated with snow melting12 !$OMP THREADPRIVATE(ok_bug_fonte_lscp)13 14 11 REAL, SAVE, PROTECTED :: seuil_neb=0.001 ! cloud fraction threshold: a cloud can precipitate when exceeded 15 12 !$OMP THREADPRIVATE(seuil_neb) … … 319 316 CALL getin_p('snow_fallspeed_clr',snow_fallspeed_clr) 320 317 CALL getin_p('snow_fallspeed_cld',snow_fallspeed_cld) 321 CALL getin_p('ok_bug_fonte_lscp',ok_bug_fonte_lscp)322 318 323 319 … … 371 367 WRITE(lunout,*) 'lscp_ini, snow_fallspeed_clr:', snow_fallspeed_clr 372 368 WRITE(lunout,*) 'lscp_ini, snow_fallspeed_cld:', snow_fallspeed_cld 373 WRITE(lunout,*) 'lscp_ini, ok_bug_fonte_lscp:', ok_bug_fonte_lscp374 369 375 370
Note: See TracChangeset
for help on using the changeset viewer.