Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE dom_oce         ! ocean space and time domain
-   USE in_out_manager  ! I/O manager
-
    USE dynadv_cen2     ! centred flux form advection      (dyn_adv_cen2 routine)
    USE dynadv_ubs      ! UBS flux form advection          (dyn_adv_ubs  routine)
    USE dynkeg          ! kinetic energy gradient          (dyn_keg      routine)
    USE dynzad          ! vertical advection               (dyn_zad      routine)
+   USE in_out_manager  ! I/O manager
+   USE lib_mpp         ! MPP library
 
    IMPLICIT NONE
@@ -38 +38 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -58 +57 @@
       !!----------------------------------------------------------------------
       !
-      SELECT CASE ( nadv )                     ! compute advection trend and add it to general trend
+      SELECT CASE ( nadv )                  ! compute advection trend and add it to general trend
       CASE ( 0 )     
                       CALL dyn_keg     ( kt )    ! vector form : horizontal gradient of kinetic energy