Changeset 2269
- Timestamp:
- 2010-10-14T18:08:32+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90
r2224 r2269 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.