- Timestamp:
- 2010-09-17T14:35:46+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/step_oce.F90
r2082 r2104 2 2 !!====================================================================== 3 3 !! *** MODULE step_oce *** 4 !! Time-stepping : m anager of the ocean, tracer and icetime stepping5 !! ----------------------------------------------------------------------6 USE oce ! ocean dynamics and tracers variables7 USE dom_oce ! ocean space and time domain variables8 USE zdf_oce ! ocean vertical physics variables9 USE ldftra_oce ! ocean tracer - trends10 USE ldfdyn_oce ! ocean dynamics - trends11 USE in_out_manager ! I/O manager12 USE iom !4 !! Time-stepping : module used for the ocean time stepping 5 !!====================================================================== 6 USE oce ! ocean dynamics and tracers variables 7 USE dom_oce ! ocean space and time domain variables 8 USE zdf_oce ! ocean vertical physics variables 9 USE ldftra_oce ! ocean tracer - trends 10 USE ldfdyn_oce ! ocean dynamics - trends 11 USE in_out_manager ! I/O manager 12 USE iom ! 13 13 USE lbclnk 14 14 15 USE daymod ! calendar (day routine)15 USE daymod ! calendar (day routine) 16 16 17 USE dtatem ! ocean temperature data (dta_tem routine)18 USE dtasal ! ocean salinity data (dta_sal routine)19 USE sbcmod ! surface boundary condition (sbc routine)20 USE sbcrnf ! surface boundary condition: runoff variables21 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step)17 USE dtatem ! ocean temperature data (dta_tem routine) 18 USE dtasal ! ocean salinity data (dta_sal routine) 19 USE sbcmod ! surface boundary condition (sbc routine) 20 USE sbcrnf ! surface boundary condition: runoff variables 21 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step) 22 22 USE cpl_oasis3, ONLY : lk_cpl 23 23 24 #if defined key_top 25 USE trcstp ! passive tracer time-stepping (trc_stp routine) 26 #endif 24 USE traqsr ! solar radiation penetration (tra_qsr routine) 25 USE trasbc ! surface boundary condition (tra_sbc routine) 26 USE trabbc ! bottom boundary condition (tra_bbc routine) 27 USE trabbl ! bottom boundary layer (tra_bbl routine) 28 USE tradmp ! internal damping (tra_dmp routine) 29 USE traadv ! advection scheme control (tra_adv_ctl routine) 30 USE traldf ! lateral mixing (tra_ldf routine) 31 USE cla ! cross land advection (tra_cla routine) 32 ! zdfkpp ! KPP non-local tracer fluxes (tra_kpp routine) 33 USE trazdf ! vertical mixing (tra_zdf routine) 34 USE tranxt ! time-stepping (tra_nxt routine) 35 USE tranpc ! non-penetrative convection (tra_npc routine) 27 36 28 USE traqsr ! solar radiation penetration (tra_qsr routine) 29 USE trasbc ! surface boundary condition (tra_sbc routine) 30 USE trabbc ! bottom boundary condition (tra_bbc routine) 31 USE trabbl ! bottom boundary layer (tra_bbl routine) 32 USE tradmp ! internal damping (tra_dmp routine) 33 USE traadv ! advection scheme control (tra_adv_ctl routine) 34 USE traldf ! lateral mixing (tra_ldf routine) 35 USE cla ! cross land advection (tra_cla routine) 36 ! zdfkpp ! KPP non-local tracer fluxes (tra_kpp routine) 37 USE trazdf ! vertical mixing (tra_zdf routine) 38 USE tranxt ! time-stepping (tra_nxt routine) 39 USE tranpc ! non-penetrative convection (tra_npc routine) 37 USE eosbn2 ! equation of state (eos_bn2 routine) 40 38 41 USE eosbn2 ! equation of state (eos_bn2 routine) 39 USE dynadv ! advection (dyn_adv routine) 40 USE dynbfr ! Bottom friction terms (dyn_bfr routine) 41 USE dynvor ! vorticity term (dyn_vor routine) 42 USE dynhpg ! hydrostatic pressure grad. (dyn_hpg routine) 43 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 44 USE dynzdf ! vertical diffusion (dyn_zdf routine) 45 USE dynspg_oce ! surface pressure gradient (dyn_spg routine) 46 USE dynspg ! surface pressure gradient (dyn_spg routine) 47 USE dynnxt ! time-stepping (dyn_nxt routine) 42 48 43 USE dynadv ! advection (dyn_adv routine) 44 USE dynbfr ! Bottom friction terms (dyn_bfr routine) 45 USE dynvor ! vorticity term (dyn_vor routine) 46 USE dynhpg ! hydrostatic pressure grad. (dyn_hpg routine) 47 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 48 USE dynzdf ! vertical diffusion (dyn_zdf routine) 49 USE dynspg_oce ! surface pressure gradient (dyn_spg routine) 50 USE dynspg ! surface pressure gradient (dyn_spg routine) 51 USE dynnxt ! time-stepping (dyn_nxt routine) 49 USE obc_par ! open boundary condition variables 50 USE obcdta ! open boundary condition data (obc_dta routine) 51 USE obcrst ! open boundary cond. restart (obc_rst routine) 52 USE obcrad ! open boundary cond. radiation (obc_rad routine) 52 53 53 USE obc_par ! open boundary condition variables 54 USE obcdta ! open boundary condition data (obc_dta routine) 55 USE obcrst ! open boundary cond. restart (obc_rst routine) 56 USE obcrad ! open boundary cond. radiation (obc_rad routine) 54 USE bdy_par ! unstructured open boundary data variables 55 USE bdydta ! unstructured open boundary data (bdy_dta routine) 57 56 58 USE bdy_par ! unstructured open boundary data variables 59 USE bdydta ! unstructured open boundary data (bdy_dta routine) 57 USE sshwzv ! vertical velocity and ssh (ssh_wzv routine) 60 58 61 USE sshwzv ! vertical velocity and ssh (ssh_wzv routine) 59 USE ldfslp ! iso-neutral slopes (ldf_slp routine) 60 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 62 61 63 USE ldfslp ! iso-neutral slopes (ldf_slp routine) 64 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 62 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) 63 USE zdfbfr ! bottom friction (zdf_bfr routine) 64 USE zdftke_old ! old TKE vertical mixing (zdf_tke_old routine) 65 USE zdftke ! TKE vertical mixing (zdf_tke routine) 66 USE zdfkpp ! KPP vertical mixing (zdf_kpp routine) 67 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 68 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) 69 USE zdfric ! Richardson vertical mixing (zdf_ric routine) 70 USE zdfmxl ! Mixed-layer depth (zdf_mxl routine) 65 71 66 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) 67 USE zdfbfr ! bottom friction (zdf_bfr routine) 68 USE zdftke_old ! old TKE vertical mixing (zdf_tke_old routine) 69 USE zdftke ! TKE vertical mixing (zdf_tke routine) 70 USE zdfkpp ! KPP vertical mixing (zdf_kpp routine) 71 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 72 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) 73 USE zdfric ! Richardson vertical mixing (zdf_ric routine) 74 USE zdfmxl ! Mixed-layer depth (zdf_mxl routine) 72 USE zpshde ! partial step: hor. derivative (zps_hde routine) 75 73 76 USE zpshde ! partial step: hor. derivative (zps_hde routine) 74 USE diawri ! Standard run outputs (dia_wri routine) 75 USE trdicp ! Ocean momentum/tracers trends (trd_wri routine) 76 USE trdmld ! mixed-layer trends (trd_mld routine) 77 USE trdmld_rst ! restart for mixed-layer trends 78 USE trdmod_oce ! ocean momentum/tracers trends 79 USE trdmod ! momentum/tracers trends 80 USE trdvor ! vorticity budget (trd_vor routine) 81 USE diagap ! hor. mean model-data gap (dia_gap routine) 82 USE diahdy ! dynamic height (dia_hdy routine) 83 USE diaptr ! poleward transports (dia_ptr routine) 84 USE diaar5 ! AR5 diagnosics (dia_ar5 routine) 85 USE diahth ! thermocline depth (dia_hth routine) 86 USE diafwb ! freshwater budget (dia_fwb routine) 87 USE flo_oce ! floats variables 88 USE floats ! floats computation (flo_stp routine) 77 89 78 USE diawri ! Standard run outputs (dia_wri routine) 79 USE trdicp ! Ocean momentum/tracers trends (trd_wri routine) 80 USE trdmld ! mixed-layer trends (trd_mld routine) 81 USE trdmld_rst ! restart for mixed-layer trends 82 USE trdmod_oce ! ocean momentum/tracers trends 83 USE trdmod ! momentum/tracers trends 84 USE trdvor ! vorticity budget (trd_vor routine) 85 USE diagap ! hor. mean model-data gap (dia_gap routine) 86 USE diahdy ! dynamic height (dia_hdy routine) 87 USE diaptr ! poleward transports (dia_ptr routine) 88 USE diaar5 ! AR5 diagnosics (dia_ar5 routine) 89 USE diahth ! thermocline depth (dia_hth routine) 90 USE diafwb ! freshwater budget (dia_fwb routine) 91 USE flo_oce ! floats variables 92 USE floats ! floats computation (flo_stp routine) 90 USE stpctl ! time stepping control (stp_ctl routine) 91 USE restart ! ocean restart (rst_wri routine) 92 USE prtctl ! Print control (prt_ctl routine) 93 93 94 USE stpctl ! time stepping control (stp_ctl routine) 95 USE restart ! ocean restart (rst_wri routine) 96 USE prtctl ! Print control (prt_ctl routine) 97 98 USE traswp ! Swap arrays (tra_swp routine) 99 ! (tra_unswp routine) 94 USE traswp ! Swap arrays (tra_swp, tra_unswp routine) 100 95 101 96 #if defined key_agrif 102 97 USE agrif_opa_sponge ! Momemtum and tracers sponges 103 98 #endif 104 105 99 !!====================================================================== 106 100 END MODULE step_oce
Note: See TracChangeset
for help on using the changeset viewer.