interface
SUBROUTINE MODIFY_WV_CONTINUUM(NWVCONTINUUM)
use parkind1 , only:&
 & jpim
INTEGER(KIND=JPIM), INTENT(IN) :: NWVCONTINUUM
END SUBROUTINE MODIFY_WV_CONTINUUM
end interface