MODULE trcstp !!====================================================================== !! *** MODULE trcstp *** !! Dummy module !! Time-stepping : time loop of opa for passive tracer !!====================================================================== !!---------------------------------------------------------------------- !! Default key No passive tracers !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_stp( kt ) ! Empty routine INTEGER, INTENT(in) :: kt WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt END SUBROUTINE trc_stp !!====================================================================== END MODULE trcstp