- Timestamp:
- 2015-07-16T13:55:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r5601 r5602 84 84 IF( kt == nittrc000 ) CALL trc_adv_ctl ! initialisation & control of options 85 85 86 IF( ln_top_euler) THEN 87 r2dt(:) = rdttrc(:) ! = rdttrc (use Euler time stepping) 88 ELSE 89 IF( neuler == 0 .AND. kt == nittrc000 ) THEN ! at nittrc000 90 r2dt(:) = rdttrc(:) ! = rdttrc (restarting with Euler time stepping) 91 ELSEIF( kt <= nittrc000 + 1 ) THEN ! at nittrc000 or nittrc000+1 92 r2dt(:) = 2. * rdttrc(:) ! = 2 rdttrc (leapfrog) 93 ENDIF 86 IF( ( neuler == 0 .AND. kt == nittrc000 ) .OR. ln_top_euler ) THEN ! at nittrc000 87 r2dt(:) = rdttrc(:) ! = rdttrc (use or restarting with Euler time stepping) 88 ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN ! at nittrc000 or nittrc000+1 89 r2dt(:) = 2. * rdttrc(:) ! = 2 rdttrc (leapfrog) 94 90 ENDIF 95 96 91 ! ! effective transport 97 92 DO jk = 1, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.