| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_implicit_r.F |
394 |
GAD_IMPLICIT_R |
& + dBHybSigF(k)*dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/inc/SURFACE.h |
44 |
NO PROCEDURE |
COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR |
|
./model/inc/SURFACE.h |
46 |
NO PROCEDURE |
_RL dEtaHdt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
135 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
140 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/freesurf_rescale_g.F |
57 |
FREESURF_RESCALE_G |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/ini_nlfs_vars.F |
64 |
INI_NLFS_VARS |
dEtaHdt(i,j,bi,bj) = 0. |
|
./model/src/ini_psurf.F |
92 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
144 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
152 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
163 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
178 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
191 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
216 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
242 |
INTEGR_CONTINUITY |
rStarDhDt(i,j) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
321 |
INTEGR_CONTINUITY |
CALL EXCH_XY_RL( dEtaHdt, myThid ) |
|
./model/src/integrate_for_w.F |
157 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
167 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/read_pickup.F |
232 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
426 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'dEtaHdt ', dEtaHdt, |
|
./model/src/read_pickup.F |
486 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
|
./model/src/thermodynamics.F |
219 |
THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/update_etah.F |
73 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/write_pickup.F |
311 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
386 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |
|
./pkg/autodiff/autodiff_init_varia.F |
69 |
AUTODIFF_INIT_VARIA |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_restore.F |
124 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_store.F |
130 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
86 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( dEtaHdt, oneRL, 2, |