Changeset 132 for trunk/NEMO/OPA_SRC/opa.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/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -43 +43 @@
    USE flxfwb          ! 
 
-   USE ptr             ! poleward transports           (dia_ptr_init routine)
+   USE diaptr          ! poleward transports           (dia_ptr_init routine)
 
    USE step            ! OPA time-stepping                  (stp     routine)
@@ -199 +199 @@
       CALL flx_fwb_init                     ! FreshWater Budget correction
 
-#if defined key_diaptr
-      CALL dia_ptr_init                     ! Poleward TRansports
-#endif
+      IF( ln_diaptr ) CALL dia_ptr_init     ! Poleward TRansports initialization
 
       !                                     ! =============== !