New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6827 for branches/2016/dev_r6409_SIMPLIF_2_usrdef_tools/NEMOGCM/NEMO/OPA_SRC/step_oce.F90 – NEMO

Ignore:
Timestamp:
2016-08-01T15:37:15+02:00 (8 years ago)
Author:
flavoni
Message:

#1692 - branch SIMPLIF_2_usrdef: commit routines Fortran to create domain_cfg.nc file, to have domain (input) files for new simplification branch. To be moved in TOOLS directory

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef_tools/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r6140 r6827  
    99   USE oce              ! ocean dynamics and tracers variables 
    1010   USE dom_oce          ! ocean space and time domain variables 
    11    USE zdf_oce          ! ocean vertical physics variables 
    1211 
    1312   USE daymod           ! calendar                         (day     routine) 
    1413 
    15    USE sbc_oce          ! surface boundary condition: ocean 
    16    USE sbcmod           ! surface boundary condition       (sbc     routine) 
    17    USE sbcrnf           ! surface boundary condition: runoff variables 
    18    USE sbccpl           ! surface boundary condition: coupled formulation (call send at end of step) 
    19    USE sbcapr           ! surface boundary condition: atmospheric pressure 
    20    USE sbctide          ! Tide initialisation 
    21  
    22    USE traqsr           ! solar radiation penetration      (tra_qsr routine) 
    23    USE trasbc           ! surface boundary condition       (tra_sbc routine) 
    24    USE trabbc           ! bottom boundary condition        (tra_bbc routine) 
    25    USE trabbl           ! bottom boundary layer            (tra_bbl routine) 
    26    USE tradmp           ! internal damping                 (tra_dmp routine) 
    27    USE traadv           ! advection scheme control     (tra_adv_ctl routine) 
    28    USE traldf           ! lateral mixing                   (tra_ldf routine) 
    29    USE trazdf           ! vertical mixing                  (tra_zdf routine) 
    30    USE tranxt           ! time-stepping                    (tra_nxt routine) 
    31    USE tranpc           ! non-penetrative convection       (tra_npc routine) 
    32  
    3314   USE eosbn2           ! equation of state                (eos_bn2 routine) 
    3415 
    35    USE divhor           ! horizontal divergence            (div_hor routine) 
    36    USE dynadv           ! advection                        (dyn_adv routine) 
    37    USE dynbfr           ! Bottom friction terms            (dyn_bfr routine) 
    38    USE dynvor           ! vorticity term                   (dyn_vor routine) 
    39    USE dynhpg           ! hydrostatic pressure grad.       (dyn_hpg routine) 
    40    USE dynldf           ! lateral momentum diffusion       (dyn_ldf routine) 
    41    USE dynzdf           ! vertical diffusion               (dyn_zdf routine) 
    42    USE dynspg           ! surface pressure gradient        (dyn_spg routine) 
    43  
    44    USE dynnxt           ! time-stepping                    (dyn_nxt routine) 
    45  
    46    USE stopar           ! Stochastic parametrization       (sto_par routine) 
    47    USE stopts  
    48  
    49    USE bdy_par          ! for lk_bdy 
    50    USE bdy_oce          ! for dmp logical 
    51    USE bdydta           ! open boundary condition data     (bdy_dta routine) 
    52    USE bdytra           ! bdy cond. for tracers            (bdy_tra routine) 
    53    USE bdydyn3d         ! bdy cond. for baroclinic vel.  (bdy_dyn3d routine) 
    54  
    55    USE sshwzv           ! vertical velocity and ssh        (ssh_nxt routine) 
    56    !                                                       (ssh_swp routine) 
    57    !                                                       (wzv     routine) 
    58    USE domvvl           ! variable vertical scale factors  (dom_vvl_sf_nxt routine) 
    59    !                                                       (dom_vvl_sf_swp routine) 
    60  
    61    USE ldfslp           ! iso-neutral slopes               (ldf_slp routine) 
    62    USE ldfdyn           ! lateral eddy viscosity coef.     (ldf_dyn routine) 
    63    USE ldftra           ! lateral eddy diffusive coef.     (ldf_tra routine) 
    64  
    65    USE zdftmx           ! tide-induced vertical mixing     (zdf_tmx routine) 
    66    USE zdfbfr           ! bottom friction                  (zdf_bfr routine) 
    67    USE zdftke           ! TKE vertical mixing              (zdf_tke routine) 
    68    USE zdfgls           ! GLS vertical mixing              (zdf_gls routine) 
    69    USE zdfddm           ! double diffusion mixing          (zdf_ddm routine) 
    70    USE zdfevd           ! enhanced vertical diffusion      (zdf_evd routine) 
    71    USE zdfric           ! Richardson vertical mixing       (zdf_ric routine) 
    72    USE zdfmxl           ! Mixed-layer depth                (zdf_mxl routine) 
    73  
    74    USE step_diu        ! Time stepping for diurnal sst 
    75    USE diurnal_bulk    ! diurnal SST bulk routines  (diurnal_sst_takaya routine)  
    76    USE cool_skin       ! diurnal cool skin correction (diurnal_sst_coolskin routine)    
    77    USE sbc_oce         ! surface fluxes   
    78     
    79    USE zpshde           ! partial step: hor. derivative     (zps_hde routine) 
    80  
    81    USE diawri           ! Standard run outputs             (dia_wri routine) 
    82    USE diaptr           ! poleward transports              (dia_ptr routine) 
    83    USE diadct           ! sections transports              (dia_dct 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 diahsb           ! heat, salt and volume budgets    (dia_hsb routine) 
    88    USE diaharm 
    89    USE diacfl 
    90    USE flo_oce          ! floats variables 
    91    USE floats           ! floats computation               (flo_stp routine) 
    92  
    93    USE crsfld           ! Standard output on coarse grid   (crs_fld routine) 
    94  
    95    USE asminc           ! assimilation increments      (tra_asm_inc routine) 
    96    !                                                   (dyn_asm_inc routine) 
    97    USE asmbkg 
    98    USE stpctl           ! time stepping control            (stp_ctl routine) 
    99    USE restart          ! ocean restart                    (rst_wri routine) 
    10016   USE prtctl           ! Print control                    (prt_ctl routine) 
    101  
    102    USE diaobs           ! Observation operator 
    10317 
    10418   USE in_out_manager   ! I/O manager 
    … …  
    11024   USE xios 
    11125#endif 
    112 #if defined key_agrif 
    113    USE agrif_opa_sponge ! Momemtum and tracers sponges 
    114    USE agrif_opa_update ! Update (2-way nesting) 
    115 #endif 
    116 #if defined key_top 
    117    USE trcstp           ! passive tracer time-stepping      (trc_stp routine) 
    118 #endif 
    11926   !!---------------------------------------------------------------------- 
    12027   !! NEMO/OPA 3.7 , NEMO Consortium (2014) 
Note: See TracChangeset for help on using the changeset viewer.