Changeset 9029 for branches/2017/dev_merge_2017

Timestamp:

2017-12-14T10:54:39+01:00 (6 years ago)

Author:

acc

Message:

Branch 2017/dev_merge_2017. Fix compilation issue in sbcwave.F90. sbcwave.F90 still needs checking for scientific intent.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

@@ -99 +99 @@
       REAL(wp) ::  zbot_u, zbot_v, zkb_u, zkb_v, zke3_u, zke3_v, zda_u, zda_v
       REAL(wp) ::  zstokes_psi_u_bot, zstokes_psi_v_bot
+      REAL(wp) ::  zdep_u, zdep_v, zkh_u, zkh_v
       REAL(wp), DIMENSION(:,:)  , POINTER ::   zk_t, zk_u, zk_v, zu0_sd, zv0_sd   ! 2D workspace
       REAL(wp), DIMENSION(:,:)  , POINTER ::   zstokes_psi_u_top, zstokes_psi_v_top   ! 2D workspace