Changeset 3862 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

Timestamp:

2013-04-08T13:07:43+02:00 (11 years ago)

Author:

acc

Message:

Branch 2013/dev_r3858_NOC_ZTC #863. Change names of gdept_0, gdepw_0, e3t_0, e3w_0 to gdept_1d, gdepw_1d, e3t_1d, e3w_1d respectively in preparation for the introduction of time invariant 3d arrays using the _0 suffix

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (8 diffs)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -75 +75 @@
          & glamt,   &
          & gphit,   &
-         & gdept_0, &
+         & gdept_1d,&
          & tmask,   &
          & nproc
@@ -193 +193 @@
          &                 profdata%var(1)%vdep,                        &
          &                 glamt,                 gphit,                &
-         &                 gdept_0,               tmask,                &
+         &                 gdept_1d,              tmask,                &
          &                 profdata%nqc,          profdata%var(1)%nvqc, &
          &                 iosdtobs,              ilantobs,             &
@@ -213 +213 @@
          &                 profdata%var(2)%vdep,                        &
          &                 glamt,                 gphit,                &
-         &                 gdept_0,               tmask,                &
+         &                 gdept_1d,              tmask,                &
          &                 profdata%nqc,          profdata%var(2)%nvqc, &
          &                 iosdsobs,              ilansobs,             &
@@ -916 +916 @@
          & glamt, glamu, glamv,    &
          & gphit, gphiu, gphiv,    &
-         & gdept_0, &
+         & gdept_1d,             &
          & tmask, umask, vmask,  &
          & nproc
@@ -1032 +1032 @@
          &                 profdata%var(1)%vdep,                        &
          &                 glamu,                 gphiu,                &
-         &                 gdept_0,               umask,                &
+         &                 gdept_1d,              umask,                &
          &                 profdata%nqc,          profdata%var(1)%nvqc, &
          &                 iosduobs,              ilanuobs,             &
@@ -1052 +1052 @@
          &                 profdata%var(2)%vdep,                        &
          &                 glamv,                 gphiv,                &
-         &                 gdept_0,               vmask,                &
+         &                 gdept_1d,              vmask,                &
          &                 profdata%nqc,          profdata%var(2)%nvqc, &
          &                 iosdvobs,              ilanvobs,             &
@@ -1709 +1709 @@
       !! * Modules used
       USE dom_oce, ONLY : &       ! Geographical information
-         & gdepw_0                        
+         & gdepw_1d                        
 
       !! * Arguments
@@ -1826 +1826 @@
                &  .OR. ( pobsphi(jobs) >   90.         )       &
                &  .OR. ( pobsdep(jobsp) < 0.0          )       &
-               &  .OR. ( pobsdep(jobsp) > gdepw_0(kpk) ) ) THEN
+               &  .OR. ( pobsdep(jobsp) > gdepw_1d(kpk)) ) THEN
                kobsqc(jobsp) = kobsqc(jobsp) + 11
                kosdobs = kosdobs + 1