Changeset 15656 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_exz_port/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
- Timestamp:
- 2022-01-19T14:05:03+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_exz_port/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r8058 r15656 688 688 INTEGER :: ierr 689 689 REAL(wp), POINTER, DIMENSION(:,:,:) :: dta_read ! work space for global data 690 REAL(wp), POINTER, DIMENSION(:,:,:) :: my_dta_read ! work space for global data 690 691 !!--------------------------------------------------------------------- 691 692 … … 696 697 idvar = iom_varid( num, clvar ) 697 698 ilendta = iom_file(num)%dimsz(1,idvar) 699 !CEOD 700 ALLOCATE( my_dta_read(ilendta, 1, ipk) ) 698 701 699 702 #if defined key_bdy … … 710 713 711 714 SELECT CASE( ipk ) 715 !CEODCASE(1) ; CALL iom_get ( num, jpdom_unknown, clvar, my_dta_read(1:ilendta,1:ipj,1 ), nrec ) 712 716 CASE(1) ; CALL iom_get ( num, jpdom_unknown, clvar, dta_read(1:ilendta,1:ipj,1 ), nrec ) 713 CASE DEFAULT ; CALL iom_get ( num, jpdom_unknown, clvar, dta_read(1:ilendta,1:ipj,1:ipk), nrec )717 CASE DEFAULT ; CALL iom_get ( num, jpdom_unknown, clvar, my_dta_read(1:ilendta,1:ipj,1:ipk), nrec ) 714 718 END SELECT 715 719 ! … … 717 721 DO ib = 1, ipi 718 722 DO ik = 1, ipk 723 if( ipk .eq. 1) then 719 724 dta(ib,1,ik) = dta_read(map%ptr(ib),1,ik) 725 else 726 dta(ib,1,ik) = my_dta_read(map%ptr(ib),1,ik) 727 endif 720 728 END DO 721 729 END DO … … 729 737 END DO 730 738 ENDIF 739 DEALLOCATE(my_dta_read) 731 740 732 741 END SUBROUTINE fld_map
Note: See TracChangeset
for help on using the changeset viewer.