- Timestamp:
- 2010-10-19T12:15:40+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90
r2097 r2292 87 87 & - sshfoe(jj) ) ) * uemsk(jj,1) 88 88 END DO 89 END DO90 DO ji = nie0p1, nie1p191 89 DO jj = 1, jpj 92 90 sshfoe_b(ji,jj) = sshfoe_b(ji,jj) + sqrt( grav*hur(ji,jj) ) & … … 156 154 & - sshfon(ji) ) ) * vnmsk(ji,1) 157 155 END DO 158 END DO159 DO jj = njn0p1, njn1p1160 156 DO ji = 1, jpi 161 157 sshfon_b(ji,jj) = sshfon_b(ji,jj) + sqrt( grav * hvr(ji,jj) ) &
Note: See TracChangeset
for help on using the changeset viewer.