Changeset 6043 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
- Timestamp:
- 2015-12-14T10:27:28+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r5600 r6043 4 4 !! Ocean time-stepping : module used in both initialisation phase and time stepping 5 5 !!====================================================================== 6 !! History : 3.3 ! 2010-08 (C. Ethe) Original code - reorganisation of the initial phase 6 !! History : 3.3 ! 2010-08 (C. Ethe) Original code - reorganisation of the initial phase 7 !! 3.7 ! 2014-01 (G. Madec) LDF simplication 7 8 !!---------------------------------------------------------------------- 8 9 USE oce ! ocean dynamics and tracers variables 9 10 USE dom_oce ! ocean space and time domain variables 10 11 USE zdf_oce ! ocean vertical physics variables 11 USE ldftra_oce ! ocean tracer - trends12 USE ldfdyn_oce ! ocean dynamics - trends13 USE divcur ! hor. divergence and curl (div & cur routines)14 USE in_out_manager ! I/O manager15 USE iom !16 USE lbclnk17 USE restart ! restart18 #if defined key_iomput19 USE xios20 #endif21 12 22 13 USE daymod ! calendar (day routine) 23 14 15 USE sbc_oce ! surface boundary condition: ocean 24 16 USE sbcmod ! surface boundary condition (sbc routine) 25 17 USE sbcrnf ! surface boundary condition: runoff variables 26 18 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step) 27 USE sbc _oce ! surface boundary condition: ocean19 USE sbcapr ! surface boundary condition: atmospheric pressure 28 20 USE sbctide ! Tide initialisation 29 USE sbcapr ! surface boundary condition: ssh_ib required by bdydta30 21 31 22 USE traqsr ! solar radiation penetration (tra_qsr routine) … … 36 27 USE traadv ! advection scheme control (tra_adv_ctl routine) 37 28 USE traldf ! lateral mixing (tra_ldf routine) 38 ! zdfkpp ! KPP non-local tracer fluxes (tra_kpp routine)39 29 USE trazdf ! vertical mixing (tra_zdf routine) 40 30 USE tranxt ! time-stepping (tra_nxt routine) … … 43 33 USE eosbn2 ! equation of state (eos_bn2 routine) 44 34 35 USE divhor ! horizontal divergence (div_hor routine) 45 36 USE dynadv ! advection (dyn_adv routine) 46 37 USE dynbfr ! Bottom friction terms (dyn_bfr routine) … … 49 40 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 50 41 USE dynzdf ! vertical diffusion (dyn_zdf routine) 51 USE dynspg_oce ! surface pressure gradient (dyn_spg routine)52 42 USE dynspg ! surface pressure gradient (dyn_spg routine) 53 USE dynnept ! simp. form of Neptune effect(dyn_nept_cor routine)54 43 55 44 USE dynnxt ! time-stepping (dyn_nxt routine) … … 71 60 72 61 USE ldfslp ! iso-neutral slopes (ldf_slp routine) 73 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 74 USE ldftra_smag ! Smagirinsky diffusion (ldftra_smag routine) 75 USE ldfdyn_smag ! Smagorinsky viscosity (ldfdyn_smag routine) 62 USE ldfdyn ! lateral eddy viscosity coef. (ldf_dyn routine) 63 USE ldftra ! lateral eddy diffusive coef. (ldf_tra routine) 76 64 77 65 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) … … 79 67 USE zdftke ! TKE vertical mixing (zdf_tke routine) 80 68 USE zdfgls ! GLS vertical mixing (zdf_gls routine) 81 USE zdfkpp ! KPP vertical mixing (zdf_kpp routine)82 69 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 83 70 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) … … 104 91 USE asmbkg 105 92 USE stpctl ! time stepping control (stp_ctl routine) 93 USE restart ! ocean restart (rst_wri routine) 106 94 USE prtctl ! Print control (prt_ctl routine) 107 95 108 96 USE diaobs ! Observation operator 109 97 98 USE in_out_manager ! I/O manager 99 USE iom ! 100 USE lbclnk 110 101 USE timing ! Timing 111 102 103 #if defined key_iomput 104 USE xios 105 #endif 112 106 #if defined key_agrif 113 107 USE agrif_opa_sponge ! Momemtum and tracers sponges 108 USE agrif_opa_update ! Update (2-way nesting) 114 109 #endif 115 110 #if defined key_top … … 117 112 #endif 118 113 !!---------------------------------------------------------------------- 119 !! NEMO/OPA 3. 3 , NEMO Consortium (2010)114 !! NEMO/OPA 3.7 , NEMO Consortium (2014) 120 115 !! $Id$ 121 116 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.