Changeset 8398
- Timestamp:
- 2017-08-01T15:15:00+02:00 (7 years ago)
- 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 122 122 123 123 ! 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) 125 125 ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN ; r2dt(:) = 2.* rdttrc(:) ! at nit000 or nit000+1 (Leapfrog) 126 126 ENDIF … … 132 132 ENDIF 133 133 ! Leap-Frog + Asselin filter time stepping 134 IF( neuler == 0 .AND. kt == nittrc000 ) THEN ! Euler time-stepping at first time-step134 IF( (neuler == 0 .AND. kt == nittrc000) .OR. ln_top_euler ) THEN ! Euler time-stepping (only swap) 135 135 ! ! (only swap) 136 136 DO jn = 1, jptra 137 137 DO jk = 1, jpkm1 138 138 trn(:,:,jk,jn) = tra(:,:,jk,jn) 139 trb(:,:,jk,jn) = trn(:,:,jk,jn) 139 140 END DO 140 141 END DO -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90
r7522 r8398 22 22 PRIVATE 23 23 24 PUBLIC trc_rad 24 PUBLIC trc_rad, trc_rad_sms ! routine called by trcstp.F90 25 25 26 26 !! * Substitutions
Note: See TracChangeset
for help on using the changeset viewer.