- Timestamp:
- 2015-06-15T09:32:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_zenv_wr_direct_dwl_temp/NEMOGCM/NEMO/OPA_SRC/step.F90
r5389 r5417 100 100 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 101 101 IF( lk_tide ) CALL sbc_tide( kstp ) 102 IF( lk_bdy ) CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic & tracer data at open boundaries 102 103 103 104 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 104 105 ! clem: moved here for bdy ice purpose 105 IF ( ln_shelf_flx .AND. &106 & .NOT. ln_apr_dyn) CALL inv( kstp ) ! modification to vel from atmos pres107 IF( lk_bdy ) CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic & tracer data at open boundaries108 106 109 107 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 245 243 CALL tra_sbc ( kstp ) ! surface boundary condition 246 244 IF( ln_traqsr ) CALL tra_qsr ( kstp ) ! penetrative solar radiation qsr 247 IF( ln_tradwl ) CALL tra_dwl ( kstp ) ! Polcoms Style Short Wave Radiation248 245 IF( ln_trabbc ) CALL tra_bbc ( kstp ) ! bottom heat flux 249 246 IF( lk_trabbl ) CALL tra_bbl ( kstp ) ! advective (and/or diffusive) bottom boundary layer scheme
Note: See TracChangeset
for help on using the changeset viewer.