| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/gmredi/gmredi_slope_limit.F |
107 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) + |
|
./pkg/gmredi/gmredi_slope_limit.F |
109 |
GMREDI_SLOPE_LIMIT |
IF ( tmpfld(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
112 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = sqrt( tmpfld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
125 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = -gradSmod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
126 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpfld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
127 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpfld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
65 |
GMREDI_SLOPE_LIMIT |
_RL tmpfld(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
88 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
163 |
INI_MASKS_ETC |
tmpfld(I,J,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
173 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
203 |
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 |
205 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
208 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
45 |
INI_MASKS_ETC |
COMMON / LOCAL_INI_MASKS_ETC / tmpfld |
|
./model/src/ini_masks_etc.F |
46 |
INI_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
161 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'Depth',tmpfld,myThid) |
|
./model/src/write_grid.F |
43 |
WRITE_GRID |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/write_grid.F |
59 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/write_grid.F |
94 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
137 |
INI_MASKS_ETC |
tmpfld(I,J,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
147 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
198 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
200 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
203 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
252 |
INI_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
46 |
INI_MASKS_ETC |
COMMON / LOCAL_INI_MASKS_ETC / tmpfld |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
47 |
INI_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
132 |
INI_MASKS_ETC |
tmpfld(I,J,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
142 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
189 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
194 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
243 |
INI_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
42 |
INI_MASKS_ETC |
COMMON / LOCAL_INI_MASKS_ETC / tmpfld |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/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 |
188 |
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 |
190 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
193 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
281 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
49 |
UPDATE_MASKS_ETC |
COMMON / LOCAL_INI_MASKS_ETC / tmpfld |
|
./model/src/update_masks_etc.F |
50 |
UPDATE_MASKS_ETC |
_RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |