| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
261 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
264 |
ECCO_PHYS |
tmpfld=theta(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
268 |
ECCO_PHYS |
tmpfld=salt(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./pkg/ecco/ecco_phys.F |
280 |
ECCO_PHYS |
& +tmpmsk*tmpfld*tmpvol |
|
./pkg/ecco/ecco_phys.F |
287 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
290 |
ECCO_PHYS |
tmpfld=m_eta(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
296 |
ECCO_PHYS |
& +tmpmsk*tmpfld*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
47 |
ECCO_PHYS |
_RL tmpfld, tmpvol, tmpmsk, tmpmsk2, tmpmskW, tmpmskS |
|
./model/src/update_masks_etc.F |
189 |
UPDATE_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
191 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
194 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
269 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
71 |
UPDATE_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
103 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
|
./model/src/write_grid.F |
204 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Depth',tmpfld,myThid) |
|
./model/src/write_grid.F |
50 |
WRITE_GRID |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
67 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
109 |
SET_RUNOFFMAP |
ija = NINT(tmpfld(1,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
110 |
SET_RUNOFFMAP |
ijo = NINT(tmpfld(2,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
122 |
SET_RUNOFFMAP |
arROmap(n) = tmpfld(3,n)/rAc(ijo) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
35 |
SET_RUNOFFMAP |
Real*8 tmpfld(3,ROsize), rAc(Nx_ocn*Ny_ocn) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
80 |
SET_RUNOFFMAP |
tmpfld(1,n) = r8seg(1) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
81 |
SET_RUNOFFMAP |
tmpfld(2,n) = r8seg(2) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
82 |
SET_RUNOFFMAP |
tmpfld(3,n) = r8seg(3) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
86 |
SET_RUNOFFMAP |
CALL MDS_BYTESWAPR8( 3*nROmap, tmpfld ) |