- Timestamp:
- 2017-03-17T08:46:30+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_lim2_update.F90
r7256 r7806 177 177 tabres = zrhox * tabres 178 178 ELSE 179 DO jj= j1,j2180 DO ji= i1,i2179 DO jj=MAX(j1,2),j2 180 DO ji=MAX(i1,2),i2 181 181 v_ice(ji,jj) = tabres(ji,jj) / (e1f(ji-1,jj-1)) 182 182 v_ice(ji,jj) = v_ice(ji,jj) * tmu(ji,jj) … … 202 202 IF( before ) THEN 203 203 zrhoy = Agrif_Rhoy() 204 DO jj= MAX(j1,2),j2205 DO ji= MAX(i1,2),i2204 DO jj=j1,j2 205 DO ji=i1,i2 206 206 tabres(ji,jj) = e2u(ji,jj) * u_ice(ji,jj) 207 207 END DO … … 209 209 tabres = zrhoy * tabres 210 210 ELSE 211 DO jj= MAX(j1,2),j2212 DO ji= MAX(i1,2),i2211 DO jj=j1,j2 212 DO ji=i1,i2 213 213 u_ice(ji,jj) = tabres(ji,jj) / (e2u(ji,jj)) 214 214 u_ice(ji,jj) = u_ice(ji,jj) * tmu(ji,jj) … … 235 235 IF( before ) THEN 236 236 zrhox = Agrif_Rhox() 237 DO jj= MAX(j1,2),j2238 DO ji= MAX(i1,2),i2237 DO jj=j1,j2 238 DO ji=i1,i2 239 239 tabres(ji,jj) = e1v(ji,jj) * v_ice(ji,jj) 240 240 END DO
Note: See TracChangeset
for help on using the changeset viewer.