Changeset 201 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2004-12-22T16:50:26+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/oce_trc.F90
r186 r201 41 41 lwp => lwp , & !: boolean term for mpp output 42 42 l_ctl => l_ctl , & !: = ln_ctl.AND.lwp (print control on the 1st proc) 43 nictl => nictl , & !: = max i indice to make the control SUM 44 njctl => njctl , & !: = max j indice to make the control SUM 43 45 numout => numout, & !: logical unit for output print 44 46 numwrs => numwrs !: logical unit for output restart … … 47 49 USE in_out_manager , ONLY : & 48 50 nstop => nstop , & !: e r r o r flag (=number of reason for a 49 ! 51 ! ! prematurely stop the run) 50 52 nwarn => nwarn , & !: w a r n i n g flag (=number of warning 51 ! 53 ! ! found during the run) 52 54 cform_err => cform_err, & !: 53 cform_war => cform_war 55 cform_war => cform_war !: 54 56 55 57 USE dom_oce , ONLY : & … … 109 111 lk_mpp => lk_mpp !: Mpp flag 110 112 113 USE dynspg_fsc , ONLY : & 114 lk_dynspg_fsc => lk_dynspg_fsc !: free surface constant volume flag 115 116 USE dynspg_fsc_atsk , ONLY : & 117 lk_dynspg_fsc_tsk => lk_dynspg_fsc_tsk !: free surface constant volume flag 118 111 119 #if defined key_partial_steps 112 120 !! Partial steps ('key_partial_steps') … … 124 132 e3vw_ps => e3vw_ps !: vw-points (m) 125 133 126 #endif 134 USE oce , ONLY : & 135 gtu => gtu , & !: t- horizontal gradient at u- 136 gtv => gtv !: and v-points at bottom ocean level 137 #endif 138 127 139 #if defined key_s_coord 128 140 USE dom_oce , ONLY : & … … 136 148 esigt => esigt , & !: vertical scale factor coef. at t-levels 137 149 esigw => esigw !: vertical scale factor coef. at w-levels 138 139 150 #endif 140 151 … … 200 211 atrbbl => atrbbl !: lateral coeff. for bottom boundary layer scheme (m2/s) 201 212 #endif 213 214 !! Bottom boundary Layer velocities 215 #if defined key_trcbbl_adv 216 USE trcbbl , ONLY : & 217 u_trc_bbl => u_trc_bbl , & !: velocity involved in exhanges in the advective BBL 218 v_trc_bbl => v_trc_bbl , & !: " " " 219 w_trc_bbl => w_trc_bbl !: vertical increment of velocity due to advective BBL 220 #endif 221 202 222 !! lateral diffusivity (tracers) 203 223 USE ldftra_oce , ONLY : & … … 223 243 avs => avs !: salinity vertical diffusivity coeff. at w-point 224 244 #endif 245 225 246 !! penetrative solar radiation 226 247 USE traqsr , ONLY : & … … 255 276 wslpj => wslpj !: j-direction slope at v-, w-points 256 277 #endif 278 257 279 !! ocean forcings runoff 258 280 USE flxrnf , ONLY : &
Note: See TracChangeset
for help on using the changeset viewer.