Changeset 2145 for trunk/NEMO
- Timestamp:
- 2010-10-04T15:36:14+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r1779 r2145 595 595 vn_b (:,:) = vn_b(:,:) * hvr(:,:) 596 596 ENDIF 597 IF( iom_varid( numror, 'sshn_b', ldstop = .FALSE. ) > 0 ) THEN 598 CALL iom_get( numror, jpdom_autoglo, 'sshn_b' , sshn_b (:,:) ) ! filtered extrenal ssh 599 ELSE 600 sshn_b(:,:)=sshb(:,:) ! if not in restart set previous time mean to current baroclinic before value 601 ENDIF 597 602 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 598 CALL iom_rstput( kt, nitrst, numrow, 'un_b' , un_b (:,:) ) ! external velocity issued 599 CALL iom_rstput( kt, nitrst, numrow, 'vn_b' , vn_b (:,:) ) ! from barotropic loop 603 CALL iom_rstput( kt, nitrst, numrow, 'un_b' , un_b (:,:) ) ! external velocity and ssh 604 CALL iom_rstput( kt, nitrst, numrow, 'vn_b' , vn_b (:,:) ) ! issued from barotropic loop 605 CALL iom_rstput( kt, nitrst, numrow, 'sshn_b' , sshn_b(:,:) ) ! 600 606 ENDIF 601 607 !
Note: See TracChangeset
for help on using the changeset viewer.