Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/OBS/diaobs.F90

Timestamp:

2018-07-29T11:23:51+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/OBS/diaobs.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/OBS/diaobs.F90

@@ -498 +498 @@
       USE dom_oce, ONLY : gdept_n, gdept_1d   ! Ocean space and time domain variables
       USE phycst , ONLY : rday                ! Physical constants
-      USE oce    , ONLY : tsn, un, vn, sshn   ! Ocean dynamics and tracers variables
+      USE oce    , ONLY : tsn, un, vn, ssh    ! Ocean dynamics and tracers variables
       USE phycst , ONLY : rday                ! Physical constants
 #if defined  key_si3
@@ -596 +596 @@
                zsurfvar(:,:) = tsn(:,:,1,jp_tem)
             CASE('sla')
-               zsurfvar(:,:) = sshn(:,:)
+               zsurfvar(:,:) = ssh(:,:,Nnn)
             CASE('sss')
                zsurfvar(:,:) = tsn(:,:,1,jp_sal)