Changeset 12844 for NEMO/branches/2020/r12581_ticket2418/tests/BENCH
- Timestamp:
- 2020-05-01T12:57:50+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/r12581_ticket2418/tests/BENCH/MY_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/tests/BENCH/MY_SRC/usrdef_hgr.F90
r9762 r12844 24 24 PUBLIC usr_def_hgr ! called by domhgr.F90 25 25 26 !! * Substitutions 27 # include "do_loop_substitute.h90" 26 28 !!---------------------------------------------------------------------- 27 29 !! NEMO/OPA 4.0, NEMO Consortium (2016) … … 72 74 ! 73 75 ! Position coordinates (in grid points) 74 ! ========== 75 DO jj = 1, jpj 76 DO ji = 1, jpi 77 78 zti = REAL( ji - 1 + nimpp - 1, wp ) ; ztj = REAL( jj - 1 + njmpp - 1, wp ) 79 zui = REAL( ji - 1 + nimpp - 1, wp ) + 0.5_wp ; zvj = REAL( jj - 1 + njmpp - 1, wp ) + 0.5_wp 76 ! ========== 77 DO_2D_11_11 78 79 zti = REAL( ji - 1 + nimpp - 1, wp ) ; ztj = REAL( jj - 1 + njmpp - 1, wp ) 80 zui = REAL( ji - 1 + nimpp - 1, wp ) + 0.5_wp ; zvj = REAL( jj - 1 + njmpp - 1, wp ) + 0.5_wp 81 82 plamt(ji,jj) = zti 83 plamu(ji,jj) = zui 84 plamv(ji,jj) = zti 85 plamf(ji,jj) = zui 86 87 pphit(ji,jj) = ztj 88 pphiv(ji,jj) = zvj 89 pphiu(ji,jj) = ztj 90 pphif(ji,jj) = zvj 80 91 81 plamt(ji,jj) = zti 82 plamu(ji,jj) = zui 83 plamv(ji,jj) = zti 84 plamf(ji,jj) = zui 85 86 pphit(ji,jj) = ztj 87 pphiv(ji,jj) = zvj 88 pphiu(ji,jj) = ztj 89 pphif(ji,jj) = zvj 90 91 END DO 92 END DO 92 END_2D 93 93 ! 94 94 ! Horizontal scale factors (in meters) -
NEMO/branches/2020/r12581_ticket2418/tests/BENCH/MY_SRC/usrdef_istate.F90
r11536 r12844 28 28 PUBLIC usr_def_istate ! called by istate.F90 29 29 30 !! * Substitutions 31 # include "do_loop_substitute.h90" 30 32 !!---------------------------------------------------------------------- 31 33 !! NEMO/OPA 4.0 , NEMO Consortium (2016) … … 62 64 ! 63 65 ! define unique value on each point. z2d ranging from 0.05 to -0.05 64 DO jj = 1, jpj 65 DO ji = 1, jpi 66 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + mjg(jj) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 67 ENDDO 68 ENDDO 66 DO_2D_11_11 67 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + (mjg(jj)-1) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 68 END_2D 69 69 ! 70 70 ! sea level: … … 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 ! -
NEMO/branches/2020/r12581_ticket2418/tests/BENCH/MY_SRC/usrdef_sbc.F90
r12377 r12844 34 34 PUBLIC usrdef_sbc_ice_flx ! routine called by sbcice_lim.F90 for ice thermo 35 35 36 !! * Substitutions 37 # include "do_loop_substitute.h90" 36 38 !!---------------------------------------------------------------------- 37 39 !! NEMO/OPA 4.0 , NEMO Consortium (2016) … … 102 104 ! 103 105 ! define unique value on each point. z2d ranging from 0.05 to -0.05 104 DO jj = 1, jpj 105 DO ji = 1, jpi 106 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( nimpp + ji - 1 + ( njmpp + jj - 2 ) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 107 ENDDO 108 ENDDO 106 DO_2D_11_11 107 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( nimpp + ji - 1 + ( njmpp + jj - 2 ) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 108 END_2D 109 109 utau_ice(:,:) = 0.1_wp + z2d(:,:) 110 110 vtau_ice(:,:) = 0.1_wp + z2d(:,:)
Note: See TracChangeset
for help on using the changeset viewer.