Changeset 1804 for palm/trunk/SCRIPTS/mrun
- Timestamp:
- Apr 5, 2016 4:30:18 PM (8 years ago)
- File:
-
- 1 edited
-
palm/trunk/SCRIPTS/mrun (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/mrun
r1779 r1804 26 26 # ROPTS removed from execution commands 27 27 # Warnings about missing optional files or user code changed to informative messages 28 # Removed parameter file check 28 29 # 29 30 # Former revisions: … … 478 479 then 479 480 (printf "\n *** mrun can be called as follows:\n" 480 printf "\n $mrun_script_name -b -c.. -d.. -D.. -f.. -F -h.. -i.. -I -K.. -m.. -o.. -p.. -r.. -R -s.. -t.. -T.. -v -x -X.. -y -Y.. - z -Z <modus> \n"481 printf "\n $mrun_script_name -b -c.. -d.. -D.. -f.. -F -h.. -i.. -I -K.. -m.. -o.. -p.. -r.. -R -s.. -t.. -T.. -v -x -X.. -y -Y.. -Z <modus> \n" 481 482 printf "\n Description of available options:\n" 482 483 printf "\n Option Description Default-Value" … … 522 523 printf "\n -Y run coupled model, \"#1 #2\" with" 523 524 printf "\n #1 atmosphere and #2 ocean processors \"#/2 #/2\" depending on -X" 524 printf "\n -z disable a priori parameter file check ---"525 525 printf "\n -Z skip combine_plot_fields at the end of " 526 526 printf "\n the simulation ---" … … 1208 1208 fi 1209 1209 eval pathname=${pathin[$i]} 1210 1211 # SAVE INPUT FILE NAME FOR PARAMETER FILE CHECK1212 if [[ ("${transin[$i]}" = job) && (-f $filename) ]]1213 then1214 filename_input=$filename1215 fi1216 1210 1217 1211 # CHECK IF FILE EXISTS … … 2207 2201 fi 2208 2202 2209 2210 # PERFORM PARAMETER FILE CHECK (COUPLED RUNS ARE NOT SUPPORTED YET) 2211 # DEFINE VARIABLES FOR FREQUENTLY USED DIRECTORIES 2212 check_depository="${working_directory}/trunk/UTIL" 2213 check_sources="${working_directory}/tmp_check_namelist_files" 2214 skip_check=false 2215 2216 # CHECK IF NAMELIST_FILE_CHECK HAS BEEN COMPILED SUCCESSFULLY 2217 if [[ ! -f $check_depository/check_namelist_files.tar ]] 2218 then 2219 skip_check=true 2220 reason="run on remote host or parameter file check has not been compiled." 2221 fi 2222 if [[ ! -f $PALM_BIN/check_namelist_files.x ]] 2223 then 2224 skip_check=true 2225 reason="parameter file check has not been compiled." 2226 fi 2227 2228 # CHECK FOR PARALLEL RUN; OTHERWISE SKIP CHECK 2229 if [[ "$cond1" != "parallel" && "$cond2" != "parallel" ]] 2230 then 2231 skip_check=true 2232 reason="serial run." 2233 fi 2234 2235 # ONLY PERFORM CHECK IF -z OPTION IS NOT SET, NO RESTART RUN IS CARRIED OUT 2236 # AND IF THE EXECUTION HOST IS THE LOCAL HOST 2237 # ATTENTION: THIS ROUTINE DOES NOT WORK IF THE COMPILER ON THE LOCAL HOST 2238 # DIFFERS FROM THE COMPILER ON THE REMOTE HOST 2239 if [[ $check_namelist_files == false ]] 2240 then 2241 skip_check=true 2242 reason="-z option set." 2243 fi 2244 2245 if [[ $fromhost != $localhost ]] 2246 then 2247 skip_check=true 2248 reason="submitting host is local host." 2249 fi 2250 2251 if [[ $run_coupled_model == true ]] 2252 then 2253 skip_check=true 2254 reason="coupled run." 2255 fi 2256 2257 if [[ $restart_run == true ]] 2258 then 2259 skip_check=true 2260 reason="restart run." 2261 fi 2262 2263 # SKIP CHECK IN CASE OF RESTART RUN: CHECK WHETHER THE LAST CHAR IS "f" IN PARIN 2264 (( last_char_int = `echo $filename_input | wc -c` - 1 )) 2265 last_char=`echo $filename_input | cut -c $last_char_int` 2266 if [[ "$last_char" == "f" ]] 2267 then 2268 skip_check=true 2269 reason="restart run." 2270 fi 2271 2272 if [[ $skip_check == false ]] 2273 then 2274 tmp_check=${working_directory}/tmp_check 2275 2276 # GET TOPOGRAPHY PARAMETER FILE SUFFIX (USUALLY "_TOPO"). THIS FILE IS 2277 # NOT NECESSARILY REQUIRED 2278 line="" 2279 found=false 2280 grep "TOPOGRAPHY_DATA" $config_file > $tmp_check 2281 while read line1 2282 do 2283 line="$line1" 2284 if [[ "$line" != "" && $(echo $line | cut -c1) != "#" ]] 2285 then 2286 topo_suffix=`echo $line | tr -s " " | cut -d" " -s -f5` 2287 found=true 2288 fi 2289 done < $tmp_check 2290 2291 if [[ $found = false ]] 2292 then 2293 printf "\n +++ no TOPOGRAPHY list entry found in the configuration file." 2294 fi 2295 2296 # GET NUDGING PARAMETER FILE SUFFIX (USUALLY "_NUDGE"). THIS FILE IS 2297 # NOT NECESSARILY REQUIRED 2298 line="" 2299 found=false 2300 grep "NUDGING_DATA" $config_file > $tmp_check 2301 while read line1 2302 do 2303 line="$line1" 2304 if [[ "$line" != "" && $(echo $line | cut -c1) != "#" ]] 2305 then 2306 nudge_suffix=`echo $line | tr -s " " | cut -d" " -s -f5` 2307 found=true 2308 fi 2309 done < $tmp_check 2310 2311 if [[ $found = false ]] 2312 then 2313 printf "\n +++ no NUDGING list entry found in the configuration file." 2314 fi 2315 2316 # GET LARGE SCALE FORCING PARAMETER FILE SUFFIX (USUALLY "_LSF"). THIS FILE IS 2317 # NOT NECESSARILY REQUIRED 2318 line="" 2319 found=false 2320 grep "LSF_DATA" $config_file > $tmp_check 2321 while read line1 2322 do 2323 line="$line1" 2324 if [[ "$line" != "" && $(echo $line | cut -c1) != "#" ]] 2325 then 2326 lsf_suffix=`echo $line | tr -s " " | cut -d" " -s -f5` 2327 found=true 2328 fi 2329 done < $tmp_check 2330 2331 if [[ $found = false ]] 2332 then 2333 printf "\n +++ no LSF list entry found in the configuration file." 2334 fi 2335 2336 rm -rf ${working_directory}/tmp_check 2337 2338 # CHECK IF THE P3DF FILE MUST BE CHECKED 2339 for item in $input_list 2340 do 2341 if [[ "$item" == "restart" ]] 2342 then 2343 check_restart=1 2344 else 2345 check_restart=0 2346 fi 2347 done 2348 2349 # ERROR IF NO PARAMETER FILE WAS FOUND, OTHERWISE PROCEED 2350 if [[ (! -f $filename_input) && ( "$filename_input" != "" ) ]] 2351 then 2352 printf "\n\n +++ ERROR: parameter file ($filename_input) not found." 2353 locat=check_namelist; exit 2354 fi 2355 2356 # CHECK IF THE RESTART PARAMETER FILE EXISTS (IF NECESSARY) 2357 if [[ $check_restart == 1 ]] 2358 then 2359 2360 filenamef="${filename_input}f" 2361 if [[ ! -f $filenamef ]] 2362 then 2363 printf "\n\n +++ WARNING: restart parameter file ($filenamef) is missing." 2364 check_restart=0 2365 answer=dummy 2366 printf "\n\n" 2367 2368 if [[ $silent == false ]] 2369 then 2370 while [[ "$answer" != c && "$answer" != C && "$answer" != a && "$answer" != A ]] 2371 do 2372 printf " >>> continue anyway (c(ontinue)/a(bort)) ? " 2373 read answer 2374 done 2375 if [[ $answer = a || $answer = A ]] 2376 then 2377 printf "\n +++ Aborting...." 2378 locat=normal; exit 2379 fi 2380 fi 2381 else 2382 check_restart=1 2383 fi 2384 fi 2385 2386 # CREATE TEMPORARY SOURCES_FOR_CHECK PATH 2387 mkdir $check_sources 2388 cd $check_sources 2389 2390 2391 # CHECK FOR USER CODE, OTHERWISE USE THE PRECOMPILED CHECK_NAMELIST_FILES.X 2392 if [[ -d $add_source_path ]] 2393 then 2394 printf "\n\n *** copying files from $check_depository" 2395 cp $check_depository/check_namelist_files.tar ./ 2396 2397 printf "\n\n *** untar of makefile and source files in $check_sources" 2398 tar -xf check_namelist_files.tar > /dev/null 2>&1 2399 2400 printf "\n\n *** adding user code." 2401 cp $add_source_path/* ./ 2402 touch check_namelist_files.f90 2403 2404 # GET COMPILER OPTIONS AND PERFORM MAKE 2405 printf "\n\n *** compiling code if necessary...\n" 2406 2407 # workaround for batch jobs on local machine (lcxe6) 2408 if [[ $do_batch == true && $do_remote == false ]] 2409 then 2410 eval $init_cmds 2411 fi 2412 2413 # GET CHECK OPTIONS 2414 line="" 2415 found=false 2416 2417 grep "$localhost" ${base_directory}/${config_file} | grep "%cpp_options" > $tmp_check 2418 2419 while read line1 2420 do 2421 2422 if [[ $(echo $line1 | cut -d" " -s -f3-) = "$localhost" ]] 2423 then 2424 line="$line1" 2425 fi 2426 2427 if [[ "$line" != "" && $(echo $line | cut -c1) != "#" ]] 2428 then 2429 # REMOVE COLONS FROM OPTION-STRING, REMOVE ALL -D OPTIONS 2430 line="$line " 2431 copts_check=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g' | sed 's/-D[^ ]* //g' | sed 's/ -D.*//g'` 2432 found=true 2433 fi 2434 2435 done < $tmp_check 2436 copts_check="$copts_check -D__check -D__parallel" 2437 2438 make -f Makefile_check F90=$compiler_name_ser COPT="$copts_check" 2439 2440 # GET MAKE OUTPUT 2441 if [[ $? != 0 ]] 2442 then 2443 printf "\n +++ error during make." 2444 answer=dummy 2445 printf "\n\n" 2446 if [[ $silent == false ]] 2447 then 2448 while [[ "$answer" != c && "$answer" != C && "$answer" != a && "$answer" != A ]] 2449 do 2450 printf " >>> continue anyway (c(ontinue)/a(bort)) ? " 2451 read answer 2452 done 2453 if [[ $answer = a || $answer = A ]] 2454 then 2455 printf "\n +++ Aborting..." 2456 rm -rf $check_sources 2457 locat=normal; exit 2458 else 2459 skip_check=true 2460 fi 2461 else 2462 skip_check=true 2463 fi 2464 fi 2465 else 2466 cp $PALM_BIN/check_namelist_files.x ./ 2467 fi 2468 2469 cp $filename_input ./PARIN 2470 if [[ $check_restart == 1 ]] 2471 then 2472 cp $filenamef ./PARINF 2473 fi 2474 2475 if [[ -f ${pathname}/${fname}${topo_suffix} && $skip_check == false ]] 2476 then 2477 printf "\n *** adding topography data" 2478 cp ${pathname}/${fname}${topo_suffix} ./TOPOGRAPHY_DATA 2479 2480 # IN CASE OF TOPOGRAPHY AND HIGH GRID POINT NUMBERS, THE STACK SIZE 2481 # MUST BE INCREASED. THIS IS DUE TO THE ARRAY nzb_local AND topo_height, 2482 # WHICH REQUIRE SUFFICIENT MEMORY 2483 ulimit -s unlimited 2484 fi 2485 2486 if [[ -f ${pathname}/${fname}${nudge_suffix} && $skip_check == false ]] 2487 then 2488 printf "\n *** adding nudging data" 2489 cp ${pathname}/${fname}${nudge_suffix} ./NUDGING_DATA 2490 fi 2491 2492 if [[ -f ${pathname}/${fname}${lsf_suffix} && $skip_check == false ]] 2493 then 2494 printf "\n *** adding large scale forcing data" 2495 cp ${pathname}/${fname}${lsf_suffix} ./LSF_DATA 2496 fi 2497 2498 # CREATE ENVPAR FILE, WHICH IS NEEDED BY CHECK_NAMELIST_FILES.X 2499 cat > ENVPAR << %%END%% 2500 &envpar run_identifier = '$fname', host = '$host', 2501 write_binary = '$write_binary', tasks_per_node = $tasks_per_node, 2502 maximum_parallel_io_streams = $maximum_parallel_io_streams, 2503 maximum_cpu_time_allowed = ${cpumax}., 2504 revision = '$global_revision', 2505 local_dvrserver_running = $local_dvrserver_running / 2506 2507 %%END%% 2508 2509 # SAFETY CHECK: ONLY PROCEED IF THE PARAMETER CHECK PROGRAM WAS PROPERLY COMPILED 2510 if [[ ! -f check_namelist_files.x && $skip_check == false ]] 2511 then 2512 printf "\n +++ WARNING: check_namelist_files.x not found." 2513 answer=dummy 2514 printf "\n\n" 2515 2516 if [[ $silent == false ]] 2517 then 2518 while [[ "$answer" != c && "$answer" != C && "$answer" != a && "$answer" != A ]] 2519 do 2520 printf " >>> continue anyway (c(ontinue)/a(bort)) ? " 2521 read answer 2522 done 2523 if [[ $answer = a || $answer = A ]] 2524 then 2525 printf "\n +++ Aborting..." 2526 rm -rf $check_sources 2527 locat=normal; exit 2528 else 2529 printf "\n *** skipping parameter file check." 2530 fi 2531 fi 2532 2533 elif [[ $skip_check == false ]] 2534 then 2535 # STARTING THE PARAMETER FILE CHECK 2536 printf "\n\n *** starting parameter file check..." 2537 2538 # CHECKING THE P3D FILE 2539 printf "\n\n (1) checking $filename_input" 2540 echo "$numprocs 0 0" > VARIN 2541 errors=`./check_namelist_files.x < VARIN 2>&1` 2542 2543 check_error=false 2544 if [[ "$errors" == "" ]] 2545 then 2546 printf " --> o.k." 2547 else 2548 printf " --> failed." 2549 check_error=true 2550 printf "\n\n $errors" 2551 fi 2552 2553 # CHECKING THE PD3F FILE IF NECESSARY 2554 if [[ $check_restart == 1 && $check_error == false ]] 2555 then 2556 printf "\n\n (2) checking $filenamef" 2557 2558 # FIRST CHECK IF INITIALIZING_ACTIONS="READ_RESTART_DATA" IS SET 2559 # IN &INIPAR LIST 2560 found=false 2561 cat PARINF | while read line 2562 do 2563 line=$(echo $line|sed 's/ //g') 2564 if [[ $line == *"&inipar"* ]] 2565 then 2566 start_search=true 2567 fi 2568 2569 if [[ $start_search == true ]] 2570 then 2571 if [[ $line == *"initializing_actions='read_restart_data'"* ]] 2572 then 2573 found=true 2574 break 2575 fi 2576 fi 2577 2578 if [[ $line == *"/"* ]] 2579 then 2580 start_search=false 2581 fi 2582 2583 done 2584 2585 if [[ $found = false ]] 2586 then 2587 printf "\n\n +++ ERROR: initializing_actions = 'read_restart_data' not found" 2588 printf "\n in &inipar list in $fname$p3df_suffix." 2589 rm -rf $check_sources 2590 locat=check_namelist; exit 2591 fi 2592 2593 # READ max_user_pr FROM FILES 2594 if [[ -f parin_for_check ]] 2595 then 2596 read max_pr_user < parin_for_check 2597 else 2598 max_user_pr=0 2599 fi 2600 2601 echo "$numprocs 1 $max_pr_user" > VARIN 2602 errors=`./check_namelist_files.x < VARIN 2>&1` 2603 2604 if [[ "$errors" == "" ]] 2605 then 2606 printf " --> o.k." 2607 else 2608 printf " --> failed." 2609 check_error=true 2610 printf "\n\n $errors" 2611 fi 2612 fi 2613 2614 # REPORT ERRORS AND CONTINUE/EXIT 2615 if [[ $check_error == true ]] 2616 then 2617 printf "\n +++ errors found in the parameter file!\n" 2618 answer=dummy 2619 printf "\n\n" 2620 2621 while [[ "$answer" != c && "$answer" != C && "$answer" != a && "$answer" != A ]] 2622 do 2623 printf " >>> continue anyway (c(ontinue)/a(bort)) ? " 2624 read answer 2625 done 2626 2627 if [[ $answer = a || $answer = A ]] 2628 then 2629 printf "\n +++ Aborting..." 2630 rm -rf $check_sources 2631 locat=normal; exit 2632 fi 2633 else 2634 printf "\n\n *** parameter file(s) seem(s) to be o.k.\n" 2635 fi 2636 rm -rf $check_sources 2637 fi 2638 else 2639 printf "\n\n +++ skipping parameter file check due to following reason: $reason \n" 2640 fi 2641 2642 # DELETE TEMPORARY DIRECTORY AND FINISH NAMELIST FILE CHECK 2643 rm -rf $check_sources 2644 cd $working_directory 2645 2203 2646 2204 # DETERMINE PATH FOR MAKE DEPOSITORY 2647 2205 if [[ $do_batch = false || $create_executable_for_batch = true ]]
Note: See TracChangeset
for help on using the changeset viewer.
