Changeset 558 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2006-10-27T17:17:48+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r553 r558 517 517 IF( neuler == 0 ) sshb(:,:) = sshn(:,:) 518 518 ELSE 519 sshb(:,:) = 0.e0 520 sshn(:,:) = 0.e0 519 IF( nn_rstssh == 1 ) THEN 520 sshb(:,:) = 0.e0 521 sshn(:,:) = 0.e0 522 ENDIF 521 523 ENDIF 522 524 IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.