| File |
Line number |
Procedure |
Code |
|
./model/src/ini_masks_etc.F |
149 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
192 |
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 |
194 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
197 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
45 |
INI_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./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 |
100 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
|
./model/src/write_grid.F |
198 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Depth',tmpfld,myThid) |
|
./model/src/write_grid.F |
47 |
WRITE_GRID |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
64 |
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 ) |