Changeset 9189 for branches/UKMO
- Timestamp:
- 2018-01-05T18:13:56+01:00 (6 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 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 -
branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/step.F90
r9180 r9189 375 375 CALL ssh_swp( kstp ) ! swap of sea surface height 376 376 IF( lk_vvl ) CALL dom_vvl_sf_swp( kstp ) ! swap of vertical scale factors 377 !378 377 379 378 #if defined key_agrif … … 405 404 IF( lwm.AND.numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice 406 405 ENDIF 407 IF( lrst_oce ) CALL rst_write ( kstp )! write output ocean restart file406 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 408 407 409 408 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.