include file: TYPWVCU 5
C*    *COMMON* *CURRENT* - CURRENT FIELD.                                  TYPWVCU.2      
C                                                                          TYPWVCU.3      
      real U(0:NIBLC,NBLC)  ! u-component of current                       TYPWVCU.4      
      real V(0:NIBLC,NBLC)  ! v component of current                       TYPWVCU.5      
C                                                                          TYPWVCU.6