- Timestamp:
- 2020-10-01T12:09:56+02:00 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/TRA/traldf_triad.F90
r13539 r13552 13 13 USE oce ! ocean dynamics and active tracers 14 14 USE dom_oce ! ocean space and time domain 15 ! TEMP: This change not necessary if lbc_lnk is removed from ldf_eiv_dia andXIOS has subdomain support15 ! TEMP: This change not necessary if XIOS has subdomain support 16 16 USE domain, ONLY : dom_tile 17 17 USE domutl, ONLY : is_tile … … 122 122 REAL(wp), DIMENSION(ST_2D(nn_hls) ) :: z2d ! 2D workspace 123 123 REAL(wp), DIMENSION(ST_2D(nn_hls) ,jpk) :: zdit, zdjt, zftu, zftv, ztfw ! 3D - 124 ! TEMP: This can be ST_2D(nn_hls) if lbc_lnk is removed from ldf_eiv_dia andXIOS has subdomain support124 ! TEMP: This can be ST_2D(nn_hls) if XIOS has subdomain support 125 125 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zpsi_uw, zpsi_vw 126 126 !!---------------------------------------------------------------------- … … 215 215 ENDIF 216 216 ! 217 ! TEMP: These changes not necessary if lbc_lnk is removed from ldf_eiv_dia andXIOS has subdomain support217 ! TEMP: These changes not necessary if XIOS has subdomain support 218 218 IF( ntile == 0 .OR. ntile == nijtile ) THEN ! Do only for the full domain 219 219 IF( ln_ldfeiv_dia .AND. cdtype == 'TRA' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.