Changeset 519 for trunk/NEMO/OPA_SRC/TRA/traadv.F90

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/traadv.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traadv.F90

@@ -97 +97 @@
       CASE (-1 )                                                     ! esopa: test all possibility with control print
          ;             CALL tra_adv_cen2    ( kt, zun, zvn, zwn )
-         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' ldf0 - Ta: ', mask1=tmask,               &
+         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv0 - Ta: ', mask1=tmask,               &
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
          ;             CALL tra_adv_cen2_jki( kt, zun, zvn, zwn )
-         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' ldf1 - Ta: ', mask1=tmask,               &
+         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv1 - Ta: ', mask1=tmask,               &
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
          ;             CALL tra_adv_tvd     ( kt, zun, zvn, zwn )
-         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' ldf2 - Ta: ', mask1=tmask,               &
+         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv2 - Ta: ', mask1=tmask,               &
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
          ;             CALL tra_adv_muscl   ( kt, zun, zvn, zwn )
-         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' ldf3 - Ta: ', mask1=tmask,               &
+         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv3 - Ta: ', mask1=tmask,               &
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
          ;             CALL tra_adv_muscl2  ( kt, zun, zvn, zwn )
-         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' ldf4 - Ta: ', mask1=tmask,               &
+         ;             CALL prt_ctl( tab3d_1=ta, clinfo1=' adv4 - Ta: ', mask1=tmask,               &
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
          ;             CALL tra_adv_ubs     ( kt, zun, zvn, zwn )