| 1 | 
#! /usr/bin/env bash | 
| 2 | 
 | 
| 3 | 
#PBS -N RidgeWorld | 
| 4 | 
#PBS -l nodes=8 | 
| 5 | 
#PBS -V | 
| 6 | 
#PBS -q four | 
| 7 | 
 | 
| 8 | 
# ITRDA specific calls: | 
| 9 | 
. /etc/profile.d/modules.sh | 
| 10 | 
module add mpich/intel | 
| 11 | 
module add python-ext | 
| 12 | 
 | 
| 13 | 
#-----------------------------------------------------------------------------# | 
| 14 | 
#     - Load PC parameters                                                    # | 
| 15 | 
#     - Determine stop iteration for this period                              # | 
| 16 | 
#-----------------------------------------------------------------------------# | 
| 17 | 
runDir=/net/ds-01/scratch-4/enderton/RidgeWorld | 
| 18 | 
varlist="npcpl npocn exp matscript outDir figOutDir scrDir cplmonitor         \ | 
| 19 | 
         ocnmonitor period iitO iitA \ | 
| 20 | 
         fitO fitA nitC nitO nitA nitOonly pChkptFreq taveFreq cpl_taveFreq   \ | 
| 21 | 
         dumpFreq monitorFreq exC exO exA exOOnly cplDir ocnDir atmDir dtA    \ | 
| 22 | 
         dtO dtC" | 
| 23 | 
cd $runDir | 
| 24 | 
source pc.vars | 
| 25 | 
sitO=$(( $iitO + $nitO )) | 
| 26 | 
sitA=$(( $iitA + $nitA )) | 
| 27 | 
rm -f $cplmonitor | 
| 28 | 
echo "Coupled period!"                                >  $cplmonitor | 
| 29 | 
echo "Actual start time, of script:   "`date`         >> $cplmonitor | 
| 30 | 
echo "Simulation directory:           "$runDir        >> $cplmonitor | 
| 31 | 
echo "Period:                         "$period        >> $cplmonitor | 
| 32 | 
echo "Period START iteration:"                        >> $cplmonitor | 
| 33 | 
echo "    Ocean         "$iitO                        >> $cplmonitor | 
| 34 | 
echo "    Atmosphere    "$iitA                        >> $cplmonitor | 
| 35 | 
echo "Period STOP iteration:"                         >> $cplmonitor | 
| 36 | 
echo "    Ocean         "$sitO                        >> $cplmonitor | 
| 37 | 
echo "    Atmosphere    "$sitA                        >> $cplmonitor | 
| 38 | 
echo "Overall FINAL iteration:"                       >> $cplmonitor | 
| 39 | 
echo "    Ocean         "$fitO                        >> $cplmonitor | 
| 40 | 
echo "    Atmosphere    "$fitA                        >> $cplmonitor | 
| 41 | 
 | 
| 42 | 
 | 
| 43 | 
#-----------------------------------------------------------------------------# | 
| 44 | 
#     - Set coupled data file, and cpl_taveFreq in the ocean data.cpl file    # | 
| 45 | 
#     - Set ocean and atmosphere data files                                   # | 
| 46 | 
#-----------------------------------------------------------------------------# | 
| 47 | 
. $scrDir/setdatacpl $runDir/$cplDir $runDir/$ocnDir $nitC $cpl_taveFreq | 
| 48 | 
. $scrDir/setdata $runDir/$ocnDir $iitO $nitO $pChkptFreq \ | 
| 49 | 
                  $taveFreq $dumpFreq $monitorFreq | 
| 50 | 
. $scrDir/setdata $runDir/$atmDir $iitA $nitA $pChkptFreq \ | 
| 51 | 
                  $taveFreq $dumpFreq $monitorFreq | 
| 52 | 
 | 
| 53 | 
 | 
| 54 | 
#-----------------------------------------------------------------------------# | 
| 55 | 
#                           Run coupled model                                 # | 
| 56 | 
#-----------------------------------------------------------------------------# | 
| 57 | 
nodelist=`cat $PBS_NODEFILE` | 
| 58 | 
rm -f pr_group; touch pr_group | 
| 59 | 
nc=0; type=C1 | 
| 60 | 
for ii in $nodelist; do | 
| 61 | 
    echo $ii $nc $runDir/executables/mitgcmuv.$type >> pr_group | 
| 62 | 
    if test $nc = 0 ; then type=O1 ; else type=A6 ; fi | 
| 63 | 
    nc=1 | 
| 64 | 
done | 
| 65 | 
echo "Program goup file:"            >> $cplmonitor | 
| 66 | 
cat pr_group                         >> $cplmonitor | 
| 67 | 
echo "Beginning model execution..."  >> $cplmonitor | 
| 68 | 
#mpirun -p4pg pr_group -v ./executables/$exC | 
| 69 | 
#/usr/local/pkg/mpi/mpi-1.2.4..8a-gm-1.5/intel/bin/mpirun.ch_gm \ | 
| 70 | 
#    -pg pr_group --gm-kill 5 -v ./executables/$exC | 
| 71 | 
status=$? | 
| 72 | 
echo "Ended with status:  "$status   >> $cplmonitor | 
| 73 | 
 | 
