Changeset 991 for branches/dev_003_CPL/NEMO/LIM_SRC_3/limistate.F90
- Timestamp:
- 2008-05-23T17:55:55+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_003_CPL/NEMO/LIM_SRC_3/limistate.F90
r990 r991 469 469 stress2_i(:,:) = 0.0 470 470 stress12_i(:,:) = 0.0 471 472 # if defined key_coupled473 albege(:,:) = 0.8 * tms(:,:)474 # endif475 471 476 472 !--------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.