Changeset 1169 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-08-11T12:26:34+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcflx.F90
r1156 r1169 154 154 END DO 155 155 156 ! Initialization of emps (when no ice model) 157 emps(:,:) = emp (:,:) 158 156 159 ! Estimation of wind speed as a function of wind stress ( |tau|=rhoa*Cd*|U|^2 ) 157 160 zcoef = 0.5 / ( rhoa * cdrag )
Note: See TracChangeset
for help on using the changeset viewer.