Changeset 2707


Ignore:
Timestamp:
2011-03-25T15:49:07+01:00 (10 years ago)
Author:
rblod
Message:

Correct for s-coordinate

File:
1 edited

Legend:

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

    r2695 r2707  
    14241424            END DO 
    14251425         END DO 
     1426 
     1427         CALL lbc_lnk( e3t , 'T', 1._wp ) 
     1428         CALL lbc_lnk( e3u , 'U', 1._wp ) 
     1429         CALL lbc_lnk( e3v , 'V', 1._wp ) 
     1430         CALL lbc_lnk( e3f , 'F', 1._wp ) 
     1431         CALL lbc_lnk( e3w , 'W', 1._wp ) 
     1432         CALL lbc_lnk( e3uw, 'U', 1._wp ) 
     1433         CALL lbc_lnk( e3vw, 'V', 1._wp ) 
     1434 
    14261435         ! 
    14271436      ELSE   ! not ln_s_sigma 
Note: See TracChangeset for help on using the changeset viewer.