- Timestamp:
- 2020-05-22T09:05:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC/domvvl.F90
r12939 r12960 450 450 ELSE 451 451 ijk_max = MAXLOC( ze3t(:,:,:) ) 452 ijk_max(1) = mig0 (ijk_max(1))453 ijk_max(2) = mjg0 (ijk_max(2))452 ijk_max(1) = mig0_oldcmp(ijk_max(1)) 453 ijk_max(2) = mjg0_oldcmp(ijk_max(2)) 454 454 ijk_min = MINLOC( ze3t(:,:,:) ) 455 ijk_min(1) = mig0 (ijk_min(1))456 ijk_min(2) = mjg0 (ijk_min(2))455 ijk_min(1) = mig0_oldcmp(ijk_min(1)) 456 ijk_min(2) = mjg0_oldcmp(ijk_min(2)) 457 457 ENDIF 458 458 IF (lwp) THEN -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/CANAL/MY_SRC/usrdef_hgr.F90
r12939 r12960 91 91 92 92 DO_2D_11_11 93 zti = REAL( mig0 (ji) - 1, wp ) ! start at i=0 in the global grid without halos94 ztj = REAL( mjg0 (jj) - 1, wp ) ! start at j=0 in the global grid without halos93 zti = REAL( mig0_oldcmp(ji) - 1, wp ) ! start at i=0 in the global grid without halos 94 ztj = REAL( mjg0_oldcmp(jj) - 1, wp ) ! start at j=0 in the global grid without halos 95 95 96 96 plamt(ji,jj) = zlam0 + rn_dx * zti
Note: See TracChangeset
for help on using the changeset viewer.