- Timestamp:
- 2020-10-01T12:09:56+02:00 (5 months ago)
hadcv- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/DIA/diaptr.F90
r13519 r13552 703 703 p_fval(ji,jj) = p_fval(ji,jj-1) + pva(ji,jj) * tmask_i(ji,jj) 704 704 END_2D 705 CALL lbc_lnk( 'diaptr', p_fval, 'U', -1.0_wp )706 705 END DO 707 706 !
Note: See TracChangeset
for help on using the changeset viewer.
