#include "YOMCST.h"
#include "YOETHF.h"
#include "FCTTRE.h"
#include "thermcell.h"
 
Go to the source code of this file.
 | 
| subroutine  | cloudth (ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, ztla, zthl, ratqs, zqs, t) | 
|   | 
| subroutine  | cloudth_vert (ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, ztla, zthl, ratqs, zqs, t) | 
|   | 
      
        
          | subroutine cloudth  | 
          ( | 
          integer  | 
          ngrid,  | 
        
        
           | 
           | 
          integer  | 
          klev,  | 
        
        
           | 
           | 
          integer  | 
          ind2,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ztv,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          po,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zqta,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev+1)  | 
          fraca,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          qcloud,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ctot,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zpspsk,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev+1)  | 
          paprs,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ztla,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zthl,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ratqs,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          zqs,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          t  | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | subroutine cloudth_vert  | 
          ( | 
          integer  | 
          ngrid,  | 
        
        
           | 
           | 
          integer  | 
          klev,  | 
        
        
           | 
           | 
          integer  | 
          ind2,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ztv,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          po,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zqta,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev+1)  | 
          fraca,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          qcloud,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ctot,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zpspsk,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev+1)  | 
          paprs,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ztla,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          zthl,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          ratqs,  | 
        
        
           | 
           | 
          real, dimension(ngrid)  | 
          zqs,  | 
        
        
           | 
           | 
          real, dimension(ngrid,klev)  | 
          t  | 
        
        
           | 
          ) | 
           |  |