Changeset 223

Timestamp:

Jan 13, 2009 4:31:47 PM (16 years ago)

Author:

raasch

Message:

usage of totalview debugger implemented in mrun

File:

• palm/trunk/SCRIPTS/mrun (modified) (6 diffs)

palm/trunk/SCRIPTS/mrun

@@ -166 +166 @@
      # 08/01/09 - Siggi  - mpi module on sgi machines to be used can be set
      #                     with environment variable mpilib
+     # 13/01/09 - Siggi  - totalview on hice/bice can be used in debug mode
+     #                     using environment variable totalview
 
 
@@ -2830 +2832 @@
              locat=debug
              exit
+          else
+             echo "no_coupling"  >  runfile_atmos
           fi
           (( ii = $numprocs / $threads_per_task ))
@@ -2839 +2843 @@
           fi
           printf "\n\n"
-           echo "no_coupling"  >  runfile_atmos
-           if [[ $( echo $mpilib | cut -c1-3 ) = mpt ]]
-           then
-#              export MPI_LAUNCH_TIMEOUT=360
-              mpiexec_mpt -np $ii   ./a.out  $ROPTS
-           elif [[ $( echo $mpilib | cut -c1-3 ) = mva ]]
-           then
-#              ulimit -s 300000   # A too large stack size causes problems
-#              export MV2_NUM_PORTS=2
-#              export MV2_CPU_MAPPING=0:1:2:3
-              mpiexec    ./a.out  $ROPTS
-           fi
+          if [[ $( echo $mpilib | cut -c1-3 ) = mpt ]]
+          then
+#             export MPI_LAUNCH_TIMEOUT=360
+             if [[ "$totalview" = true ]]
+             then
+                printf "\n     running totalview debugger"
+                mpiexec_mpt -tv -n $ii   ./a.out  $ROPTS  < runfile_atmos
+             else
+                mpiexec_mpt -np $ii   ./a.out  $ROPTS  < runfile_atmos
+             fi
+          elif [[ $( echo $mpilib | cut -c1-3 ) = mva ]]
+          then
+#             ulimit -s 300000   # A too large stack size causes problems
+#             export MV2_NUM_PORTS=2
+#             export MV2_CPU_MAPPING=0:1:2:3
+             mpiexec    ./a.out  $ROPTS  < runfile_atmos
+          fi
        else 
           printf "\n  +++ no debug available on \"$localhost\" "
@@ -3009 +3018 @@
              if [[ $run_coupled_model = false ]]
              then
+                echo "no_coupling"  >  runfile_atmos
                 printf "\n\n"
                 if [[ $host = lcsgih  ||  $host = lcsgib ]]
@@ -3015 +3025 @@
                    then
 #                      export MPI_LAUNCH_TIMEOUT=360
-                      mpiexec_mpt -np $ii   ./a.out  $ROPTS
+                      mpiexec_mpt -np $ii   ./a.out  $ROPTS  < runfile_atmos
                    elif [[ $( echo $mpilib | cut -c1-3 ) = mva ]]
                    then
@@ -3021 +3031 @@
 #                      export MV2_NUM_PORTS=2
 #                      export MV2_CPU_MAPPING=0:1:2:3
-                      mpiexec    ./a.out  $ROPTS
+                      mpiexec    ./a.out  $ROPTS  < runfile_atmos
                    fi
                 elif [[ $host = lcxt4 ]]
                 then
-                   aprun  -n $ii  -N $tasks_per_node  a.out  $ROPTS
+                   aprun  -n $ii  -N $tasks_per_node  a.out  $ROPTS  < runfile_atmos
                 else
-                   echo "no_coupling"  >  runfile_atmos
-                   mpiexec  -machinefile hostfile  -n $ii  a.out < runfile_atmos  $ROPTS
+                   mpiexec  -machinefile hostfile  -n $ii  a.out  < runfile_atmos  $ROPTS
                 fi
              else