1 2 3 MODULE usr 4 5 6 Use param 7 Use param1 8 9 10 ! 11 ! Declare the user-defined namelist variables (usrnlst.inc) in this module. 12 ! Also Include user-defined variables in this module. To access the 13 ! variables from a subroutine add the statement "Use usr". If allocatable 14 ! arrays are defined in this module allocate them in usr0. To turn on the 15 ! user defined subroutines (usr0, usr1, and usr2) set call_usr to true in 16 ! mfix.dat. 17 ! 18 ! a dummy variable listed in usrnlst.inc 19 DOUBLE PRECISION DUMMY_DP 20 21 END MODULE usr 22