| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
136 |
OCN_APPLY_IMPORT |
wind(i,j,bi,bj)= surfWSpeed(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
209 |
OCN_APPLY_IMPORT |
IF ( useImportWSpd ) _EXCH_XY_RL(wind , myThid ) |
|
./pkg/atm2d/put_ocnvars.F |
100 |
PUT_OCNVARS |
wind(i,j,1,1)= pass_wspeed(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
102 |
PUT_OCNVARS |
_EXCH_XY_RL(wind , myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
151 |
CFC_FIELDS_LOAD |
pisvel(i,j,bi,bj)=(0.31 _d 0*wind**2)/3.6 _d 5 |
|
./pkg/dic/DIC_VARS.h |
13 |
NO PROCEDURE |
& wind, FIce, Silica, Kwexch_Pre |
|
./pkg/dic/DIC_VARS.h |
19 |
NO PROCEDURE |
_RL wind(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/dic/dic_surfforcing.F |
121 |
DIC_SURFFORCING |
pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5 |