- Timestamp:
- 2017-10-25T14:46:18+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/OPA_SRC/step.F90
r8280 r8657 103 103 IF( ln_crs ) CALL iom_setkt( kstp - nit000 + 1, TRIM(cxios_context)//"_crs" ) ! tell iom we are at time step kstp 104 104 105 IF( ln_bias ) CALL bias_opn( kstp ) 106 105 107 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 106 108 ! Update data, open boundaries, surface boundary condition (including sea-ice) … … 267 269 IF( lk_trabbl ) CALL tra_bbl ( kstp ) ! advective (and/or diffusive) bottom boundary layer scheme 268 270 IF( ln_tradmp ) CALL tra_dmp ( kstp ) ! internal damping trends 271 IF( ln_bias ) CALL tra_bias ( kstp ) 269 272 IF( lk_bdy ) CALL bdy_tra_dmp( kstp ) ! bdy damping trends 270 273 CALL tra_adv ( kstp ) ! horizontal & vertical advection … … 290 293 & rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv , & 291 294 & gtui, gtvi, grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi ) ! of t, s, rd at the last ocean level 295 IF( ln_bias ) CALL dyn_bias( kstp ) 292 296 ELSE ! centered hpg (eos then time stepping) 293 297 IF ( .NOT. lk_dynspg_ts ) THEN ! eos already called in time-split case … … 303 307 IF( ln_zdfnpc ) CALL tra_npc( kstp ) ! update after fields by non-penetrative convection 304 308 CALL tra_nxt( kstp ) ! tracer fields at next time step 309 IF( ln_bias ) CALL dyn_bias( kstp ) 305 310 ENDIF 306 311 … … 377 382 ENDIF 378 383 384 385 IF( lrst_bias ) CALL bias_wrt ( kstp ) 386 379 387 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 380 388 ! Coupled mode
Note: See TracChangeset
for help on using the changeset viewer.