Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.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/dynspg_exp.F90 (modified) (3 diffs)

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

@@ -40 +40 @@
    !! 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
 
@@ -62 +61 @@
       !!                         the surf. pressure gradient trend
       !!---------------------------------------------------------------------
-      INTEGER, INTENT( in )  ::   kt         ! ocean time-step index
+      INTEGER, INTENT(in)  ::   kt   ! ocean time-step index
       !!
-      INTEGER  ::   ji, jj, jk               ! dummy loop indices
+      INTEGER ::   ji, jj, jk   ! dummy loop indices
       !!----------------------------------------------------------------------
 
@@ -72 +71 @@
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   (explicit free surface)'
          !
-         spgu(:,:) = 0.e0   ;   spgv(:,:) = 0.e0
+         spgu(:,:) = 0._wp   ;   spgv(:,:) = 0._wp
          !
          IF( lk_vvl .AND. lwp ) WRITE(numout,*) '              lk_vvl=T : spg is included in dynhpg'