Changeset 4474 for branches

Timestamp:

2014-02-04T13:18:44+01:00 (10 years ago)

Author:

trackstand2

Message:

Bug fix in bdydta - use jpkorig rather than jpk when reading boundary fields from file

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90 (modified) (4 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -118 +118 @@
       REAL(wp) ::   dayjul0, zdayjulini
       REAL(wp), DIMENSION(jpbtime)      ::   zstepr             ! REAL time array from data files
-!! DCSE_NEMO: do not ftrans! Beware! ARP - why not?
+!! DCSE_NEMO: do not ftrans becase is used in calls to iom library that all use z-last ordering.
 !!!!!  zdta :I :I :z
-      REAL(wp), DIMENSION(jpbdta,1,jpk) ::   zdta               ! temporary array for data fields
+      REAL(wp), DIMENSION(jpbdta,1,jpkorig) ::   zdta            ! temporary array for data fields
       !!---------------------------------------------------------------------------
 
@@ -390 +390 @@
             ! Read first record:
             ipj  = 1
-            ipk  = jpk
+            ipk  = jpkorig
             igrd = 1
             ipi  = nblendta(igrd)
@@ -607 +607 @@
            ! read another set
            ipj  = 1
-           ipk  = jpk
+           ipk  = jpkorig
 
            IF( ln_tra_frs ) THEN
@@ -1168 +1168 @@
 
           ipj=1
-          ipk=jpk
+          ipk=jpkorig
           igrd=4
           ipi=nblendta(igrd)