Changeset 457 for trunk/NEMO/OPA_SRC/TRA/traldf_bilapg.F90

Timestamp:

2006-05-10T19:01:19+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_049:RB: reorganization of tracers part, remove traadv_cen2_atsk.h90 traldf_iso_zps.F90 trazdf_iso.F90 trazdf_iso_vopt.F90, change atsk routines to jki

File:

• trunk/NEMO/OPA_SRC/TRA/traldf_bilapg.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/traldf_bilapg.F90

@@ -65 +65 @@
       !! ** Action : - Update (ta,sa) arrays with the before geopotential 
       !!               biharmonic mixing trend.
-      !!             - Save the trends  in (ztdta,ztdsa) ('key_trdtra')
       !!
       !! History :
@@ -126 +125 @@
       END DO                                           !   End of slab
       !                                                ! ===============
-
-      ! save the trends for diagnostic
-      ! save the horizontal diffusive trends
-      IF( l_trdtra )   THEN
-
-         CALL trd_mod(wk3, wk4, jpttdldf, 'TRA', kt)
-      ENDIF
-
-      IF(ln_ctl) THEN         ! print mean trends (used for debugging)
-         CALL prt_ctl(tab3d_1=ta, clinfo1=' ldf  - Ta: ', mask1=tmask, &
-            &         tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra')
-      ENDIF
 
    END SUBROUTINE tra_ldf_bilapg
@@ -291 +278 @@
       END DO                                           !   End of slab
       !                                                ! ===============
-
+ 
+      !!but this should be done somewhere after 
       ! "zonal" mean diffusive heat and salt transport
       IF( ln_diaptr .AND. ( kaht == 2 ) .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN