Changeset 3209 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN

Timestamp:

2011-12-10T09:04:49+01:00 (13 years ago)

Author:

smasson

Message:

dev_NEMO_MERGE_2011: syntaxe change to dynamical allocation, see ticket #896

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

@@ -88 +88 @@
       INTEGER ::   ii, ij, ijt, iju, ierr   ! local integer
       REAL(wp) ::  zraur, zdep              ! local scalar
-      REAL(wp), POINTER,  DIMENSION(:,:) ::   zwu, zwv   ! specific 2D workspace
+      REAL(wp), POINTER,  DIMENSION(:,:) ::   zwu   ! specific 2D workspace
+      REAL(wp), POINTER,  DIMENSION(:,:) ::   zwv   ! specific 2D workspace
       !!----------------------------------------------------------------------
       !