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, |