Changeset 315 for trunk/NEMO/OPA_SRC/SOL
- Timestamp:
- 2005-09-30T13:02:46+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/solmat.F90
r312 r315 233 233 gcp(:,:,3) = gcp(:,:,3) * gcdprc(:,:) 234 234 gcp(:,:,4) = gcp(:,:,4) * gcdprc(:,:) 235 IF( ( nsolv == 2 ) .OR. ( nsolv == 2) ) gccd(:,:) = sor * gcp(:,:,2)235 IF( ( nsolv == 2 ) .OR. ( nsolv == 4 ) ) gccd(:,:) = sor * gcp(:,:,2) 236 236 237 237 IF( nsolv == 4 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.