1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: USR3 C 4 ! Purpose: This routine is called after the time loop ends and is 5 ! user-definable. The user may insert code in this routine 6 ! or call appropriate user defined subroutines. 7 ! This routine is not called from an IJK loop, hence 8 ! all indices are undefined. C 9 ! C 10 ! Author: Date: dd-mmm-yy C 11 ! Reviewer: Date: dd-mmm-yy C 12 ! C 13 ! Revision Number: C 14 ! Purpose: C 15 ! Author: Date: dd-mmm-yy C 16 ! Reviewer: Date: dd-mmm-yy C 17 ! C 18 ! Literature/Document References: C 19 ! C 20 ! Variables referenced: C 21 ! Variables modified: C 22 ! C 23 ! Local variables: C 24 ! C 25 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 26 ! 27 SUBROUTINE USR3 28 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 29 !...Switches: -xf 30 Use usr 31 IMPLICIT NONE 32 !----------------------------------------------- 33 ! 34 ! Include files defining common blocks here 35 ! 36 ! 37 ! Define local variables here 38 ! 39 ! 40 ! Include files defining statement functions here 41 ! 42 ! 43 ! Insert user-defined code here 44 ! 45 RETURN 46 END SUBROUTINE USR3 47