Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/OBS

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

Location:

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/OBS

Files:

• diaobs.F90 (modified) (2 diffs)
• obs_read_altbias.F90 (modified) (2 diffs)
• obs_readmdt.F90 (modified) (3 diffs)
• obs_sstbias.F90 (modified) (1 diff)

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)

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

@@ -28 +28 @@
       & e2t,   &
       & gphit
-   USE oce, ONLY : &           ! Model variables
-      & sshn
    USE obs_inter_h2d
    USE obs_utils               ! Various observation tools
@@ -35 +33 @@
 
    IMPLICIT NONE
-
-   !! * Routine accessibility
    PRIVATE
 
-   PUBLIC obs_rea_altbias     ! Read the altimeter bias
+   PUBLIC   obs_rea_altbias   ! Read the altimeter bias
 
    !!----------------------------------------------------------------------

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

@@ -25 +25 @@
       &                    tmask, tmask_i, e1e2t, gphit, glamt
    USE obs_const, ONLY :   obfillflt      ! Fillvalue
-   USE oce      , ONLY :   sshn           ! Model variables
+   USE oce      , ONLY :   ssh            ! Model variables
 
    IMPLICIT NONE
@@ -216 +216 @@
           zarea = zarea + zdxdy
           zeta1 = zeta1 + mdt(ji,jj) * zdxdy
-          zeta2 = zeta2 + sshn (ji,jj) * zdxdy
+          zeta2 = zeta2 + ssh(ji,jj,Nnn) * zdxdy
         END DO      
       END DO
@@ -241 +241 @@
       IF(lwp) THEN
          WRITE(numout,*)
-         WRITE(numout,*) ' obs_readmdt : rn_mdtcutoff     = ', rn_mdtcutoff
+         WRITE(numout,*) ' obs_readmdt : rn_mdtcutoff  = ', rn_mdtcutoff
          WRITE(numout,*) ' -----------   zcorr_mdt     = ', zcorr_mdt
          WRITE(numout,*) '               zcorr_bcketa  = ', zcorr_bcketa
          WRITE(numout,*) '               zcorr         = ', zcorr
-         WRITE(numout,*) '               nn_msshc        = ', nn_msshc
+         WRITE(numout,*) '               nn_msshc      = ', nn_msshc
       ENDIF
 

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

@@ -27 +27 @@
       & gphit, &
       & glamt
-   USE oce, ONLY : &           ! Model variables
-      & sshn
    USE obs_inter_h2d
    USE obs_utils               ! Various observation tools