Changeset 1169


Ignore:
Timestamp:
2008-08-11T12:26:34+02:00 (12 years ago)
Author:
rblod
Message:

Initialization of emps, see ticket #236

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcflx.F90

    r1156 r1169  
    154154      END DO 
    155155 
     156      ! Initialization of emps (when no ice model) 
     157      emps(:,:) = emp (:,:)  
     158 
    156159      ! Estimation of wind speed as a function of wind stress ( |tau|=rhoa*Cd*|U|^2 ) 
    157160      zcoef = 0.5 / ( rhoa * cdrag )  
Note: See TracChangeset for help on using the changeset viewer.