Changeset 7806 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd_crs.F90
- Timestamp:
- 2017-03-17T08:46:30+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd_crs.F90
r7795 r7806 183 183 ztrdx(:,:,:) = zwx(:,:,:) ; ztrdy(:,:,:) = zwy(:,:,:) ; ztrdz(:,:,:) = zwz(:,:,:) 184 184 END IF 185 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes)186 IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN187 IF( jn == jp_tem ) htr_adv(:) = ptr_sj( zwy(:,:,:) )188 IF( jn == jp_sal ) str_adv(:) = ptr_sj( zwy(:,:,:) )189 ENDIF190 185 191 186 ! 3. antidiffusive flux : high order minus low order … … 245 240 CALL trd_tra( kt, cdtype, jn, jptra_zad, ztrdz, pwn, ptn(:,:,:,jn) ) 246 241 END IF 247 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes)248 IF( cdtype == 'TRA' .AND. ln_diaptr ) THEN249 IF( jn == jp_tem ) htr_adv(:) = ptr_sj( zwy(:,:,:) ) + htr_adv(:)250 IF( jn == jp_sal ) str_adv(:) = ptr_sj( zwy(:,:,:) ) + str_adv(:)251 ENDIF252 242 ! 253 243 END DO
Note: See TracChangeset
for help on using the changeset viewer.