source: NEMO/trunk/src/TOP/oce_trc.F90 @ 12377

Last change on this file since 12377 was 12377, checked in by acc, 10 months ago

The big one. Merging all 2019 developments from the option 1 branch back onto the trunk.

This changeset reproduces 2019/dev_r11943_MERGE_2019 on the trunk using a 2-URL merge
onto a working copy of the trunk. I.e.:

svn merge —ignore-ancestry \

svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/trunk \
svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/branches/2019/dev_r11943_MERGE_2019 ./

The —ignore-ancestry flag avoids problems that may otherwise arise from the fact that
the merge history been trunk and branch may have been applied in a different order but
care has been taken before this step to ensure that all applicable fixes and updates
are present in the merge branch.

The trunk state just before this step has been branched to releases/release-4.0-HEAD
and that branch has been immediately tagged as releases/release-4.0.2. Any fixes
or additions in response to tickets on 4.0, 4.0.1 or 4.0.2 should be done on
releases/release-4.0-HEAD. From now on future 'point' releases (e.g. 4.0.2) will
remain unchanged with periodic releases as needs demand. Note release-4.0-HEAD is a
transitional naming convention. Future full releases, say 4.2, will have a release-4.2
branch which fulfills this role and the first point release (e.g. 4.2.0) will be made
immediately following the release branch creation.

2020 developments can be started from any trunk revision later than this one.

  • Property svn:keywords set to Id
