Changeset 3670 for LMDZ6/trunk/libf/phylmd/cva_driver.F90
- Timestamp:
- Apr 27, 2020, 10:49:09 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cva_driver.F90
r3496 r3670 361 361 ! then the level NL-1. 362 362 ! 10 No moist convection: cloud top is too warm. 363 ! 14 No moist convection; atmosphere is very 364 ! stable (=> no computation) 363 365 ! 364 366 … … 539 541 CHARACTER (LEN=80) :: abort_message 540 542 543 REAL, PARAMETER :: Cin_noconv = -100000. 544 REAL, PARAMETER :: Cape_noconv = -1. 545 541 546 INTEGER,SAVE :: igout=1 542 547 !$OMP THREADPRIVATE(igout) … … 622 627 623 628 DO il = 1, len 624 cin1(il) = -100000. 625 cape1(il) = -1. 629 !! cin1(il) = -100000. 630 !! cape1(il) = -1. 631 cin1(il) = Cin_noconv 632 cape1(il) = Cape_noconv 626 633 END DO 627 634 … … 1246 1253 1247 1254 END IF ! ncum>0 1255 ! 1256 ! 1257 DO i = 1,len 1258 IF (iflag1(i) == 14) THEN 1259 Cin1(i) = Cin_noconv 1260 Cape1(i) = Cape_noconv 1261 ENDIF 1262 ENDDO 1248 1263 1249 1264 !
Note: See TracChangeset
for help on using the changeset viewer.