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