Changeset 14215 for NEMO/trunk/src/OCE/ZDF
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfosm.F90
r14072 r14215 2347 2347 ! calculate horizontal gradients at u & v points 2348 2348 2349 DO_2D( 0, 0, 1, 0 )2349 DO_2D( 1, 0, 0, 0 ) 2350 2350 zdtdx(ji,jj) = ( ztm(ji+1,jj) - ztm( ji,jj) ) * umask(ji,jj,1) / e1u(ji,jj) 2351 2351 zdsdx(ji,jj) = ( zsm(ji+1,jj) - zsm( ji,jj) ) * umask(ji,jj,1) / e1u(ji,jj) … … 2355 2355 END_2D 2356 2356 2357 DO_2D( 1, 0, 0, 0 )2357 DO_2D( 0, 0, 1, 0 ) 2358 2358 zdtdy(ji,jj) = ( ztm(ji,jj+1) - ztm( ji,jj) ) * vmask(ji,jj,1) / e1v(ji,jj) 2359 2359 zdsdy(ji,jj) = ( zsm(ji,jj+1) - zsm( ji,jj) ) * vmask(ji,jj,1) / e1v(ji,jj) … … 2366 2366 CALL eos_rab(ztsm_midv, zmld_midv, zabv, Kmm) 2367 2367 2368 DO_2D( 0, 0, 1, 0 )2368 DO_2D( 1, 0, 0, 0 ) 2369 2369 dbdx_mle(ji,jj) = grav*(zdtdx(ji,jj)*zabu(ji,jj,jp_tem) - zdsdx(ji,jj)*zabu(ji,jj,jp_sal)) 2370 2370 END_2D 2371 DO_2D( 1, 0, 0, 0 )2371 DO_2D( 0, 0, 1, 0 ) 2372 2372 dbdy_mle(ji,jj) = grav*(zdtdy(ji,jj)*zabv(ji,jj,jp_tem) - zdsdy(ji,jj)*zabv(ji,jj,jp_sal)) 2373 2373 END_2D
Note: See TracChangeset
for help on using the changeset viewer.