Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.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/LBC/mppini.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -20 +20 @@
    PRIVATE
 
-   !! * Routine accessibility
    PUBLIC mpp_init       ! called by opa.F90
    PUBLIC mpp_init2      ! called by opa.F90
@@ -29 +28 @@
    !! 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
 
@@ -128 +126 @@
       !!   8.5  !  02-08  (G. Madec)  F90 : free form
       !!----------------------------------------------------------------------
-      !! * Local variables
-      INTEGER ::   ji, jj, jn               ! dummy loop indices
-      INTEGER ::   &
-         ii, ij, ifreq, il1, il2,        &  ! temporary integers
-         iresti, irestj, ijm1, imil,     &  !    "          "
-         inum                               ! temporary logical unit
-
-      INTEGER, DIMENSION(jpni,jpnj) ::   &
-         iimppt, ijmppt, ilcit, ilcjt       ! temporary workspace
-      REAL(wp) ::   zidom, zjdom            ! temporary scalars
+      INTEGER  ::   ji, jj, jn   ! dummy loop indices
+      INTEGER  ::   ii, ij, ifreq, il1, il2            ! local integers
+      INTEGER  ::   iresti, irestj, ijm1, imil, inum   !   -      -
+      REAL(wp) ::   zidom, zjdom                       ! local scalars
+      INTEGER, DIMENSION(jpni,jpnj) ::   iimppt, ijmppt, ilcit, ilcjt   ! local workspace
       !!----------------------------------------------------------------------
 
@@ -451 +444 @@
       !!   " "  !  08-12  (A. Coward)  addition in case of jpni*jpnj < jpnij
       !!----------------------------------------------------------------------
-      !! Local declarations
-
-      INTEGER, DIMENSION(2) ::   &
-         iglo, iloc, iabsf, iabsl, ihals, ihale, idid
+      INTEGER, DIMENSION(2) ::   iglo, iloc, iabsf, iabsl, ihals, ihale, idid
       !!----------------------------------------------------------------------
 
@@ -482 +472 @@
           WRITE(numout,*) '                    ihale = ', ihale(1), ihale(2)
       ENDIF
-
+      !
       CALL flio_dom_set ( jpnij, nproc, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom)
-
+      !
    END SUBROUTINE mpp_init_ioipsl