Changeset 8398


Ignore:
Timestamp:
2017-08-01T15:15:00+02:00 (4 months ago)
Author:
Tomas Lovato
Message:

3.6_stable : Add ln_top_euler control in trcnxt (#1930)

Location:
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/TRP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r7871 r8398  
    122122 
    123123      ! set time step size (Euler/Leapfrog) 
    124       IF( neuler == 0 .AND. kt ==  nittrc000 ) THEN  ;  r2dt(:) =     rdttrc(:)   ! at nittrc000             (Euler) 
     124      IF( (neuler == 0 .AND. kt == nittrc000) .OR. ln_top_euler ) THEN  ;  r2dt(:) =     rdttrc(:)   !    (Euler) 
    125125      ELSEIF( kt <= nittrc000 + nn_dttrc )     THEN  ;  r2dt(:) = 2.* rdttrc(:)   ! at nit000 or nit000+1 (Leapfrog) 
    126126      ENDIF 
     
    132132      ENDIF 
    133133      ! Leap-Frog + Asselin filter time stepping 
    134       IF( neuler == 0 .AND. kt == nittrc000 ) THEN        ! Euler time-stepping at first time-step 
     134      IF( (neuler == 0 .AND. kt == nittrc000) .OR. ln_top_euler ) THEN        ! Euler time-stepping (only swap) 
    135135         !                                                ! (only swap) 
    136136         DO jn = 1, jptra 
    137137            DO jk = 1, jpkm1 
    138138               trn(:,:,jk,jn) = tra(:,:,jk,jn) 
     139               trb(:,:,jk,jn) = trn(:,:,jk,jn)   
    139140            END DO 
    140141         END DO 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90

    r7522 r8398  
    2222   PRIVATE 
    2323 
    24    PUBLIC trc_rad         ! routine called by trcstp.F90 
     24   PUBLIC trc_rad, trc_rad_sms        ! routine called by trcstp.F90 
    2525 
    2626   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.