Merge branch...

Merge branch '8-explicit-use-of-ssh-in-hpg_djc-no-matter-linear-non-linear-free-surface' into 'main'

Fixes issue #8

Closes #8

See merge request nemo/nemo!31

src/OCE/DYN/dynhpg.F90

@@ -760,11 +760,11 @@ CONTAINS
       !-------------------------------------------------------------
 ! *** AY note: ssh(ji,jj,Kmm) + gde3w(ji,jj,1) = e3w(ji,jj,1,Kmm)
       DO_2D( 0, 1, 0, 1)
-         z_rho_k(ji,jj,1) =  grav * ( ssh(ji,jj,Kmm) + gde3w(ji,jj,1) )                        & 
-            &                     * (  rhd(ji,jj,1)                                        &
-            &                     + 0.5_wp * (   rhd    (ji,jj,2) - rhd    (ji,jj,1) ) &
-            &                              * (   ssh   (ji,jj,Kmm) + gde3w(ji,jj,1) )          &
-            &                              / ( - gde3w(ji,jj,2) + gde3w(ji,jj,1) )  )
+         z_rho_k(ji,jj,1) =  grav * gdept(ji,jj,1,Kmm)                             & 
+            &                     * (             rhd(ji,jj,1)                     &
+            &                         -0.5_wp * ( rhd(ji,jj,2) - rhd(ji,jj,1) )    &
+            &                              * gdept(ji,jj,1,Kmm) / e3w(ji,jj,2,Kmm) &
+            &                       )
       END_2D
 
       !--------------------------------------------------------------