File size: 6.4 KB
Line 
1MODULE oce_trc
2   !!======================================================================
3   !!                      ***  MODULE  oce_trc  ***
4   !! TOP :   variables shared between ocean and passive tracers
5   !!======================================================================
6   !! History :   1.0  !  2004-03  (C. Ethe)  original code
7   !!             2.0  !  2007-12 (C. Ethe, G. Madec)  rewritting
8   !!----------------------------------------------------------------------
9   !                                            !* Domain size *
10   USE par_oce , ONLY :   jpt      =>   jpt        !: time dimension
11   USE par_oce , ONLY :   jpi      =>   jpi        !: first  dimension of grid --> i
12   USE par_oce , ONLY :   jpj      =>   jpj        !: second dimension of grid --> j 
13   USE par_oce , ONLY :   jpk      =>   jpk        !: number of levels 
14   USE par_oce , ONLY :   jpim1    =>   jpim1      !: jpi - 1
15   USE par_oce , ONLY :   jpjm1    =>   jpjm1      !: jpj - 1
16   USE par_oce , ONLY :   jpkm1    =>   jpkm1      !: jpk - 1 
17   USE par_oce , ONLY :   jpij     =>   jpij       !: jpi x jpj
18   USE par_oce , ONLY :   jp_tem   =>   jp_tem     !: indice for temperature
19   USE par_oce , ONLY :   jp_sal   =>   jp_sal     !: indice for salinity
20
21   USE in_out_manager                           !* IO manager *
22   USE timing                                   !* Timing *
23   USE lib_mpp                                  !* MPP library                         
24   USE lib_fortran                              !* Fortran utilities                         
25   USE lbclnk                                   !* Lateral boundary conditions                         
26   USE phycst                                   !* physical constants *
27   USE c1d                                      !* 1D configuration
28
29   USE dom_oce                                  !* model domain *
30
31   USE domvvl, ONLY : un_td, vn_td          !: thickness diffusion transport
32   USE domvvl, ONLY : ln_vvl_ztilde         !: ztilde vertical coordinate
33   USE domvvl, ONLY : ln_vvl_layer          !: level  vertical coordinate
34
35   !* ocean fields: here now and after fields *
36   USE oce , ONLY :   uu     =>    uu     !: i-horizontal velocity (m s-1)
37   USE oce , ONLY :   vv     =>    vv     !: j-horizontal velocity (m s-1)
38   USE oce , ONLY :   ww     =>    ww     !: vertical velocity (m s-1) 
39   USE oce , ONLY :   ts     =>    ts     !: 4D array contaning ( tn, sn )
40   USE oce , ONLY :   rhop   =>    rhop   !: potential volumic mass (kg m-3)
41   USE oce , ONLY :   rhd    =>    rhd    !: in situ density anomalie rhd=(rho-rau0)/rau0 (no units)
42   USE oce , ONLY :   hdiv   =>    hdiv   !: horizontal divergence (1/s)
43   USE oce , ONLY :   ssh    =>    ssh    !: sea surface height at t-point [m]   
44   USE oce , ONLY :   rab_n  =>    rab_n  !: local thermal/haline expension ratio at T-points
45
46   !* surface fluxes *
47   USE sbc_oce , ONLY :   utau       =>    utau       !: i-surface stress component
48   USE sbc_oce , ONLY :   vtau       =>    vtau       !: j-surface stress component
49   USE sbc_oce , ONLY :   wndm       =>    wndm       !: 10m wind speed
50   USE sbc_oce , ONLY :   qsr        =>    qsr        !: penetrative solar radiation (w m-2)
51   USE sbc_oce , ONLY :   emp        =>    emp        !: freshwater budget: volume flux               [Kg/m2/s]
52   USE sbc_oce , ONLY :   emp_b      =>    emp_b      !: freshwater budget: volume flux               [Kg/m2/s]
53   USE sbc_oce , ONLY :   fmmflx     =>    fmmflx     !: freshwater budget: volume flux               [Kg/m2/s]
54   USE sbc_oce , ONLY :   rnf        =>    rnf        !: river runoff   [Kg/m2/s]
55   USE sbc_oce , ONLY :   rnf_b      =>    rnf_b      !: river runoff at previus step   [Kg/m2/s]
56   USE sbc_oce , ONLY :   ln_dm2dc   =>    ln_dm2dc   !: Diurnal Cycle
57   USE sbc_oce , ONLY :   ln_cpl     =>    ln_cpl     !: ocean-atmosphere coupled formulation
58   USE sbc_oce , ONLY :   ncpl_qsr_freq   =>   ncpl_qsr_freq   !: qsr coupling frequency per days from atmospher
59   USE sbc_oce , ONLY :   ln_rnf     =>    ln_rnf     !: runoffs / runoff mouths
60   USE sbc_oce , ONLY :   fr_i       =>    fr_i       !: ice fraction (between 0 to 1)
61   USE sbc_oce , ONLY :   atm_co2    =>    atm_co2    !  atmospheric pCO2
62   USE traqsr  , ONLY :   rn_abs     =>    rn_abs     !: fraction absorbed in the very near surface
63   USE traqsr  , ONLY :   rn_si0     =>    rn_si0     !: very near surface depth of extinction
64   USE traqsr  , ONLY :   ln_qsr_bio =>    ln_qsr_bio !: flag to use or not the biological fluxes for light
65   USE sbcrnf  , ONLY :   rnfmsk     =>    rnfmsk     !: mixed adv scheme in runoffs vicinity (hori.)
66   USE sbcrnf  , ONLY :   rnfmsk_z   =>    rnfmsk_z   !: mixed adv scheme in runoffs vicinity (vert.)
67   USE sbcrnf  , ONLY :   h_rnf      =>    h_rnf      !: river runoff   [Kg/m2/s]
68   USE sbcrnf  , ONLY :   nk_rnf     =>    nk_rnf     !: depth of runoff in model level
69   USE sbcrnf  , ONLY :   rn_rfact   =>    rn_rfact   !: multiplicative factor for runoff
70
71   USE trc_oce
72     
73!!gm  this can be removed if :
74!!gm    in trcadv.F90 and trcsub.F90  we add a USE ldfslp
75   !* direction of lateral diffusion *
76   USE ldfslp , ONLY :   l_ldfslp  =>  l_ldfslp       !: slopes flag
77   USE ldfslp , ONLY :   uslp       =>   uslp         !: i-slope at u-point
78   USE ldfslp , ONLY :   vslp       =>   vslp         !: j-slope at v-point
79   USE ldfslp , ONLY :   wslpi      =>   wslpi        !: i-slope at w-point
80   USE ldfslp , ONLY :   wslpj      =>   wslpj        !: j-slope at w-point
81   USE ldfslp , ONLY :   ln_traldf_triad => ln_traldf_triad   !: use of triad scheme
82   USE ldfslp , ONLY :   ln_traldf_iso => ln_traldf_iso   !: use of isopycnal scheme
83!!gm end
84
85   !* vertical diffusion *
86   USE zdf_oce , ONLY :   avs        =>   avs         !: vert. diffusivity coef. for salinity    (w-point)
87   USE zdf_oce , ONLY :   avt        =>   avt         !: vert. diffusivity coef. for temperature (w-point)
88
89   !* mixing & mixed layer depth *
90   USE zdfmxl , ONLY :   nmln        =>   nmln        !: number of level in the mixed layer
91   USE zdfmxl , ONLY :   hmld        =>   hmld        !: mixing layer depth (turbocline)
92   USE zdfmxl , ONLY :   hmlp        =>   hmlp        !: mixed layer depth  (rho=rho0+zdcrit) (m)
93   USE zdfmxl , ONLY :   hmlpt       =>   hmlpt       !: mixed layer depth at t-points (m)
94   USE zdfmxl , ONLY :   avt_c       =>   avt_c       !: Kz criterion for the turbocline depth
95
96END MODULE oce_trc
Note: See TracBrowser for help on using the repository browser.