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 9163 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90 – NEMO

Ignore:
Timestamp:
2017-12-22T13:26:37+01:00 (6 years ago)
Author:
frrh
Message:

Add code from Julien Palmieri's Met Office GMED ticket 338.
This incorporates code from branches/NERC/dev_r5518_GO6_package_trdtrc
revisions 8454:9020 inclusive.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

    r8333 r9163  
    4949   USE agrif_opa_interp 
    5050#endif 
     51 
    5152 
    5253   IMPLICIT NONE 
    … …  
    340341      DO jn = 1, kjpt       
    341342         DO jk = 1, jpkm1 
    342             zfact = 1._wp / r2dtra(jk) 
     343            zfact  = 0.5_wp / p2dt(jk) 
    343344            zfact1 = atfp * p2dt(jk) 
    344345            zfact2 = zfact1 / rau0 
Note: See TracChangeset for help on using the changeset viewer.