source: trunk/LMDZ.MARS/libf/phymars/nlthermeq.F @ 3026

      MODULE nlthermeq_mod
      
      IMPLICIT NONE
      
      CONTAINS

      subroutine nlthermeq(ngrid, nlayer, pplev, pplay)
c
c  Compute the number of layers nlaylte (stored in module yomlw_h)
c  over which local thermodynamic equilibrium
c  radiation scheme should be run to be sure of covering at least to a
c  height greater than (pressure lower than) p=pminte, set in nlteparams.h.
c  The maximum layer needed is found for the worst possible case.
c  Stephen Lewis 6/2000
c  Modified Y. Wanherdrick/ F. Forget 09/2000
      use yomlw_h, only: nlaylte
      use nlteparams_h, only: ptrans, pminte, zw
      implicit none
      include "callkeys.h"

c
c     Input:
      integer,intent(in) :: ngrid, nlayer
      real,intent(in) :: pplev(ngrid, nlayer+1)
      real,intent(in) :: pplay(ngrid, nlayer)
c
c     Local:
      integer igpmax, ismax
      logical firstcall

!$OMP THREADPRIVATE(firstcall,igpmax)

      data firstcall /.true./
      save firstcall, igpmax
c
      if(firstcall) then
c     Find the location of maximum surface pressure.
c     Location won't vary much so only do it at the start;
c     with no topography location would vary, but this is only
c     needed for an estimate so any point would do in that case.
!!    AS: can be problem w MESOSCALE nesting (ignored for the moment)
!! Ehouarn: this could also be a problem when in parallel with the GCM as well...
!! fortunately with current setup (pminte=0.04) and hybrid vertical coordinates
!! the transition point is in purely pressure layers and thus always the same.
!! To be cleaned and made more general and robust someday...
         igpmax = ismax(ngrid, pplev, 1)
         write(*, 10) ptrans
         write(*, 20) zw
         write(*, 30) pminte
         firstcall = .false.
      endif
c
      IF(callnlte) then
c       Find first layer above pminte at this location
        do nlaylte = nlayer, 1, -1
           if (pplay(igpmax, nlaylte).gt.pminte)  go to 100
        enddo
      ELSE
        nlaylte=nlayer
      END IF
  100 write(*,*) 'LTE rad. calculations up to layer ',  nlaylte
c
      return
c
   10 format(' nlthermeq: transition to NLTE centred at ',f6.2,'Pa')
   20 format('               half-width (scale heights) ',f6.2)
   30 format('          suggested LTE coverage at least ',f6.2,'Pa')
      end subroutine nlthermeq

      END MODULE nlthermeq_mod