Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F

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/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F (modified) (1 diff)

trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F

@@ -126 +126 @@
 C     Local variables
 C
-      SELECT CASE (nbdim)
-      CASE (1)
-           lower = lbound(Variable % array1,indice)
-           upper = ubound(Variable % array1,indice)
-      CASE (2)
-           lower = lbound(Variable % array2,indice)
-           upper = ubound(Variable % array2,indice)
-      CASE (3)
-           lower = lbound(Variable % array3,indice)
-           upper = ubound(Variable % array3,indice)
-      CASE (4)
-           lower = lbound(Variable % array4,indice)
-           upper = ubound(Variable % array4,indice)
-      CASE (5)
-           lower = lbound(Variable % array5,indice)
-           upper = ubound(Variable % array5,indice)
-      CASE (6)
-           lower = lbound(Variable % array6,indice)
-           upper = ubound(Variable % array6,indice)
-      END SELECT
-C
+
+      lower = Variable % lb(indice)
+      upper = Variable % ub(indice)
       return
 C