| File |
Line number |
Procedure |
Code |
|
./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) |
|
./model/src/external_forcing_surf.F |
137 |
EXTERNAL_FORCING_SURF |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/external_forcing_surf.F |
142 |
EXTERNAL_FORCING_SURF |
& *( 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_psurf.F |
90 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
131 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
139 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
150 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
165 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
191 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
213 |
INTEGR_CONTINUITY |
rStarDhCDt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
151 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
161 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
400 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'dEtaHdt ', dEtaHdt, |
|
./model/src/read_pickup.F |
454 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
|
./model/src/update_etah.F |
144 |
UPDATE_ETAH |
CALL EXCH_XY_RL( dEtaHdt, myThid ) |
|
./model/src/update_etah.F |
75 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/write_pickup.F |
283 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
351 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |
|
./pkg/autodiff/autodiff_restore.F |
121 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_store.F |
127 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/autodiff/ini_autodiff.F |
66 |
INI_AUTODIFF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
80 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(dEtaHdt,tmpFac,2, |