Changeset 1419


Ignore:
Timestamp:
Apr 17, 2015, 3:33:33 PM (10 years ago)
Author:
jleconte
Message:
  • Correct radiative transfer bug for the Top layer in callcorrk following commit by SG.
Location:
trunk/LMDZ.GENERIC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/README

    r1403 r1419  
    10691069  iniphysiq) or main programs (e.g. newstart).
    10701070* 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  
    608608      plevrad(1) = 0.
    609609
    610       if (ptopzero) then
    611          plevrad(2) = 0.
    612       else
    613          plevrad(2) = max(pgasmin,0.0001*plevrad(3))
    614       endif
    615 
    616610      tlevrad(1) = tlevrad(2)
    617611      tlevrad(2*nlayer+1)=tsurf(ig)
     
    625619      pmid(3) = plevrad(2)
    626620      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
    627627     
    628628      DO l=2,L_NLAYRAD-1
  • trunk/LMDZ.GENERIC/libf/phystd/inifis.F

    r1417 r1419  
    231231         write(*,*) "correction on plevrad in the top levels",
    232232     &              " (callcorrk)?"
    233          ptopzero=.false. ! default value
     233         ptopzero=.true. ! default value
    234234         call getin_p("ptopzero",ptopzero)
    235235         write(*,*) "ptopzero = ",ptopzero
Note: See TracChangeset for help on using the changeset viewer.