Ticket #107: def_rst.patch

File def_rst.patch, 1.2 KB (added by kate, 17 years ago)

  • ROMS/Utility/def_rst.F

     
    197197#if defined WRITE_WATER && defined MASKING
    198198        t2dgrd(1)=DimIDs(17)
    199199        t2dgrd(2)=DimIDs(12)
     200        sr2dgrd(1)=DimIDs(17)
     201        sr2dgrd(2)=DimIDs(12)
    200202# ifdef SOLVE3D
    201203        t3dgrd(1)=DimIDs(20)
    202204        t3dgrd(2)=DimIDs(12)
    … …  
    204206#else
    205207        t2dgrd(1)=DimIDs( 1)
    206208        t2dgrd(2)=DimIDs( 5)
     209        sr2dgrd(1)=DimIDs( 1)
     210        sr2dgrd(2)=DimIDs( 5)
     211        sr2dgrd(3)=DimIDs(12)
    207212# ifdef PERFECT_RESTART
    208213        t2dgrd(3)=DimIDs(31)
    209214        t2dgrd(4)=DimIDs(12)
    … …  
    376381!  Define dimension vector for sediment, radiation stress variables.
    377382!
    378383# if defined WRITE_WATER && defined MASKING
    379         sr2dgrd(1)=DimIDs(17)
    380         sr2dgrd(2)=DimIDs(12)
    381384        su2dgrd(1)=DimIDs(18)
    382385        su2dgrd(2)=DimIDs(12)
    383386        sv2dgrd(1)=DimIDs(19)
    … …  
    390393        sv3dgrd(1)=DimIDs(22)
    391394        sv3dgrd(2)=DimIDs(12)
    392395# else
    393         sr2dgrd(1)=DimIDs( 1)
    394         sr2dgrd(2)=DimIDs( 5)
    395         sr2dgrd(3)=DimIDs(12)
    396396        su2dgrd(1)=DimIDs( 2)
    397397        su2dgrd(2)=DimIDs( 6)
    398398        su2dgrd(3)=DimIDs(12)