| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_forcing.F |
120 |
BULKF_FORCING |
I Tsrf(i,j,bi,bj), snowAge(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
82 |
BULKF_FORCING |
tmp=Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
82 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_impl_temp.F |
111 |
THSICE_IMPL_TEMP |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_impl_temp.F |
93 |
THSICE_IMPL_TEMP |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_ave.F |
65 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tsrf_Ave, Tsrf, iceMask, |
|
./pkg/thsice/thsice_monitor.F |
158 |
THSICE_MONITOR |
I Tsrf, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_step_fwd.F |
120 |
THSICE_STEP_FWD |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
148 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
200 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
Tsf = Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
259 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) =Tsf |
|
./pkg/thsice/thsice_step_fwd.F |
318 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = TFrzOce |
|
./pkg/thsice/thsice_step_fwd.F |
345 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = oceTs |
|
./pkg/thsice/THSICE_VARS.h |
24 |
NO PROCEDURE |
& Tsrf, Tice1, Tice2, |
|
./pkg/thsice/THSICE_VARS.h |
30 |
NO PROCEDURE |
_RL Tsrf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
63 |
THSICE_DIAGNOSTICS_FILL |
I Tsrf, iceMask,tmpFac,1,'SI_Tsrf ', |
|
./pkg/thsice/thsice_ini_vars.F |
117 |
THSICE_INI_VARS |
CALL READ_REC_XY_RS(thSIceTsurf_InitFile,Tsrf,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
125 |
THSICE_INI_VARS |
_EXCH_XY_R8(Tsrf, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
56 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_read_pickup.F |
46 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Tsrf, 4,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
67 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_output.F |
312 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tsrf.', suff,Tsrf, |
|
./pkg/thsice/thsice_output.F |
349 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',mncf,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
106 |
AIM_SICE2AIM |
I Tsrf(i,j,bi,bj), snowAge(i,j,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
83 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
91 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
92 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj) |