Changeset 1211 for branches/dev_003_CPL/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2008-10-02T15:34:43+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_003_CPL/NEMO/OPA_SRC/SBC/sbccpl.F90
r1166 r1211 488 488 489 489 ztmp(:,:) = tn_ice(:,:) * freeze(:,:) + ( tn(:,:,1) + rt0 ) * ( 1. - freeze(:,:) ) 490 qns(:,:) = qns_mix(:,:) + dqns_ice(:,:) * ( tn(:,: ) + rt0 - ztmp(:,:) )490 qns(:,:) = qns_mix(:,:) + dqns_ice(:,:) * ( tn(:,:,1) + rt0 - ztmp(:,:) ) 491 491 qns_ice(:,:) = qns_mix(:,:) + dqns_ice(:,:) * ( tn_ice(:,:) - ztmp(:,:) ) 492 492 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.