Changeset 4474


Ignore:
Timestamp:
2014-02-04T13:18:44+01:00 (7 years ago)
Author:
trackstand2
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r4463 r4474  
    118118      REAL(wp) ::   dayjul0, zdayjulini 
    119119      REAL(wp), DIMENSION(jpbtime)      ::   zstepr             ! REAL time array from data files 
    120 !! DCSE_NEMO: do not ftrans! Beware! ARP - why not? 
     120!! DCSE_NEMO: do not ftrans becase is used in calls to iom library that all use z-last ordering. 
    121121!!!!!  zdta :I :I :z 
    122       REAL(wp), DIMENSION(jpbdta,1,jpk) ::   zdta               ! temporary array for data fields 
     122      REAL(wp), DIMENSION(jpbdta,1,jpkorig) ::   zdta            ! temporary array for data fields 
    123123      !!--------------------------------------------------------------------------- 
    124124 
     
    390390            ! Read first record: 
    391391            ipj  = 1 
    392             ipk  = jpk 
     392            ipk  = jpkorig 
    393393            igrd = 1 
    394394            ipi  = nblendta(igrd) 
     
    607607           ! read another set 
    608608           ipj  = 1 
    609            ipk  = jpk 
     609           ipk  = jpkorig 
    610610 
    611611           IF( ln_tra_frs ) THEN 
     
    11681168 
    11691169          ipj=1 
    1170           ipk=jpk 
     1170          ipk=jpkorig 
    11711171          igrd=4 
    11721172          ipi=nblendta(igrd) 
Note: See TracChangeset for help on using the changeset viewer.