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

Timestamp:

2009-07-03T17:28:06+02:00 (15 years ago)

Author:

smasson

Message:

distribution of iom_put + cleaning of LIM2 outputs, see ticket:437

File:

• trunk/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv.F90

@@ -4 +4 @@
    !! Ocean active tracers:  advection trend 
    !!==============================================================================
-   !! History :  9.0  !  05-11  (G. Madec)  Original code
+   !! History :  2.0  !  05-11  (G. Madec)  Original code
    !!----------------------------------------------------------------------
 
@@ -24 +24 @@
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
+   USE iom
 
    IMPLICIT NONE
@@ -44 +45 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !!   OPA 9.0 , LOCEAN-IPSL (2006) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -114 +115 @@
             &                        tab3d_2=sa, clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
       END SELECT
+       
+      CALL iom_put( "uoce_eff", zun )   ! effective i-current      
+      CALL iom_put( "voce_eff", zvn )   ! effective j-current
+      CALL iom_put( "woce_eff", zwn )   ! effective vert. current
+
       !                                              ! print mean trends (used for debugging)
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ta, clinfo1=' adv  - Ta: ', mask1=tmask,               &