4,5c4,5
< # QSUB -lT 600          # time limit in seconds
< # QSUB -q prem          # queue to be used, prem, reg, econ, sb, sds_test, lm
---
> # QSUB -lT 12000        # time limit in seconds
> # QSUB -q econ          # queue to be used, prem, reg, econ, sb, sds_test, lm
2732,2839d2731
< */
< *ID PTRPRNT
< */
< */ Make better print-out of field pointer values from CON:
< */
< *INSERT TYPES.12
<       parameter(nzflds=32, nzphys=39)
< *INSERT CON.19
<       character*8 nflds_lab(nzflds), nphys_lab(nzphys)
<       data nflds_lab
<      + /'NT      ','NU      ','NV      ','NPS     ','NPS2    ',
<      +  'NPN4S   ','NPNO    ','NOP     ','NPN2D   ','NTI     ',
<      +  'NTE     ','NE      ','NO2P    ','NW      ','NZ      ',
<      +  'NPHI    ','NPHIH   ','NTNM    ','NUNM    ','NVNM    ',
<      +  'NPSNM   ','NPS2NM  ','NN4SNM  ','NPNONM  ','NOPNM   ',
<      +  'NMS     ','NVC     ','NKLDU   ','NKLDV   ','NKLDT   ',
<      +  'NKLDPS  ','NKLDP2  '/
< c
<       data nphys_lab
<      + /'NRH     ','NFLH    ','NFPH    ','NQDH    ','NKMH    ',
<      +  'NPSDH   ','NPSDH2  ','NLXX    ','NLYY    ','NLXY    ',
<      +  'NLYX    ','NKT     ','NKM     ','NCP     ','NWTI    ',
<      +  'NWTE    ','NNO2    ','NNO     ','NNN2    ','NPDUM   ',
<      +  'NNVO2   ','NNVO    ','NNVN2   ','NQO2P   ','NQOP    ',
<      +  'NQN2P   ','NQNOP   ','NQNP    ','NQOP2D  ','NQOP2P  ',
<      +  'NQTEF   ','NN2P    ','NNP     ','NNOP    ','NQ      ',
<      +  'NRJ     ','NUI     ','NVI     ','NWI     '/
< c
< *DELETE CON.108,110
<       write(6,"(/72('-'))")
<       write(6,"('POINTER VALUES FOR EACH FIELD IN COMMON BLOCK ',
<      +    'NDEX:')")
<       write(6,"('KMAX=',i3,' KMAXP1=',i3,' ZSB=',f8.3)")
<      +  kmax,kmaxp1,zsb
<       write(6,"('NDEXA: nflds=',i2)") nflds
<       write(6,"('IFLD  NAME      VALUE  KMAX(P1) KPOLE KEQTR')")
<       write(6,"('-------------------------------------------')")
<       do ifld=1,nflds
<         if (kflds(ifld).eq.3) then
<           write(6,"(i4,2x,a8,i7,2x,'KMAXP1',2x,2i6)") ifld,
<      +      nflds_lab(ifld),ndexa(ifld+1),kpole(ifld),keqtr(ifld)
<         elseif (kflds(ifld).eq.2) then
<           write(6,"(i4,2x,a8,i7,2x,'KMAX  ',2x,2i6)") ifld,
<      +      nflds_lab(ifld),ndexa(ifld+1),kpole(ifld),keqtr(ifld)
<         else
<           write(6,"(i4,2x,a8,i7,2x,'1     ',2x,2i6)") ifld,
<      +      nflds_lab(ifld),ndexa(ifld+1),kpole(ifld),keqtr(ifld)
<         endif
<       enddo
<       write(6,"(/'NDEXB: nphys=',i2)") nphys
<       write(6,"('IFLD  NAME      VALUE  KMAX(P1)')")
<       write(6,"('-------------------------------')")
<       do ifld=1,nphys
<         if (kphys(ifld).eq.3) then
<           write(6,"(i4,2x,a8,i7,2x,'KMAXP1')") ifld,
<      +      nphys_lab(ifld),ndexb(ifld+1)
<         elseif (kphys(ifld).eq.2) then
<           write(6,"(i4,2x,a8,i7,2x,'KMAX  ')") ifld,
<      +      nphys_lab(ifld),ndexb(ifld+1)
<         else
<           write(6,"(i4,2x,a8,i7,2x,'1     ')") ifld,
<      +      nphys_lab(ifld),ndexb(ifld+1)
<         endif
<       enddo
<       write(6,"(72('-')/)")
< */
< */ Write info to summary for post-processing:
< */
< *ID WRSUMM
< *DELETE OUTPUT.129,131
< c
< c Write model parameters to summary for post processors:
< c
<       f(1,1) = 1.		! information is available here
<       f(2,1) = float(zimx)	! number of longitudes
<       f(3,1) = float(zjmx)	! number of latitudes
<       f(4,1) = float(zkmx)	! number of vertical (half) levels
<       f(5,1) = zst		! top level (zp)
<       f(6,1)= zsb		! bottom level (zp)
<       f(7,1) = 16.		! number of fields for processor to read
<       f(8,1) = 1.		! dynamo?
<       f(9,1) = 0.		! time-gcm?
<       f(10,1) = 0.		! coupled run?
<       f(11,1) = 'TGCM12  '	! model version
<       f(12,1) = 0.		! secondary history?
<       if (ncalls.eq.1) then
<         write(6,"(/72('-'))")
<         write(6,"('Information written to history summary:')")
<         write(6,"('  f(1) = ',f8.2,' (info is available on ',
<      +    'the summaries for this run)')") f(1,1)
<         write(6,"('  f(2) = ',f8.2,' (number of longitudes)')") f(2,1)
<         write(6,"('  f(3) = ',f8.2,' (number of latitudes)')") f(3,1)
<         write(6,"('  f(4) = ',f8.2,' (number of vertical layers',
<      +    ' (half-levels))')") f(4,1)
<         write(6,"('  f(5) = ',f8.2,' (top level zp)')") f(5,1)
<         write(6,"('  f(6) = ',f8.2,' (bottom level zp)')") f(6,1)
<         write(6,"('  f(7) = ',f8.2,' (number of fields to read from ',
<      +    'history)')") f(7,1)
<         write(6,"('  f(8) = ',f8.2,' (dynamo or non-dynamo)')") f(8,1)
<         write(6,"('  f(9) = ',f8.2,' (if > 0, is timesgcm, otherwise ',
<      +    'is ti(e)gcm)')") f(9,1)
<         write(6,"('  f(10) = ',f7.2,' (if > 0, is coupled run ',
<      +    'tgcm/ccm2)')") f(10,1)
<         write(6,"('  f(11) = ',a,'(model version string)')") f(11,1)
<         write(6,"('  f(12) = ',f8.2,' (if > 0, is secondary hist, ',
<      +    'otherwise is primary hist)')") f(12)
<         write(6,"(72('-')/)")
<       endif
2863c2755
< segldr -f indef -o "$QSUB_REQNAME".out -i /u0/roble/segdir $tigcmdoto object
---
> segldr -f indef -o "$QSUB_REQNAME".out -i ~/segdir $tigcmdoto object
2877,2879c2769,2770
< COUTPUT='ROBLE','RGR95','TE7SSX1','ROBLE','RGR95','TE7SSX2',
< C'ROBLE','RGR95','TE7SSX3','ROBLE','RGR95','TE7SSX4'
<  OUTPUT='FOSTER','P7TST','TE7SSX1'
---
>  OUTPUT='ROBLE','RGR95','TE7SSX1','ROBLE','RGR95','TE7SSX2',
> 	'ROBLE','RGR95','TE7SSX3','ROBLE','RGR95','TE7SSX4'
2882,2885c2773,2775
<  STOP= 0,0,12
< CSTOP= 4,0,0
<  HIST=0,0,12
<  SAVE=0,0,12
---
>  STOP= 4,0,0
>  HIST=0,12,0
>  SAVE=0,12,0
