Changeset 2373 for branches/nemo_v3_3_beta
- Timestamp:
- 2010-11-10T22:45:07+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90
r2287 r2373 86 86 & * ( ( sshn_e(ji,jj) + sshn_e(ji+1,jj) ) * 0.5 & 87 87 & - sshfoe(jj) ) ) * uemsk(jj,1) 88 END DO89 DO jj = 1, jpj90 88 sshfoe_b(ji,jj) = sshfoe_b(ji,jj) + sqrt( grav*hur(ji,jj) ) & 91 89 & * ( ( sshn_e(ji,jj) + sshn_e(ji+1,jj) ) * 0.5 & 92 & - sshfoe(jj) ) * uemsk(jj,1) 90 & - sshfoe(jj) ) ) * uemsk(jj,1) 91 END DO 92 END DO 93 DO ji = nie0p1, nie1p1 94 DO jj = 1, jpj 93 95 ssha_e(ji,jj) = ssha_e(ji,jj) * ( 1. - temsk(jj,1) ) & 94 96 & + temsk(jj,1) * sshfoe(jj) … … 153 155 & * ( ( sshn_e(ji,jj) + sshn_e(ji,jj+1) ) * 0.5 & 154 156 & - sshfon(ji) ) ) * vnmsk(ji,1) 155 END DO156 DO ji = 1, jpi157 157 sshfon_b(ji,jj) = sshfon_b(ji,jj) + sqrt( grav * hvr(ji,jj) ) & 158 158 & * ( ( sshn_e(ji,jj) + sshn_e(ji,jj+1) ) * 0.5 & 159 159 & - sshfon(ji) ) * vnmsk(ji,1) 160 END DO 161 END DO 162 DO jj = njn0p1, njn1p1 163 DO ji = 1, jpi 160 164 ssha_e(ji,jj) = ssha_e(ji,jj) * ( 1. - tnmsk(ji,1) ) & 161 165 & + sshfon(ji) * tnmsk(ji,1)
Note: See TracChangeset
for help on using the changeset viewer.