- Timestamp:
- 2019-07-17T15:29:15+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/step.F90
r10728 r11277 25 25 !! 3.4 ! 2011-04 (G. Madec, C. Ethe) Merge of dtatem and dtasal 26 26 !! ! 2012-07 (J. Simeon, G. Madec, C. Ethe) Online coarsening of outputs 27 !! 3.6 ! 2014-10 (E. Clementi, P. Oddo) Add Qiao vertical mixing in case of waves 27 28 !! 3.7 ! 2014-04 (F. Roquet, G. Madec) New equations of state 28 29 !!---------------------------------------------------------------------- … … 72 73 !! -8- Outputs and diagnostics 73 74 !!---------------------------------------------------------------------- 74 INTEGER :: j k! dummy loop indice75 INTEGER :: ji,jj,jk ! dummy loop indice 75 76 INTEGER :: indic ! error indicator if < 0 76 77 INTEGER :: kcall ! optional integer argument (dom_vvl_sf_nxt) … … 105 106 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 106 107 IF( lk_tide ) CALL sbc_tide( kstp ) 107 IF( lk_bdy ) THEN 108 IF( ln_apr_dyn) CALL sbc_apr( kstp ) ! bdy_dta needs ssh_ib 109 CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic & tracer data at open boundaries 110 ENDIF 111 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 108 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 112 109 ! clem: moved here for bdy ice purpose 113 110 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 132 129 IF( lk_zdftke ) CALL zdf_tke( kstp ) ! TKE closure scheme for Kz 133 130 IF( lk_zdfgls ) CALL zdf_gls( kstp ) ! GLS closure scheme for Kz 131 IF( ln_zdfqiao ) CALL zdf_qiao( kstp ) ! Qiao vertical mixing 132 ! 134 133 IF( lk_zdfkpp ) CALL zdf_kpp( kstp ) ! KPP closure scheme for Kz 135 134 IF( lk_zdfcst ) THEN ! Constant Kz (reset avt, avm[uv] to the background value) … … 399 398 CALL ctl_stop( 'step: indic < 0' ) 400 399 CALL dia_wri_state( 'output.abort', kstp ) 400 CALL ctl_stop('STOP','NEMO failure in stp') 401 401 ENDIF 402 402 IF( ln_harm_ana_store ) CALL harm_ana( kstp ) ! Harmonic analysis of tides … … 411 411 ! Coupled mode 412 412 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 413 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges413 !IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 414 414 ! 415 415 #if defined key_iomput
Note: See TracChangeset
for help on using the changeset viewer.