Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
- Property svn:eol-style deleted
r1753 r2528 6 6 !! History : 1.0 ! 2004-03 (C. Ethe) original code 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) rewritting 8 !!----------------------------------------------------------------------9 !! NEMO/TOP 2.0, LOCEAN-IPSL (2007)10 !! $Id$11 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)12 8 !!---------------------------------------------------------------------- 13 9 #if defined key_top … … 32 28 USE par_oce , ONLY : jpkdta => jpkdta !: number of levels > or = jpk 33 29 USE par_oce , ONLY : lk_esopa => lk_esopa !: flag to activate the all option 30 USE par_oce , ONLY : jp_tem => jp_tem !: indice for temperature 31 USE par_oce , ONLY : jp_sal => jp_sal !: indice for salinity 34 32 35 33 !* IO manager * 36 USE in_out_manager ! use all the variables 34 USE in_out_manager 35 37 36 !* physical constants * 38 USE phycst ! use all the variables 37 USE phycst 38 39 !* 1D configuration 40 USE c1d 39 41 40 42 !* model domain * … … 111 113 USE dom_oce , ONLY : ln_sco => ln_sco !: s-coordinate flag 112 114 USE dom_oce , ONLY : ln_zco => ln_zco !: z-coordinate flag 113 USE dom_oce , ONLY : lk_zco => lk_zco !: z-coordinate flag (1D or 3D arrays) 114 USE dom_oce , ONLY : hbatt => hbatt !: ocean depth at the vertical of t-point (m) 115 USE dom_oce , ONLY : hbatu => hbatu !: ocean depth at the vertical of u-point (m) 116 USE dom_oce , ONLY : hbatv => hbatv !: ocean depth at the vertical of w-point (m) 117 USE dom_oce , ONLY : gsigt => gsigt !: model level depth coefficient at T-levels 118 USE dom_oce , ONLY : gsigw => gsigw !: model level depth coefficient at W-levels 119 USE dom_oce , ONLY : gsi3w => gsi3w !: model level depth coef at w-levels (defined as the sum of e3w) 120 USE dom_oce , ONLY : esigt => esigt !: vertical scale factor coef. at t-levels 121 USE dom_oce , ONLY : esigw => esigw !: vertical scale factor coef. at w-levels 122 USE dom_oce , ONLY : lk_vvl => lk_vvl !: variable grid flag 123 115 USE dom_oce , ONLY : hbatt => hbatt !: ocean depth at the vertical of t-point (m) 116 USE dom_oce , ONLY : hbatu => hbatu !: ocean depth at the vertical of u-point (m) 117 USE dom_oce , ONLY : hbatv => hbatv !: ocean depth at the vertical of w-point (m) 118 USE dom_oce , ONLY : gsigt => gsigt !: model level depth coefficient at T-levels 119 USE dom_oce , ONLY : gsigw => gsigw !: model level depth coefficient at W-levels 120 USE dom_oce , ONLY : gsi3w => gsi3w !: model level depth coef at w-levels (defined as the sum of e3w) 121 USE dom_oce , ONLY : esigt => esigt !: vertical scale factor coef. at t-levels 122 USE dom_oce , ONLY : esigw => esigw !: vertical scale factor coef. at w-levels 123 USE dom_oce , ONLY : lk_vvl => lk_vvl !: variable grid flag 124 # if defined key_vvl 125 USE dom_oce , ONLY : gdep3w_1 => gdep3w_1 !: ??? 126 USE dom_oce , ONLY : gdept_1 => gdept_1 !: depth of t-points (m) 127 USE dom_oce , ONLY : gdepw_1 => gdepw_1 !: depth of t-points (m) 128 USE dom_oce , ONLY : e3t_1 => e3t_1 !: vertical scale factors at t- 129 USE dom_oce , ONLY : e3u_1 => e3u_1 !: vertical scale factors at u- 130 USE dom_oce , ONLY : e3v_1 => e3v_1 !: vertical scale factors v- 131 USE dom_oce , ONLY : e3w_1 => e3w_1 !: w-points (m) 132 USE dom_oce , ONLY : e3f_1 => e3f_1 !: f-points (m) 133 USE dom_oce , ONLY : e3uw_1 => e3uw_1 !: uw-points (m) 134 USE dom_oce , ONLY : e3vw_1 => e3vw_1 !: vw-points (m) 135 # endif 124 136 !* masks, bathymetry * 125 USE dom_oce , ONLY : mbathy => mbathy !: number of ocean level (=0, & 1, ... , jpk-1) 137 USE dom_oce , ONLY : mbkt => mbkt !: vertical index of the bottom last T- ocean level 138 USE dom_oce , ONLY : mbku => mbku !: vertical index of the bottom last U- ocean level 139 USE dom_oce , ONLY : mbkv => mbkv !: vertical index of the bottom last V- ocean level 126 140 USE dom_oce , ONLY : tmask_i => tmask_i !: Interior mask at t-points 127 141 USE dom_oce , ONLY : tmask => tmask !: land/ocean mask at t-points … … 129 143 USE dom_oce , ONLY : vmask => vmask !: land/ocean mask at v-points 130 144 USE dom_oce , ONLY : fmask => fmask !: land/ocean mask at f-points 131 # if defined key_off_degrad132 USE dom_oce , ONLY : facvol => facvol !: volume factor for degradation133 # endif134 145 135 146 !* time domain * … … 166 177 USE oce , ONLY : tn => tn !: pot. temperature (celsius) 167 178 USE oce , ONLY : sn => sn !: salinity (psu) 179 USE oce , ONLY : tsn => tsn !: 4D array contaning ( tn, sn ) 180 USE oce , ONLY : tsb => tsb !: 4D array contaning ( tb, sb ) 181 USE oce , ONLY : tsa => tsa !: 4D array contaning ( ta, sa ) 168 182 USE oce , ONLY : rhop => rhop !: potential volumic mass (kg m-3) 169 183 USE oce , ONLY : rhd => rhd !: in situ density anomalie rhd=(rho-rau0)/rau0 (no units) 170 184 USE oce , ONLY : hdivn => hdivn !: horizontal divergence (1/s) 171 #if defined key_off_tra 172 USE oce , ONLY : gtu => gtu !: t-, s- and rd horizontal gradient at u- and 173 USE oce , ONLY : gsu => gsu !: v-points at bottom ocean level 185 USE oce , ONLY : l_traldf_rot => l_traldf_rot !: rotated laplacian operator for lateral diffusion 186 #if defined key_offline 187 USE oce , ONLY : gtsu => gtsu !: t-, s- and rd horizontal gradient at u- and 188 USE oce , ONLY : gtsv => gtsv !: 174 189 USE oce , ONLY : gru => gru !: 175 USE oce , ONLY : gtv => gtv !:176 USE oce , ONLY : gsv => gsv !:177 190 USE oce , ONLY : grv => grv !: 191 # if defined key_degrad 192 USE dommsk , ONLY : facvol => facvol !: volume factor for degradation 193 # endif 194 178 195 #endif 179 USE lib_mpp , ONLY : lk_mpp => lk_mpp !: Mpp flag180 181 USE dom_oce , ONLY : n _cla => n_cla!: flag (0/1) for cross land advection196 USE lib_mpp , ONLY : lk_mpp => lk_mpp !: Mpp flag 197 198 USE dom_oce , ONLY : nn_cla => nn_cla !: flag (0/1) for cross land advection 182 199 183 200 !* surface fluxes * … … 186 203 USE sbc_oce , ONLY : wndm => wndm !: 10m wind speed 187 204 USE sbc_oce , ONLY : qsr => qsr !: penetrative solar radiation (w m-2) 188 USE sbc_oce , ONLY : emp => emp !: evaporation minus precipitation (kg m-2 s-2) 189 USE sbc_oce , ONLY : emps => emps !: evaporation minus precipitation (kg m-2 s-2) 205 USE sbc_oce , ONLY : emp => emp !: freshwater budget: volume flux [Kg/m2/s] 206 USE sbc_oce , ONLY : emps => emps !: freshwater budget: concentration/dillution [Kg/m2/s] 207 USE sbc_oce , ONLY : rnf => rnf !: river runoff [Kg/m2/s] 208 USE sbc_oce , ONLY : ln_dm2dc => ln_dm2dc !: Daily mean to Diurnal Cycle short wave (qsr) 209 USE sbc_oce , ONLY : ln_rnf => ln_rnf !: runoffs / runoff mouths 190 210 USE sbc_oce , ONLY : fr_i => fr_i !: ice fraction (between 0 to 1) 191 211 USE traqsr , ONLY : rn_abs => rn_abs !: fraction absorbed in the very near surface 192 212 USE traqsr , ONLY : rn_si0 => rn_si0 !: very near surface depth of extinction 193 USE traqsr , ONLY : rn_si2 => rn_si2 !: deepest depth of extinction (blue & 0.01 mg.m-3) (RGB)194 213 USE traqsr , ONLY : ln_qsr_bio => ln_qsr_bio !: flag to use or not the biological fluxes for light 195 214 USE sbcrnf , ONLY : rnfmsk => rnfmsk !: mixed adv scheme in runoffs vicinity (hori.) 196 215 USE sbcrnf , ONLY : rnfmsk_z => rnfmsk_z !: mixed adv scheme in runoffs vicinity (vert.) 197 216 198 !* bottom boundary layer * 199 # if defined key_trabbl_dif || defined key_trabbl_adv 200 # if ! defined key_off_tra 201 USE trabbl , ONLY : atrbbl => rn_ahtbbl !: lateral coeff. for bottom boundary layer scheme (m2/s) 202 # else 203 USE trabbl, ONLY : bblx => bblx !: ??? 204 USE trabbl, ONLY : bbly => bbly !: ??? 205 # endif 206 # endif 217 USE trc_oce 207 218 208 219 !* lateral diffusivity (tracers) * … … 221 232 USE zdf_oce , ONLY : avt => avt !: vert. diffusivity coef. at w-point for temp 222 233 # if defined key_zdfddm 223 USE zdfddm , ONLY : avs => 234 USE zdfddm , ONLY : avs => avs !: salinity vertical diffusivity coeff. at w-point 224 235 # endif 225 236 … … 245 256 #endif 246 257 258 !!---------------------------------------------------------------------- 259 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 260 !! $Id$ 261 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 247 262 !!====================================================================== 248 263 END MODULE oce_trc
Note: See TracChangeset
for help on using the changeset viewer.