Ignore:
Timestamp:
2011-06-27T11:54:00+02:00 (10 years ago)
Author:
cetlod
Message:

Bug correction in NEMO/OFFLINE, see ticket #841

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OFF_SRC/domrea.F90

    r2715 r2787  
    254254            CALL iom_get( inum4, jpdom_unknown, 'e3t_0'  , e3t_0   ) 
    255255            CALL iom_get( inum4, jpdom_unknown, 'e3w_0'  , e3w_0   ) 
     256            DO jk = 1, jpk 
     257               e3t  (:,:,jk) = e3t_0(jk)                                     ! set to the ref. factors 
     258               e3u  (:,:,jk) = e3t_0(jk) 
     259               e3v  (:,:,jk) = e3t_0(jk) 
     260               e3w  (:,:,jk) = e3w_0(jk) 
     261               gdept(:,:,jk) = gdept_0(jk) 
     262               gdepw(:,:,jk) = gdepw_0(jk) 
     263            END DO 
    256264         ENDIF 
    257265 
Note: See TracChangeset for help on using the changeset viewer.