Changeset 12960 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/BENCH/MY_SRC/usrdef_istate.F90
- Timestamp:
- 2020-05-22T09:05:34+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/BENCH/MY_SRC/usrdef_istate.F90
r12939 r12960 70 70 ! Once we decide to forget trunk compatibility, we must simply define z2d as: 71 71 !!$ DO_2D_00_00 72 !!$ z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig0 (ji) + (mjg0(jj)-1) * Ni0glo, wp ) / REAL( Ni0glo * Nj0glo, wp ) )72 !!$ z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig0_oldcmp(ji) + (mjg0_oldcmp(jj)-1) * Ni0glo, wp ) / REAL( Ni0glo * Nj0glo, wp ) ) 73 73 !!$ END_2D 74 74 igloi = Ni0glo + 2 * COUNT( (/ jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7 /) ) 75 75 igloj = Nj0glo + 2 * COUNT( (/ jperio == 2 .OR. jperio == 7 /) ) + 1 * COUNT( (/ jperio >= 4 .AND. jperio <= 6 /) ) 76 76 DO_2D_00_00 77 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig0 (ji) + (mjg0(jj)-1) * igloi, wp ) / REAL( igloi * igloj, wp ) )77 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig0_oldcmp(ji) + (mjg0_oldcmp(jj)-1) * igloi, wp ) / REAL( igloi * igloj, wp ) ) 78 78 END_2D 79 79 !
Note: See TracChangeset
for help on using the changeset viewer.