Ignore:
Timestamp:
2012-01-27T14:08:19+01:00 (9 years ago)
Author:
rblod
Message:

Fix for zco and vvl, see ticket #913

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3262 r3282  
    774774      ! 
    775775      DO jk = 1, jpk 
    776          fsdept(:,:,jk) = gdept_0(jk) 
    777          fsdepw(:,:,jk) = gdepw_0(jk) 
    778          fsde3w(:,:,jk) = gdepw_0(jk) 
    779          fse3t (:,:,jk) = e3t_0(jk) 
    780          fse3u (:,:,jk) = e3t_0(jk) 
    781          fse3v (:,:,jk) = e3t_0(jk) 
    782          fse3f (:,:,jk) = e3t_0(jk) 
    783          fse3w (:,:,jk) = e3w_0(jk) 
    784          fse3uw(:,:,jk) = e3w_0(jk) 
    785          fse3vw(:,:,jk) = e3w_0(jk) 
     776            gdept(:,:,jk) = gdept_0(jk) 
     777            gdepw(:,:,jk) = gdepw_0(jk) 
     778            gdep3w(:,:,jk) = gdepw_0(jk) 
     779            e3t (:,:,jk) = e3t_0(jk) 
     780            e3u (:,:,jk) = e3t_0(jk) 
     781            e3v (:,:,jk) = e3t_0(jk) 
     782            e3f (:,:,jk) = e3t_0(jk) 
     783            e3w (:,:,jk) = e3w_0(jk) 
     784            e3uw(:,:,jk) = e3w_0(jk) 
     785            e3vw(:,:,jk) = e3w_0(jk) 
    786786      END DO 
    787787      ! 
Note: See TracChangeset for help on using the changeset viewer.