Changeset 8399 for trunk


Ignore:
Timestamp:
2017-08-01T15:15:09+02:00 (4 years ago)
Author:
lovato
Message:

trunk: Add ln_top_euler control in trcnxt (#1930)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r7881 r8399  
    106106      ENDIF 
    107107      !                                ! Leap-Frog + Asselin filter time stepping 
    108       IF( neuler == 0 .AND. kt == nittrc000 ) THEN    ! Euler time-stepping at first time-step (only swap) 
     108      IF( (neuler == 0 .AND. kt == nittrc000) .OR. ln_top_euler ) THEN    ! Euler time-stepping (only swap) 
    109109         DO jn = 1, jptra 
    110110            DO jk = 1, jpkm1 
    111111               trn(:,:,jk,jn) = tra(:,:,jk,jn) 
     112               trb(:,:,jk,jn) = trn(:,:,jk,jn)   
    112113            END DO 
    113114         END DO 
Note: See TracChangeset for help on using the changeset viewer.