Symbol Description Uses
theta 335



File Line number Procedure Code
./pkg/diagnostics/diagnostics_fill_state.F 446 DIAGNOSTICS_FILL_STATE
     &                  *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 463 DIAGNOSTICS_FILL_STATE
     &                  *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 481 DIAGNOSTICS_FILL_STATE
     &                  *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/cfc/cfc12_surfforcing.F 54 CFC12_SURFFORCING
     &          + sca_12_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 55 CFC12_SURFFORCING
     &          + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)  
./pkg/cfc/cfc12_surfforcing.F 56 CFC12_SURFFORCING
     &          + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) 
./pkg/cfc/cfc12_surfforcing.F 57 CFC12_SURFFORCING
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 59 CFC12_SURFFORCING
              ttemp=( theta(i,j,k,bi,bj) + 273.16)* 0.01
./pkg/cfc/cfc11_surfforcing.F 54 CFC11_SURFFORCING
     &          + sca_11_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 55 CFC11_SURFFORCING
     &          + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)  
./pkg/cfc/cfc11_surfforcing.F 56 CFC11_SURFFORCING
     &          + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) 
./pkg/cfc/cfc11_surfforcing.F 57 CFC11_SURFFORCING
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 59 CFC11_SURFFORCING
              ttemp=( theta(i,j,k,bi,bj) + 273.16)* 0.01
./pkg/sbo/sbo_calc.F 221 SBO_CALC
                        t = theta(I,J,1,bi,bj)
./pkg/sbo/sbo_calc.F 234 SBO_CALC
                        t = theta(I,J,K,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 49 OCN_STORE_MY_DATA
          SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 184 STEP_FIZHI_CORR
        thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 162 FIZHI_INIT_VARS
        call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,
./pkg/cost/cost_accumulate_mean.F 50 COST_ACCUMULATE_MEAN
     &                                    + theta(i,j,k,bi,bj)
./pkg/cost/cost_test.F 72 COST_TEST
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F 75 COST_TEST
     &              theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_state_final.F 34 COST_STATE_FINAL
           objf_state_final(i,j,bi,bj,1) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 111 CTRL_MAP_INI
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 113 CTRL_MAP_INI
                if(theta(i,j,k,bi,bj).lt.-2.0) 
./pkg/ctrl/ctrl_map_ini.F 114 CTRL_MAP_INI
     &               theta(i,j,k,bi,bj)= -2.0 
./pkg/ctrl/ctrl_map_ini.F 191 CTRL_MAP_INI
              theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) 
./pkg/ctrl/ctrl_map_ini.F 492 CTRL_MAP_INI
      _EXCH_XYZ_R8( theta, mythid )
./model/src/checkpoint.F 116 READ_CHECKPOINT
        CALL READ_REC_XYZ_RL( 'theta',  theta, 1,myIter,myThid)
./model/src/checkpoint.F 150 READ_CHECKPOINT
          CALL MDSREADFIELD(fn,prec,'RL',Nr,theta,  7,myThid)
./model/src/checkpoint.F 180 READ_CHECKPOINT
          CALL MDSREADFIELD(fn,prec,'RL',Nr,theta,nj+1,myThid)
./model/src/checkpoint.F 197 READ_CHECKPOINT
          CALL MDSREADFIELD(fn,prec,'RL',Nr,theta,  5,myThid)
./model/src/checkpoint.F 239 READ_CHECKPOINT
        CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid)
./model/src/checkpoint.F 277 READ_CHECKPOINT
      _EXCH_XYZ_R8(theta , myThid )
./model/src/checkpoint.F 503 WRITE_CHECKPOINT_NOW
        CALL WRITE_REC_XYZ_RL( 'theta',  theta, 1,myIter,myThid)
./model/src/checkpoint.F 538 WRITE_CHECKPOINT_NOW
        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,theta, 7,myIter,myThid)
./model/src/checkpoint.F 554 WRITE_CHECKPOINT_NOW
        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,theta,5,myIter,myThid)
./model/src/checkpoint.F 607 WRITE_CHECKPOINT_NOW
        CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid)
./pkg/ctrl/ctrl_map_ini_ecco.F 151 CTRL_MAP_INI_ECCO
                 theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini_ecco.F 153 CTRL_MAP_INI_ECCO
                if(theta(i,j,k,bi,bj).lt.-2.0) 
