Changeset 4292 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

Timestamp:

2013-11-20T17:28:04+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : 1st step of the merge, see ticket #1185

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (4 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -976 +976 @@
       USE dom_oce, ONLY : &             ! Ocean space and time domain variables
          & rdt,           &                       
-         & gdept_0,       &             
+         & gdept_1d,       &             
          & tmask, umask, vmask                            
       USE phycst, ONLY : &              ! Physical constants
@@ -1038 +1038 @@
                   &              kstp, jpi, jpj, jpk, nit000, idaystp,   &
                   &              tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal),   &
-                  &              gdept_0, tmask, n1dint, n2dint,         &
+                  &              gdept_1d, tmask, n1dint, n2dint,        &
                   &              kdailyavtypes = endailyavtypes )
             ELSE
@@ -1044 +1044 @@
                   &              kstp, jpi, jpj, jpk, nit000, idaystp,   &
                   &              tsn(:,:,:,jp_tem), tsn(:,:,:,jp_sal),   &
-                  &              gdept_0, tmask, n1dint, n2dint               )
+                  &              gdept_1d, tmask, n1dint, n2dint              )
             ENDIF
          END DO
@@ -1088 +1088 @@
            ! zonal component of velocity
            CALL obs_vel_opt( veldatqc(jveloset), kstp, jpi, jpj, jpk, &
-              &              nit000, idaystp, un, vn, gdept_0, umask, vmask, &
+              &              nit000, idaystp, un, vn, gdept_1d, umask, vmask, &
                              n1dint, n2dint, ld_velav(jveloset) )
          END DO