| subroutine DIAG_WATFLUX_n | ( | CHARACTER(LEN=6), intent(in) | HPROGRAM, | 
        
          |  |  | REAL, dimension(:), intent(out) | PRN, | 
        
          |  |  | REAL, dimension(:), intent(out) | PH, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLE, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLEI, | 
        
          |  |  | REAL, dimension(:), intent(out) | PGFLUX, | 
        
          |  |  | REAL, dimension(:), intent(out) | PRI, | 
        
          |  |  | REAL, dimension(:), intent(out) | PCD, | 
        
          |  |  | REAL, dimension(:), intent(out) | PCH, | 
        
          |  |  | REAL, dimension(:), intent(out) | PCE, | 
        
          |  |  | REAL, dimension(:), intent(out) | PQS, | 
        
          |  |  | REAL, dimension(:), intent(out) | PZ0, | 
        
          |  |  | REAL, dimension(:), intent(out) | PZ0H, | 
        
          |  |  | REAL, dimension(:), intent(out) | PT2M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PTS, | 
        
          |  |  | REAL, dimension(:), intent(out) | PQ2M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PHU2M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PZON10M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PMER10M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PSWD, | 
        
          |  |  | REAL, dimension(:), intent(out) | PSWU, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLWD, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLWU, | 
        
          |  |  | REAL, dimension(:,:), intent(out) | PSWBD, | 
        
          |  |  | REAL, dimension(:,:), intent(out) | PSWBU, | 
        
          |  |  | REAL, dimension(:), intent(out) | PFMU, | 
        
          |  |  | REAL, dimension(:), intent(out) | PFMV, | 
        
          |  |  | REAL, dimension(:), intent(out) | PRNC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PHC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLEC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PGFLUXC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PSWDC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PSWUC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLWDC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLWUC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PFMUC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PFMVC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PT2M_MIN, | 
        
          |  |  | REAL, dimension(:), intent(out) | PT2M_MAX, | 
        
          |  |  | REAL, dimension(:), intent(out) | PLEIC, | 
        
          |  |  | REAL, dimension(:), intent(out) | PHU2M_MIN, | 
        
          |  |  | REAL, dimension(:), intent(out) | PHU2M_MAX, | 
        
          |  |  | REAL, dimension(:), intent(out) | PWIND10M, | 
        
          |  |  | REAL, dimension(:), intent(out) | PWIND10M_MAX | 
        
          |  | ) |  |  |