Changeset 1419
- Timestamp:
- Apr 17, 2015, 3:33:33 PM (10 years ago)
- Location:
- trunk/LMDZ.GENERIC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/README
r1403 r1419 1069 1069 iniphysiq) or main programs (e.g. newstart). 1070 1070 * phystd/dyn1d: this subdirectory contains the 1D models. 1071 1072 == 17/04/2015 == JL 1073 - Correct radiative transfer bug for the Top layer in callcorrk following commit by SG. 1074 -
trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90
r1417 r1419 608 608 plevrad(1) = 0. 609 609 610 if (ptopzero) then611 plevrad(2) = 0.612 else613 plevrad(2) = max(pgasmin,0.0001*plevrad(3))614 endif615 616 610 tlevrad(1) = tlevrad(2) 617 611 tlevrad(2*nlayer+1)=tsurf(ig) … … 625 619 pmid(3) = plevrad(2) 626 620 pmid(4) = plevrad(2) 621 622 if (ptopzero) then 623 plevrad(2) = 0. 624 else 625 plevrad(2) = max(pgasmin,0.0001*plevrad(3)) 626 endif 627 627 628 628 DO l=2,L_NLAYRAD-1 -
trunk/LMDZ.GENERIC/libf/phystd/inifis.F
r1417 r1419 231 231 write(*,*) "correction on plevrad in the top levels", 232 232 & " (callcorrk)?" 233 ptopzero=. false. ! default value233 ptopzero=.true. ! default value 234 234 call getin_p("ptopzero",ptopzero) 235 235 write(*,*) "ptopzero = ",ptopzero
Note: See TracChangeset
for help on using the changeset viewer.