| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_get_dynforcing.F |
191 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
199 |
SEAICE_GET_DYNFORCING |
& (uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
210 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
218 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
234 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i ,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
237 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
243 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
246 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1151 |
SEAICE_GROWTH |
tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1180 |
SEAICE_GROWTH |
& ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2 |
|
./pkg/seaice/seaice_growth.F |
761 |
SEAICE_GROWTH |
& (uWind(I,J,bi,bj) |
|
./pkg/cheapaml/CHEAPAML.h |
30 |
NO PROCEDURE |
& uWind, vWind, solar, |
|
./pkg/cheapaml/CHEAPAML.h |
45 |
NO PROCEDURE |
_RL uWind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml.F |
145 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
152 |
CHEAPAML |
I uWind, vWind, |
|
./pkg/cheapaml/cheapaml.F |
183 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
190 |
CHEAPAML |
I uWind, vWind, |
|
./pkg/cheapaml/cheapaml.F |
222 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
229 |
CHEAPAML |
I uWind, vWind, |
|
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
332 |
CHEAPAML |
windSq(i,j) = ( uWind( i ,j,bi,bj)*uWind( i ,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
333 |
CHEAPAML |
& + uWind(i+1,j,bi,bj)*uWind(i+1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
338 |
CHEAPAML |
windSq(i,j) = uWind(i,j,bi,bj)*uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
352 |
CHEAPAML |
I uWind(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
636 |
CHEAPAML |
& *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
647 |
CHEAPAML |
& *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
649 |
CHEAPAML |
& *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/cheapaml.F |
668 |
CHEAPAML |
& *uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
679 |
CHEAPAML |
& *uWind(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
681 |
CHEAPAML |
& *uWind(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
724 |
CHEAPAML |
CALL DIAGNOSTICS_FILL(uWind, 'CH_Uwind',0,1,0,1,1,myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
243 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
249 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL( uWind, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
391 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = bWght*uWind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
433 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
502 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( UWindFile,' ',uWind,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
514 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
534 |
CHEAPAML_FIELDS_LOAD |
CALL EXCH_UV_XY_RL( uWind, vWind, .TRUE., myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
578 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
658 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
681 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
687 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
712 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
741 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
66 |
CHEAPAML_INIT_VARIA |
uWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_seaice.F |
138 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uWind(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
16 |
CHEAPAML_SEAICE |
I swDown, lwDown, uWind, vWind, LVapor, |
|
./pkg/cheapaml/cheapaml_seaice.F |
61 |
CHEAPAML_SEAICE |
_RL uWind(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |