- Timestamp:
- 2011-01-20T20:07:44+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90
r2528 r2565 438 438 END IF 439 439 440 IF( lp_obc_west ) THEN ! ... West open boundary lateral surface441 DO ji = niw0, niw1442 DO jj = 1, jpj443 obcsurftot = obcsurftot+hu(ji,jj)*e2u(ji,jj)*uwmsk(jj,1) * MAX(obctmsk(ji,jj),obctmsk(ji+1,jj) )444 END DO445 END DO446 END IF447 448 440 IF( lp_obc_north ) THEN ! ... North open boundary lateral surface 449 441 DO jj = njn0, njn1
Note: See TracChangeset
for help on using the changeset viewer.