1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: USR_WRITE_OUT1 C 4 ! Purpose: write user-defined output C 5 ! C 6 ! Author: Date: C 7 ! Reviewer: Date: C 8 ! C 9 ! C 10 ! Literature/Document References: C 11 ! C 12 ! Variables referenced: C 13 ! C 14 ! Variables modified: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 ! 20 SUBROUTINE USR_WRITE_OUT1 21 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 22 !...Switches: -xf 23 IMPLICIT NONE 24 !----------------------------------------------- 25 ! 26 ! Use this subroutine to write user-defined output to the standard output file 27 ! at intervals OUT_DT. 28 ! The write statements should have the format WRITE(UNIT_OUT,...)... 29 ! 30 ! 31 RETURN 32 END SUBROUTINE USR_WRITE_OUT1 33