Ignore:
Timestamp:
2017-08-29T16:18:37+02:00 (4 years ago)
Author:
jpalmier
Message:

JPALM — 29-08-2017 — trends bug fix TOT, ZDF, ZDP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

    r8453 r8470  
    103103            DO jn = 1, jptra 
    104104               DO jk = 1, jpkm1 
    105                   ztrtrd(:,:,jk) = ( ( tra(:,:,jk,jn)*fse3t_a(:,:,jk) - & 
    106                                         trn(:,:,jk,jn)*fse3t_b(:,:,jk) ) & 
    107                                       / (fse3t_n(:,:,jk)*r2dtra(jk)) ) - ztrtrd(:,:,jk) 
     105                  ztrtrd(:,:,jk,jn) = ( ( tra(:,:,jk,jn)*fse3t_a(:,:,jk) - & 
     106                                          trn(:,:,jk,jn)*fse3t_b(:,:,jk) ) & 
     107                                       / (fse3t_n(:,:,jk)*r2dtra(jk)) ) - ztrtrd(:,:,jk,jn) 
    108108               END DO 
    109109            END DO 
Note: See TracChangeset for help on using the changeset viewer.