Changeset 132 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2004-07-07T14:51:53+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE082 : Finalization of the poleward transport diagnostics

File:

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

trunk/NEMO/OPA_SRC/step.F90

@@ -109 +109 @@
    USE trdvor          ! vorticity budget                 (trd_vor routine)
    USE diahdy          ! dynamic height                   (dia_hdy routine)
-   USE ptr             ! poleward transports         (dia_ptr_init routine)
-   !                   !                                  (dia_ptr routine)
+   USE diaptr          ! poleward transports              (dia_ptr routine)
    USE diahth          ! thermocline depth                (dia_hth routine)
    USE diafwb          ! freshwater budget                (dia_fwb routine)
@@ -210 +209 @@
             CALL dia_wri_state( 'output.init' )
          ENDIF
-         IF( lk_diaptr ) CALL dia_ptr_init            ! Poleward TRansport initialization
-
       ENDIF
 
@@ -447 +444 @@
          IF( lk_diahdy  )   CALL dia_hdy( kstp )                 ! dynamical heigh diagnostics
          IF( lk_diafwb  )   CALL dia_fwb( kstp )                 ! Fresh water budget diagnostics
-#if defined key_diaptr
-         IF( kstp == nit000 .OR. MOD( kstp, nf_ptr ) == 0 )   &
+
+         IF( ln_diaptr .AND. ( kstp == nit000 .OR. MOD( kstp, nf_ptr ) == 0 ) )  &
                             CALL dia_ptr( kstp )                 ! Poleward TRansports diagnostics
-#endif
 
          !                                         ! save and outputs