BLOCK DATA RUNTIME
      implicit none
C     ****
C     ****     THIS BLOCK DATA CARRIES RAY'S RUN-TIME MODS
C     ****
      include "params.h"
      include "strt.h"
      include "cons.h"
      real :: ttbound,avto,hor,nob
      COMMON/RUNTIM/TTBOUND,NOB(ZJMX),AVTO,HOR(ZJMX)
      real :: rmn4s,rmn2d,rmno,brn2d,cee
      COMMON/MASS/RMN4S,RMN2D,RMNO,BRN2D,CEE
C     ****
C     ****     VALUE OF T AT LOWER BOUNDARY
C     ****
      DATA TTBOUND/181./
C     ****
C     ****     SET BRN2D FOR CMPN2D
C     ****
      DATA BRN2D/0.6/
C     ****
C     ****     N(NO) AT LOWER BOUNDARY, A FUNCTION OF LATITUDE
C     ****       -- 36 VALUES
C     ****
      DATA NOB/ZJMX*4.E6/
C     ****
C     ****     SET AVTO
C     ****
! 5/7/98: Changed AVTO from 1.e-12 to 3.e-12, according to 
!         ~roble/tgcm/tgcm12/modsrc/runmds.f:
!     DATA AVTO/1.0E-12/
!     DATA AVTO/3.0E-12/
      DATA AVTO/4.0E-12/
C     ****
C     ****     SET ARRAY GIVING HORIZONTAL VARIATION OF EDDY DIFFUSION
C     ****     AND EDDY THERMAL CONDUCTIVITY.  IF VALUES ARE UNITY,
C     ****     VALUE OF KE AT BOTTOM OF MODEL IS 5.E-6
C     ****
C     DATA HOR/36*.5/
      DATA HOR/36*.25/
c
c Tgcm version name (in strt.h):
c
      data tgcm_version /'TGCM13mt'/
!
      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     '/
      END