Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.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_c3d.h90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c3d.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)
    !!----------------------------------------------------------------------
 
@@ -29 +29 @@
       !!       eddy induced velocity
       !!         always harmonic   : aeiu, aeiv, aeiw defined at u-, v-, w-pts
-      !!
       !!----------------------------------------------------------------------
-      !! * Modules used
       USE ioipsl
-
-      !! * Arguments
-      LOGICAL, INTENT (in) :: ld_print   ! If true, output arrays on numout
-
+      !
+      LOGICAL, INTENT (in) ::   ld_print   ! If true, output arrays on numout
       !!----------------------------------------------------------------------
 
@@ -44 +40 @@
          IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~   --  '
          IF(lwp) WRITE(numout,*) '               Coefficients set to constant'
-         IF(lwp) WRITE(numout,*)
       ELSE
          IF(lwp) WRITE(numout,*)
@@ -50 +45 @@
          IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~   -- '
          IF(lwp) WRITE(numout,*) '               Coefficients set to constant'
-         IF(lwp) WRITE(numout,*)
       ENDIF
 
@@ -127 +121 @@
          CALL prihre(aeiw(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
       ENDIF
-
-END SUBROUTINE ldf_tra_c3d
+      !
+   END SUBROUTINE ldf_tra_c3d