| 74 | 
 | 
| 75 | 
#-----------------------------------------------------------------------------# | 
| 76 | 
#                             Check for pickups                               # | 
| 77 | 
#-----------------------------------------------------------------------------# | 
| 78 | 
sitO0=`$scrDir/add0upto10c $sitO` | 
| 79 | 
sitA0=`$scrDir/add0upto10c $sitA` | 
| 80 | 
pickO=$runDir"/"$ocnDir"/pickup."$sitO0".001.001.data" | 
| 81 | 
pickA=$runDir"/"$atmDir"/pickup."$sitA0".001.001.data" | 
| 82 | 
if [ -f $pickO ]; then | 
| 83 | 
    echo "Ocn pickup present:      "$pickO >> $cplmonitor | 
| 84 | 
else         | 
| 85 | 
    echo "Ocn pickup not present:  "$pickO >> $cplmonitor; exit; | 
| 86 | 
fi | 
| 87 | 
if [ -f $pickA ]; then | 
| 88 | 
    echo "Atm pickup present:      "$pickA >> $cplmonitor | 
| 89 | 
else | 
| 90 | 
    echo "Atm pickup not present:  "$pickA >> $cplmonitor; exit; | 
| 91 | 
fi  | 
| 92 | 
 | 
| 93 | 
 | 
| 94 | 
#-----------------------------------------------------------------------------# | 
| 95 | 
#                       Move old data (just copy pickups)                     # | 
| 96 | 
#-----------------------------------------------------------------------------# | 
| 97 | 
#. $scrDir/movedataCpl $npcpl $runDir $ocnDir $atmDir $outDir \ | 
| 98 | 
#                      $period $sitO0 $sitA0 $cplmonitor | 
| 99 | 
 | 
| 100 | 
 | 
| 101 | 
 | 
| 102 | 
#-----------------------------------------------------------------------------# | 
| 103 | 
#                                    Make plots                               # | 
| 104 | 
#-----------------------------------------------------------------------------# | 
| 105 | 
dirroot=$outDir/Cpl$period | 
| 106 | 
 | 
| 107 | 
matnA=$(( $taveFreq / $dtA )) | 
| 108 | 
matiA=$(( $iitA + $matnA )) | 
| 109 | 
matsA=$sitA | 
| 110 | 
 | 
| 111 | 
matnO=$(( $taveFreq / $dtO )) | 
| 112 | 
matiO=$(( $iitO + $matnO )) | 
| 113 | 
matsO=$sitO | 
| 114 | 
 | 
| 115 | 
matnC=$(( $cpl_taveFreq / $dtC )) | 
| 116 | 
matiC=$(( $iitO + $matnC )) | 
| 117 | 
matsC=$sitO | 
| 118 | 
 | 
| 119 | 
. $scrDir/MakeDiagScript.sh $matscript $exp $runDir $dirroot \ | 
| 120 | 
                            $figOutDir $dtA $dtO     \ | 
| 121 | 
                            $matiA $matnA $matsA     \ | 
| 122 | 
                            $matiO $matnO $matsO     \ | 
| 123 | 
                            $matiC $matnC $matsC | 
| 124 | 
 | 
| 125 | 
 | 
| 126 | 
#-----------------------------------------------------------------------------# | 
| 127 | 
#                      Reset periodic coupling parameters                     # | 
| 128 | 
#-----------------------------------------------------------------------------# | 
| 129 | 
iitO=$sitO | 
| 130 | 
iitA=$sitA | 
| 131 | 
period=$(( $period + 1 )) | 
| 132 | 
#rm -f pc.vars | 
| 133 | 
#for i in $varlist; do | 
| 134 | 
#    echo $i'='`eval echo '$'$i` >> pc.vars.temp | 
| 135 | 
#done | 
| 136 | 
#mv pc.vars.temp pc.vars | 
| 137 | 
 | 
| 138 | 
 | 
| 139 | 
#-----------------------------------------------------------------------------# | 
| 140 | 
#                         Resubmit coupled model                              # | 
| 141 | 
#-----------------------------------------------------------------------------# | 
| 142 | 
if [ $iitO -ge $fitO ]; then | 
| 143 | 
    echo "New iitO exceeds fitO;  All done!" >> $cplmonitor; exit | 
| 144 | 
fi | 
| 145 | 
if [ $iitA -ge $fitA ]; then | 
| 146 | 
    echo "New iitA exceeds fitA;  All done!" >> $cplmonitor; exit | 
| 147 | 
fi | 
| 148 | 
qsub runCpl | 
| 149 | 
qsub "analysis/"$matscript"_PBS" |