New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3703 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90 – NEMO

Ignore:
Timestamp:
2012-11-28T11:02:28+01:00 (11 years ago)
Author:
cbricaud
Message:

split lines which are too long in some bdy routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

    r3680 r3703  
    263263               zwgt = idx_bdy(ib_bdy)%nbd(jb,igrd) 
    264264               DO jk = 1, jpkm1 
    265                   ua(ii,ij,jk) = ( ua(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%u3d(jb,jk) - ub(ii,ij,jk) + pu2d(ii,ij)) ) * umask(ii,ij,jk) 
     265                  ua(ii,ij,jk) = ( ua(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%u3d(jb,jk) - & 
     266                                   ub(ii,ij,jk) + pu2d(ii,ij)) ) * umask(ii,ij,jk) 
    266267               END DO 
    267268            END DO 
     
    273274               zwgt = idx_bdy(ib_bdy)%nbd(jb,igrd) 
    274275               DO jk = 1, jpkm1 
    275                   va(ii,ij,jk) = ( va(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%v3d(jb,jk) - vb(ii,ij,jk) + pv2d(ii,ij)) ) * vmask(ii,ij,jk) 
     276                  va(ii,ij,jk) = ( va(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%v3d(jb,jk) -  & 
     277                                   vb(ii,ij,jk) + pv2d(ii,ij)) ) * vmask(ii,ij,jk) 
    276278               END DO 
    277279            END DO 
Note: See TracChangeset for help on using the changeset viewer.