Changeset 12794 for NEMO/trunk/tests/BENCH/MY_SRC
- Timestamp:
- 2020-04-22T15:17:52+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/BENCH/MY_SRC/usrdef_istate.F90
r12740 r12794 65 65 ! define unique value on each point. z2d ranging from 0.05 to -0.05 66 66 DO_2D_11_11 67 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + mjg(jj) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) )67 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + (mjg(jj)-1) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 68 68 END_2D 69 69 ! … … 78 78 pts(:,:,jk,jp_sal) = 30._wp + 1._wp * zfact + z2d(:,:) ! 30 to 31 +/- 0.05 psu 79 79 ! velocities: 80 pu(:,:,jk) = z2d(:,:) * 0.1_wp! +/- 0.005 m/s81 pv(:,:,jk) = z2d(:,:) * 0.01_wp 80 pu(:,:,jk) = z2d(:,:) * 0.1_wp * umask(:,:,jk) ! +/- 0.005 m/s 81 pv(:,:,jk) = z2d(:,:) * 0.01_wp * vmask(:,:,jk) ! +/- 0.0005 m/s 82 82 ENDDO 83 83 !
Note: See TracChangeset
for help on using the changeset viewer.