Changeset 1211 for branches/dev_003_CPL
- Timestamp:
- 2008-10-02T15:34:43+02:00 (16 years ago)
- Location:
- branches/dev_003_CPL/NEMO/OPA_SRC
- Files:
-
- 2 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 -
branches/dev_003_CPL/NEMO/OPA_SRC/restart.F90
r990 r1211 224 224 ENDIF 225 225 226 CALL iom_open( 'restart ', numror, kiolib = jprstlib )226 CALL iom_open( 'restartopa', numror, kiolib = jprstlib ) 227 227 228 228 ! Calendar informations
Note: See TracChangeset
for help on using the changeset viewer.