- Timestamp:
- 2018-01-05T18:13:56+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r8059 r9189 121 121 IF( lk_bdy ) CALL bdy_tra( kt ) ! BDY open boundaries 122 122 #endif 123 124 ! set time step size (Euler/Leapfrog) 125 IF( neuler == 0 .AND. kt == nit000 ) THEN ; r2dtra(:) = rdttra(:) ! at nit000 (Euler) 126 ELSEIF( kt <= nit000 + 1 ) THEN ; r2dtra(:) = 2._wp* rdttra(:) ! at nit000 or nit000+1 (Leapfrog) 127 ENDIF 123 128 124 129 #if ( ! defined key_lim3 && ! defined key_lim2 && ! key_cice ) … … 151 156 #endif 152 157 153 ! set time step size (Euler/Leapfrog)154 IF( neuler == 0 .AND. kt == nit000 ) THEN ; r2dtra(:) = rdttra(:) ! at nit000 (Euler)155 ELSEIF( kt <= nit000 + 1 ) THEN ; r2dtra(:) = 2._wp* rdttra(:) ! at nit000 or nit000+1 (Leapfrog)156 ENDIF157 158 158 ! trends computation initialisation 159 159 IF( l_trdtra ) THEN ! store now fields before applying the Asselin filter
Note: See TracChangeset
for help on using the changeset viewer.