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 4593 for branches – NEMO

Changeset 4593 for branches


Ignore:
Timestamp:
2014-03-26T11:44:08+01:00 (10 years ago)
Author:
pabouttier
Message:

Very light optimization of a loop in trazdf_imp_adj

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90

    r4568 r4593  
    452452                  ze3tb = 1._wp 
    453453                  ze3tn = 1._wp 
    454                   zrhsad = zrhsad + pta_ad(ji,jj,jk,jn) 
     454                  zrhsad = pta_ad(ji,jj,jk,jn) 
    455455                  pta_ad(ji,jj,jk-1,jn) = pta_ad(ji,jj,jk-1,jn) - zwi(ji,jj,jk) / zwt(ji,jj,jk-1) * pta_ad(ji,jj,jk,jn) 
    456456                  pta_ad(ji,jj,jk,jn) = 0.0_wp 
    457457                  ptb_ad(ji,jj,jk,jn) = ptb_ad(ji,jj,jk,jn) + ze3tb * zrhsad 
    458458                  pta_ad(ji,jj,jk,jn) = pta_ad(ji,jj,jk,jn) + p2dt(jk) * ze3tn * zrhsad 
    459                   zrhsad = 0.0_wp 
    460459               END DO 
    461460            END DO 
Note: See TracChangeset for help on using the changeset viewer.