Changeset 6328 for branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/DYN

Timestamp:

2016-02-18T17:46:36+01:00 (8 years ago)

Author:

jenniewaters

Message:

Make reviewer suggested changes. Update code to allow key_bias to be removed. Fixe a few minor bugs.

File:

• branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -85 +85 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv
-      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   z_rhd_st       ! for pressure correction
-      REAL(wp), DIMENSION(jpi,jpj)     ::   z_gru_st       ! for pressure correction
-      REAL(wp), DIMENSION(jpi,jpj)     ::   z_grv_st       ! for pressure correction
+      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   z_rhd_st  ! tmp density storage for pressure corr 
+      REAL(wp), DIMENSION(jpi,jpj)     ::   z_gru_st  ! tmp ua trends storage for pressure corr
+      REAL(wp), DIMENSION(jpi,jpj)     ::   z_grv_st  ! tmp va trends storage for pressure corr
       !!----------------------------------------------------------------------
       !