Changeset 519 for trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

Timestamp:

2006-10-11T15:49:05+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_74 : CT : - add comments for the UBS scheme

• syntax correction
• remove the use of eddy velocity in the calculation of poleward transport since it is already included into the normal velocity
• remove the save of the trend associated to the BBL advective velocity since it is already included into the normal velocity

File:

• trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

@@ -93 +93 @@
       !!----------------------------------------------------------------------
 
-
       IF( kt == nit000 )   CALL tra_bbl_init    ! initialization at first time-step
-
-      IF( l_trdtra )   THEN      ! Save ta and sa trends
-         ztrdt(:,:,:) = ta(:,:,:) 
-         ztrds(:,:,:) = sa(:,:,:) 
-      ENDIF
 
       ! 1. 2D fields of bottom temperature and salinity, and bottom slope
@@ -342 +336 @@
       END DO
 
-      ! save the trends for diagnostic
-      ! BBL lateral advection tracers trends
-      IF( l_trdtra )   THEN
-         ztrdt(:,:,:) = ta(:,:,:) - ztrdt(:,:,:)
-         ztrds(:,:,:) = sa(:,:,:) - ztrds(:,:,:)
-         CALL trd_mod(ztrdt, ztrds, jptra_trd_bbl, 'TRA', kt)
-      ENDIF
-
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ta, clinfo1=' bbl  - Ta: ', mask1=tmask,   &
          &                       tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )