Changeset 812 for trunk/NEMO
- Timestamp:
- 2008-02-07T18:38:09+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/flx_core.h90
r809 r812 564 564 565 565 ! d qla_ice/ d zsss 566 dqla_ice(:,:) = -Ls*Cice*11637800 566 dqla_ice(:,:) = -Ls*Cice*11637800 & 567 567 * (-5897.8)/(zsss(:,:)*zsss(:,:)) & 568 568 * exp(-5897.8/zsss(:,:)) * dUnormt(:,:)
Note: See TracChangeset
for help on using the changeset viewer.