| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
45 |
NO PROCEDURE |
COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR |
|
./model/inc/SURFACE.h |
47 |
NO PROCEDURE |
_RL dEtaHdt(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
77 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL(dEtaHdt,tmpFac,2, |
|
./pkg/autodiff/ini_autodiff.F |
64 |
INI_AUTODIFF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
122 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
131 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
138 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
163 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
183 |
INTEGR_CONTINUITY |
& dEtaHdt(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/update_etah.F |
75 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
92 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/checkpoint.F |
211 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,dEtaHdt,nj*Nr+2,myThid) |
|
./model/src/checkpoint.F |
261 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
|
./model/src/checkpoint.F |
552 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,dEtaHdt,nj*Nr+2, |
|
./model/src/checkpoint.F |
618 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |