Changeset 4474
- Timestamp:
- 2014-02-04T13:18:44+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r4463 r4474 118 118 REAL(wp) :: dayjul0, zdayjulini 119 119 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. 121 121 !!!!! zdta :I :I :z 122 REAL(wp), DIMENSION(jpbdta,1,jpk ) :: zdta! temporary array for data fields122 REAL(wp), DIMENSION(jpbdta,1,jpkorig) :: zdta ! temporary array for data fields 123 123 !!--------------------------------------------------------------------------- 124 124 … … 390 390 ! Read first record: 391 391 ipj = 1 392 ipk = jpk 392 ipk = jpkorig 393 393 igrd = 1 394 394 ipi = nblendta(igrd) … … 607 607 ! read another set 608 608 ipj = 1 609 ipk = jpk 609 ipk = jpkorig 610 610 611 611 IF( ln_tra_frs ) THEN … … 1168 1168 1169 1169 ipj=1 1170 ipk=jpk 1170 ipk=jpkorig 1171 1171 igrd=4 1172 1172 ipi=nblendta(igrd)
Note: See TracChangeset
for help on using the changeset viewer.