Changeset 13456 for NEMO/releases/r4.0/r4.0-HEAD/src
- Timestamp:
- 2020-09-10T17:42:42+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traadv_cen.F90
r11993 r13456 127 127 DO jk = 1, jpkm1 ! Horizontal advective fluxes 128 128 DO jj = 2, jpjm1 129 DO ji = 1, fs_jpim1 ! vector opt.129 DO ji = 2, fs_jpim1 ! vector opt. 130 130 zC2t_u = ptn(ji,jj,jk,jn) + ptn(ji+1,jj ,jk,jn) ! C2 interpolation of T at u- & v-points (x2) 131 131 zC2t_v = ptn(ji,jj,jk,jn) + ptn(ji ,jj+1,jk,jn) … … 139 139 END DO 140 140 END DO 141 CALL lbc_lnk_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. ) 141 142 ! 142 143 CASE DEFAULT 143 CALL ctl_stop( 'traadv_ fct: wrong value for nn_fct' )144 CALL ctl_stop( 'traadv_cen: wrong value for nn_cen' ) 144 145 END SELECT 145 146 !
Note: See TracChangeset
for help on using the changeset viewer.