Changeset 5883 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
- Timestamp:
- 2015-11-13T08:01:08+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
r5866 r5883 78 78 !! prevent the appearance of spurious numerical oscillations 79 79 !! 80 !! ** Action : - update (pta) with the now advective tracer trends 81 !! - save the trends 80 !! ** Action : - update pta with the now advective tracer trends 81 !! - send trends to trdtra module for further diagnostcs (l_trdtra=T) 82 !! - htr_adv, str_adv : poleward advective heat and salt transport (ln_diaptr=T) 82 83 !! 83 84 !! ** Reference : Leonard (1979, 1991) … … 105 106 IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE. 106 107 ! 107 ! I. Thehorizontal fluxes are computed with the QUICKEST + ULTIMATE scheme108 ! ! horizontal fluxes are computed with the QUICKEST + ULTIMATE scheme 108 109 CALL tra_adv_qck_i( kt, cdtype, p2dt, pun, ptb, ptn, pta, kjpt ) 109 110 CALL tra_adv_qck_j( kt, cdtype, p2dt, pvn, ptb, ptn, pta, kjpt ) 110 111 111 ! II. Thevertical fluxes are computed with the 2nd order centered scheme112 ! ! vertical fluxes are computed with the 2nd order centered scheme 112 113 CALL tra_adv_cen2_k( kt, cdtype, pwn, ptn, pta, kjpt ) 113 114 ! … … 224 225 END DO 225 226 END DO 226 ! ! trend diagnostics (contribution of upstream fluxes)227 ! ! trend diagnostics 227 228 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_xad, zwx, pun, ptn(:,:,:,jn) ) 228 229 ! … … 348 349 END DO 349 350 END DO 350 ! ! trend diagnostics (contribution of upstream fluxes)351 ! ! trend diagnostics 351 352 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_yad, zwy, pvn, ptn(:,:,:,jn) ) 352 353 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes) … … 381 382 CALL wrk_alloc( jpi,jpj,jpk, zwz ) 382 383 ! 383 ! ! surface & bottom values 384 IF( .NOT.ln_linssh ) zwz(:,:, 1 ) = 0._wp ! set to zero one for all 385 zwz(:,:,jpk) = 0._wp ! except at the surface in linear free surface 384 zwz(:,:, 1 ) = 0._wp ! surface & bottom values set to zero for all tracers 385 zwz(:,:,jpk) = 0._wp 386 386 ! 387 387 ! ! =========== … … 403 403 END DO 404 404 END DO 405 ELSE ! no ice-shelfcavities (only ocean surface)405 ELSE ! no ocean cavities (only ocean surface) 406 406 zwz(:,:,1) = pwn(:,:,1) * ptn(:,:,1,jn) 407 407 ENDIF … … 416 416 END DO 417 417 END DO 418 ! ! S ave the vertical advectivetrends for diagnostic418 ! ! Send trends for diagnostic 419 419 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_zad, zwz, pwn, ptn(:,:,:,jn) ) 420 420 !
Note: See TracChangeset
for help on using the changeset viewer.