Changeset 4287


Ignore:
Timestamp:
2013-11-20T15:51:55+01:00 (7 years ago)
Author:
cbricaud
Message:

Too long lines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r4286 r4287  
    344344            DO jj = 1, jpjm1 
    345345               DO ji = 1, fs_jpim1   ! vector opt. 
    346                   un_td(ji,jj,jk) = rn_ahe3 * umask(ji,jj,jk) * re2u_e1u(ji,jj) * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji+1,jj  ,jk) ) 
    347                   vn_td(ji,jj,jk) = rn_ahe3 * vmask(ji,jj,jk) * re1v_e2v(ji,jj) * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji  ,jj+1,jk) ) 
     346                  un_td(ji,jj,jk) = rn_ahe3 * umask(ji,jj,jk) * re2u_e1u(ji,jj) & 
     347                                  & * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji+1,jj  ,jk) ) 
     348                  vn_td(ji,jj,jk) = rn_ahe3 * vmask(ji,jj,jk) * re1v_e2v(ji,jj) &  
     349                                  & * ( tilde_e3t_b(ji,jj,jk) - tilde_e3t_b(ji  ,jj+1,jk) ) 
    348350                  zwu(ji,jj) = zwu(ji,jj) + un_td(ji,jj,jk) 
    349351                  zwv(ji,jj) = zwv(ji,jj) + vn_td(ji,jj,jk) 
     
    555557            tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) 
    556558         ELSE 
    557             tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) + atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) ) 
     559            tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) &  
     560            &         + atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) ) 
    558561         ENDIF 
    559562         tilde_e3t_n(:,:,:) = tilde_e3t_a(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.