Ignore:
Timestamp:
2017-09-18T18:36:54+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — trdtrc — found ATF trend bug relative to TRC case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

    r8333 r8535  
    4949   USE agrif_opa_interp 
    5050#endif 
     51 
    5152 
    5253   IMPLICIT NONE 
     
    314315      IF( kt == kit000 )  THEN 
    315316         IF(lwp) WRITE(numout,*) 
    316          IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype 
     317         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping ', cdtype 
    317318         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    318319      ENDIF 
     
    340341      DO jn = 1, kjpt       
    341342         DO jk = 1, jpkm1 
    342             zfact = 1._wp / r2dtra(jk) 
     343            !! zfact = 1._wp / r2dtra(jk) 
     344            zfact = 0.5_wp *p2dt(jk) 
    343345            zfact1 = atfp * p2dt(jk) 
    344346            zfact2 = zfact1 / rau0 
Note: See TracChangeset for help on using the changeset viewer.