./pkg/ctrl/ctrl_map_ini_ecco.F 154 CTRL_MAP_INI_ECCO
     &               theta(i,j,k,bi,bj)= -2.0  
./pkg/ctrl/ctrl_map_ini_ecco.F 375 CTRL_MAP_INI_ECCO
      _EXCH_XYZ_R8( theta, mythid )
./model/src/write_state.F 103 WRITE_STATE
          CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid)
./model/src/write_state.F 126 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid)
./model/src/write_state.F 164 WRITE_STATE
          CALL MNC_CW_RL_W('D','state',0,0,'Temp', theta, myThid)
./pkg/exf/exf_bulkformulae.F 255 EXF_BULKFORMULAE
     &              ((theta(i,j,k,bi,bj)+cen2kel)**4)
./pkg/exf/exf_bulkformulae.F 259 EXF_BULKFORMULAE
     &              ((theta(i,j,k,bi,bj)+cen2kel)**4)
./pkg/exf/exf_bulkformulae.F 345 EXF_BULKFORMULAE
                ssttmp = theta(i,j,k,bi,bj)
./model/src/the_correction_step.F 101 THE_CORRECTION_STEP
     U           theta,gT,
./model/src/convect.F 69 CONVECT
         tMix(i,j) = theta(i,j,k-1,bi,bj)
./model/src/convect.F 71 CONVECT
     &              +theta(i,j,k,bi,bj)
./model/src/convect.F 88 CONVECT
          theta(i,j,k-1,bi,bj) = tMix(i,j)/dSum(i,j)
./model/src/convect.F 89 CONVECT
          theta(i,j,k  ,bi,bj) = tMix(i,j)/dSum(i,j)
./pkg/offline/offline_fields_load.F 351 OFFLINE_FIELDS_LOAD
          theta(i,j,k,bi,bj)    = bWght*tave0(i,j,k,bi,bj)
./model/src/diags_oceanic_surf_flux.F 88 DIAGS_OCEANIC_SURF_FLUX
     &                         *theta(i,j,ks,bi,bj)*HeatCapacity_Cp
./pkg/seaice/groatb.F 104 GROATB
          TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00
./pkg/seaice/seaice_model.F 146 SEAICE_MODEL
      _EXCH_XYZ_R8(theta , myThid )
./model/src/freeze_surface.F 58 FREEZE_SURFACE
          IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/freeze_surface.F 60 FREEZE_SURFACE
     &            ( Tfreezing - theta(i,j,k,bi,bj) )
./model/src/freeze_surface.F 62 FREEZE_SURFACE
             theta(i,j,k,bi,bj) = Tfreezing
./pkg/seaice/growth.F 122 GROWTH
          YNEG(I,J,bi,bj)=(theta(I,J,1,bi,bj)-TBC)*dRf(1)/72.0764 _d 0
./pkg/seaice/growth.F 316 GROWTH
     &            HEFF(i,j,1,bi,bj),theta(I,J,1,bi,bj),yneg(I,J,bi,bj)
./model/src/calc_gt.F 101 CALC_GT
     I           diffKhT, diffK4T, KappaRT, theta,
./model/src/convective_adjustment.F 120 CONVECTIVE_ADJUSTMENT
     I           theta,salt,
./model/src/convective_adjustment.F 131 CONVECTIVE_ADJUSTMENT
     I           theta,salt,
./model/src/convective_adjustment.F 154 CONVECTIVE_ADJUSTMENT
     U                              theta,
./pkg/pp81/pp81_ri_number.F 102 PP81_RI_NUMBER
     I     theta, salt,
./pkg/pp81/pp81_ri_number.F 97 PP81_RI_NUMBER
     I     theta, salt,
./pkg/monitor/monitor.F 117 MONITOR
        CALL MON_WRITESTATS_RL(Nr,theta,'_theta',
./pkg/monitor/mon_surfcor.F 123 MON_SURFCOR
     &           *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0
./pkg/monitor/mon_surfcor.F 144 MON_SURFCOR
              tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 82 MON_SURFCOR
     &          rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj)
./pkg/monitor/mon_solution.F 45 MON_SOLUTION
     I                Nr, theta, maskC,hFacC,rA,drF,