| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
140 |
BULKF_FIELDS_LOAD |
CALL LEF_ZERO( uwind0,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
236 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( UWindFile,uwind0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
332 |
BULKF_FIELDS_LOAD |
_EXCH_XY_R4(uwind0, myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
386 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
80 |
BULKF_FIELDS_LOAD |
& flw0, uwind0, vwind0, runoff0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
99 |
BULKF_FIELDS_LOAD |
_RS uwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_init.F |
47 |
EXF_INIT |
& uwindconst, uwind, uwind0, uwind1, mythid ) |
|
./pkg/exf/exf_getffields.F |
108 |
EXF_GETFFIELDS |
& uwind, uwind0, uwind1, uwindmask, |
|
./pkg/exf/exf_getffields.F |
94 |
EXF_GETFFIELDS |
& exf_inscal_uwind, uwind, uwind0, uwind1, uwindmask, |
|
./pkg/exf/exf_fields.h |
152 |
NO PROCEDURE |
common /exfl_uwind_r/ uwind0, uwind1 |
|
./pkg/exf/exf_fields.h |
153 |
NO PROCEDURE |
_RL uwind0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/seaice/SEAICE_FFIELDS.h |
85 |
NO PROCEDURE |
COMMON /SEAICE_TDFIELDS/ uwind0, uwind1, vwind0, vwind1, |
|
./pkg/seaice/SEAICE_FFIELDS.h |
89 |
NO PROCEDURE |
_RS uwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_get_forcing.F |
141 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
211 |
SEAICE_GET_FORCING |
CALL EXCH_UV_XY_RS(uwind0, vwind0, .TRUE., myThid) |
|
./pkg/seaice/seaice_get_forcing.F |
247 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
263 |
SEAICE_GET_FORCING |
CALL EXCH_UV_XY_RS(uwind0, vwind0, .TRUE., myThid) |
|
./pkg/seaice/seaice_get_forcing.F |
419 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = bWghtWind * uwind0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
432 |
SEAICE_GET_FORCING |
uwind(i,j,bi,bj) = aWghtWind * uwind0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
98 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( uwind0 , initValue, myThid ) |