Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c1d.h90

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/LDF/ldftra_c1d.h90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c1d.h90

@@ -6 +6 @@
    !! 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)
    !!----------------------------------------------------------------------
 
@@ -28 +28 @@
       !!         always harmonic      : aeiu = aeiv defined at T-level
       !!            aeiw defined at w-level
-      !!
       !!----------------------------------------------------------------------
-      !! * Arguments
-      LOGICAL, INTENT (in) :: ld_print   ! If true, print arrays in numout
-
-      !! * Local variables
-      INTEGER ::   jk                  ! dummy loop indices
-      REAL(wp) ::   &
-         zkah, zahr, za00 , za01,   &  ! temporary scalars
-         zahf, zahs, zahtf, zahts
+      LOGICAL, INTENT (in) ::   ld_print   ! If true, print arrays in numout
+      !
+      INTEGER  ::   jk   ! dummy loop indices
+      REAL(wp) ::   zkah, zahr, za00 , za01    ! local scalars
+      REAL(wp) ::   zahf, zahs, zahtf, zahts   !   -      -
       !!----------------------------------------------------------------------
 
@@ -130 +126 @@
       ENDIF
 #endif
-
+      !
    END SUBROUTINE ldf_tra_c1d