Ignore:
Timestamp:
07/05/19 15:13:09 (5 years ago)
Author:
dubos
Message:

devel : DySL for enstrophy-conserving scheme

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/unstructured/init_unstructured.f90

    r883 r940  
    282282    ALLOCATE(Riv2, source = Ddata_read2) 
    283283    CALL read_from_gridfile(id_nc, 'float', 'wee') 
    284     ALLOCATE(wee, source = Ddata_read2) 
     284    ALLOCATE(wee(SIZE(Ddata_read2,1), SIZE(Ddata_read2,2), 1)) 
     285    wee(:,:,1) = Ddata_read2(:,:) 
    285286 
    286287    ! read cell centers and bounds 
Note: See TracChangeset for help on using the changeset viewer.