- Timestamp:
- 2012-11-28T11:01:44+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3684 r3702 1679 1679 ENDDO ! for all ji's 1680 1680 1681 DO ji=1,jpi 1682 DO jj=1,jpj 1681 DO ji=1,jpi-1 1682 DO jj=1,jpj-1 1683 1683 1684 1684 DO jk = 1, jpk … … 1707 1707 ENDDO 1708 1708 ENDDO 1709 ! 1710 CALL lbc_lnk(e3t ,'T',1.) ; CALL lbc_lnk(e3u ,'T',1.) 1711 CALL lbc_lnk(e3v ,'T',1.) ; CALL lbc_lnk(e3f ,'T',1.) 1712 CALL lbc_lnk(e3w ,'T',1.) 1713 CALL lbc_lnk(e3uw,'T',1.) ; CALL lbc_lnk(e3vw,'T',1.) 1714 ! 1709 1715 ! ! ============= 1710 1716
Note: See TracChangeset
for help on using the changeset viewer.