| 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/thsice/thsice_write_pickup.F |
65 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
87 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
130 |
THSICE_STEP_FWD |
I hIce, hSnow, Tsf, snowAge(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
228 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = thSIce_deltaT |
|
./pkg/thsice/thsice_step_fwd.F |
229 |
THSICE_STEP_FWD |
& + snowAge(i,j,bi,bj)*ageFac |
|
./pkg/thsice/thsice_step_fwd.F |
231 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
339 |
THSICE_STEP_FWD |
IF ( hSnow .EQ. 0. _d 0 ) snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
344 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/THSICE_VARS.h |
25 |
NO PROCEDURE |
& Qice1, Qice2, snowAge |
|
./pkg/thsice/THSICE_VARS.h |
35 |
NO PROCEDURE |
_RL snowAge(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
52 |
THSICE_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(snowAge,'SIsnwAge',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
110 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceSnowA_InitFile,snowAge,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
130 |
THSICE_INI_VARS |
_EXCH_XY_R8(snowAge,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_read_pickup.F |
51 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,snowAge, 9,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
72 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_output.F |
324 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowAge.',suff,snowAge, |
|
./pkg/thsice/thsice_output.F |
354 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',mncf,0,0,'snowAge', snowAge, myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
106 |
AIM_SICE2AIM |
I Tsrf(i,j,bi,bj), snowAge(i,j,bi,bj), |