Changeset 6073 for branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

Timestamp:

2015-12-16T17:37:14+01:00 (8 years ago)

Author:

timgraham

Message:

Fixed a load of references to fse3t etc.

File:

• branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (2 diffs)

branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -1057 +1057 @@
          & gdepw_1d,      &
          & gdepw_0,       &                       
-#if defined key_vvl
          & gdepw_n,       &
          & gdept_n,       &
-#endif
          & ln_zco,        &
          & ln_zps             
@@ -1150 +1148 @@
       IF ( .NOT.( ln_zps .OR. ln_zco ) ) THEN
         ! Need to know the bathy depth for each observation for sco
-        CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, fsdepw(:,:,:), &
+        CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, gdepw_n(:,:,:), &
         &                     zgdepw )
       ENDIF