| File |
Line number |
Procedure |
Code |
|
./model/src/ini_masks_etc.F |
177 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
187 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
220 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
222 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
225 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
43 |
INI_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/update_masks_etc.F |
177 |
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 |
179 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
182 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
268 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
52 |
UPDATE_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
184 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Depth',tmpfld,myThid) |
|
./model/src/write_grid.F |
46 |
WRITE_GRID |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
63 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/write_grid.F |
97 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
26 |
SET_RUNOFFMAP |
Real*8 tmpfld(3,ROsize), rAc(Nx_ocn*Ny_ocn) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
68 |
SET_RUNOFFMAP |
tmpfld(1,n)=r8seg(1) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
69 |
SET_RUNOFFMAP |
tmpfld(2,n)=r8seg(2) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
70 |
SET_RUNOFFMAP |
tmpfld(3,n)=r8seg(3) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
74 |
SET_RUNOFFMAP |
CALL MDS_BYTESWAPR8( 3*nROmap, tmpfld ) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
84 |
SET_RUNOFFMAP |
ija=NINT(tmpfld(1,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
85 |
SET_RUNOFFMAP |
ijo=NINT(tmpfld(2,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
95 |
SET_RUNOFFMAP |
arROmap(n)=tmpfld(3,n)/rAc(ijo) |