| subroutine COUPLING_TEB_n | ( | CHARACTER(LEN=6), intent(in) | HPROGRAM, | 
        
          |  |  | CHARACTER(LEN=1), intent(in) | HCOUPLING, | 
        
          |  |  | REAL, intent(in) | PTSTEP, | 
        
          |  |  | INTEGER, intent(in) | KYEAR, | 
        
          |  |  | INTEGER, intent(in) | KMONTH, | 
        
          |  |  | INTEGER, intent(in) | KDAY, | 
        
          |  |  | REAL, intent(in) | PTIME, | 
        
          |  |  | INTEGER, intent(in) | KI, | 
        
          |  |  | INTEGER, intent(in) | KSV, | 
        
          |  |  | INTEGER, intent(in) | KSW, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PTSUN, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PZENITH, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PAZIM, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PZREF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PUREF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PZS, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PU, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PV, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PQA, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PTA, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PRHOA, | 
        
          |  |  | REAL, dimension(ki,ksv), intent(in) | PSV, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PCO2, | 
        
          |  |  | CHARACTER(LEN=6), dimension(ksv), intent(in) | HSV, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PRAIN, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PSNOW, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PLW, | 
        
          |  |  | REAL, dimension(ki,ksw), intent(in) | PDIR_SW, | 
        
          |  |  | REAL, dimension(ki,ksw), intent(in) | PSCA_SW, | 
        
          |  |  | REAL, dimension(ksw), intent(in) | PSW_BANDS, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPS, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPA, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PSFTQ, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PSFTH, | 
        
          |  |  | REAL, dimension(ki,ksv), intent(out) | PSFTS, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PSFCO2, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PSFU, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PSFV, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PTRAD, | 
        
          |  |  | REAL, dimension(ki,ksw), intent(out) | PDIR_ALB, | 
        
          |  |  | REAL, dimension(ki,ksw), intent(out) | PSCA_ALB, | 
        
          |  |  | REAL, dimension(ki), intent(out) | PEMIS, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPEW_A_COEF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPEW_B_COEF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPET_A_COEF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPEQ_A_COEF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPET_B_COEF, | 
        
          |  |  | REAL, dimension(ki), intent(in) | PPEQ_B_COEF, | 
        
          |  |  | CHARACTER(LEN=2), intent(in) | HTEST | 
        
          |  | ) |  |  |