Changeset 3195 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS

Timestamp:

2011-12-06T17:40:25+01:00 (13 years ago)

Author:

smasson

Message:

syntaxe change to clearly indentify work arrays

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS

Files:

• obs_inter_sup.F90 (modified) (1 diff)
• obs_read_altbias.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90

@@ -121 +121 @@
          & pgval            ! Stencil at each point
       !! * Local declarations
-      REAL(KIND=wp), POINTER, DIMENSION(:,:,:) :: &
-         & zval
+      REAL(KIND=wp), POINTER, DIMENSION(:,:,:) ::   zval
       REAL(KIND=wp), DIMENSION(kptsi,kptsj,1,kobs) ::&
          & zgval 

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

@@ -101 +101 @@
          & zglam, &
          & zgphi
-      REAL(wp), POINTER, DIMENSION(:,:) :: &
-         & z_altbias
+      REAL(wp), POINTER, DIMENSION(:,:) ::   z_altbias
       REAL(wp) :: zlam
       REAL(wp) :: zphi