Ignore:
Timestamp:
2017-09-20T13:07:27+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — trdtrc — fix tran_xt_vvl for ATF trend

File:
1 edited

Legend:

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

    r8535 r8549  
    315315      IF( kt == kit000 )  THEN 
    316316         IF(lwp) WRITE(numout,*) 
    317          IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping ', cdtype 
     317         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype 
    318318         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    319319      ENDIF 
     
    341341      DO jn = 1, kjpt       
    342342         DO jk = 1, jpkm1 
    343             !! zfact = 1._wp / r2dtra(jk) 
    344             zfact = 0.5_wp *p2dt(jk) 
     343            zfact  = 0.5_wp / p2dt(jk) 
    345344            zfact1 = atfp * p2dt(jk) 
    346345            zfact2 = zfact1 / rau0 
Note: See TracChangeset for help on using the changeset viewer.