#include "dimensions.h"
#include "paramet.h"
#include "comconst.h"
#include "comgeom.h"
#include "serre.h"
 
Go to the source code of this file.
 | 
| subroutine  | addfi (pdt, leapf, forward, pucov, pvcov, pteta, pq, pps, pdufi, pdvfi, pdhfi, pdqfi, pdpfi) | 
|   | 
      
        
          | subroutine addfi  | 
          ( | 
          real, intent(in)  | 
          pdt,  | 
        
        
           | 
           | 
          logical, intent(in)  | 
          leapf,  | 
        
        
           | 
           | 
          logical, intent(in)  | 
          forward,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          pucov,  | 
        
        
           | 
           | 
          real, dimension(ip1jm,llm), intent(inout)  | 
          pvcov,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(inout)  | 
          pteta,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm,nqtot), intent(inout)  | 
          pq,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(inout)  | 
          pps,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(in)  | 
          pdufi,  | 
        
        
           | 
           | 
          real, dimension(ip1jm,llm), intent(in)  | 
          pdvfi,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm), intent(in)  | 
          pdhfi,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1,llm,nqtot), intent(in)  | 
          pdqfi,  | 
        
        
           | 
           | 
          real, dimension(ip1jmp1), intent(in)  | 
          pdpfi  | 
        
        
           | 
          ) | 
           |  |