| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_mapfields.F |
140 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
141 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
150 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
151 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
174 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
175 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
184 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
185 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_readparms.F |
327 |
EXF_READPARMS |
windstressmax = 2.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
73 |
EXF_READPARMS |
& windstressmax, repeatPeriod, exf_albedo, |
|
./pkg/exf/exf_param.h |
309 |
NO PROCEDURE |
& year2sec, windstressmax, |
|
./pkg/exf/exf_param.h |
52 |
NO PROCEDURE |
_RL windstressmax |