Changeset 499 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2006-09-12T13:08:32+02:00 (18 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/oce_trc.F90
r433 r499 31 31 32 32 33 !! namelist parameters34 USE in_out_manager , ONLY : &35 cexper => cexper, & !: experience name for vairmer format36 no => no , & !: job number37 nrstdt => nrstdt, & !: control of the time step (0, & 1 or 2)38 nit000 => nit000, & !: number of the first time step39 nitend => nitend, & !: number of the last time step40 nleapy => nleapy, & !: Leap year calendar (0/1)41 nwrite => nwrite, & !: frequency of OUTPUT file42 nstock => nstock, & !: frequency of restart file43 nprint => nprint, & !: level of print (0 no print)44 lwp => lwp , & !: boolean term for mpp output45 ln_ctl => ln_ctl, & !: = ln_ctl.AND.lwp (print control on the 1st proc)46 nictls => nictls, & !: Start i indice for the SUM control47 nictle => nictle, & !: End i indice for the SUM control48 njctls => njctls, & !: Start j indice for the SUM control49 njctle => njctle, & !: End j indice for the SUM control50 isplt => isplt , & !: number of processors following i51 jsplt => jsplt , & !: number of processors following j52 ijsplt => ijsplt, & !: nb of local domain = nb of processors53 numout => numout !: logical unit for output print54 55 56 33 !! run controm 57 USE in_out_manager , ONLY : & 58 nstop => nstop , & !: e r r o r flag (=number of reason for a 59 ! ! prematurely stop the run) 60 nwarn => nwarn , & !: w a r n i n g flag (=number of warning 61 ! ! found during the run) 62 cform_err => cform_err, & !: 63 cform_war => cform_war !: 34 35 USE in_out_manager 64 36 65 37 USE dom_oce , ONLY : & … … 76 48 USE dom_oce , ONLY : & 77 49 nperio => nperio, & !: type of lateral boundary condition 78 nlci => nlci , & !: index i for the sub domain left bottom79 nlcj => nlcj , & !: index j for the sub domain left bottom80 50 nimpp => nimpp , & !: i index for mpp-subdomain left bottom 81 51 njmpp => njmpp , & !: j index for mpp-subdomain left bottom … … 128 98 !! vertical coordinate and scale factors 129 99 USE dom_oce , ONLY : & 130 gdept => gdept , & !: reference depth of t-points (m) 131 e3t => e3t , & !: reference depth of t-points (m) 132 e3w => e3w , & !: reference depth of w-points (m) 133 gdepw => gdepw !: reference depth of w-points (m) 100 gdept_0 => gdept_0 , & !: reference depth of t-points (m) 101 e3t_0 => e3t_0 , & !: reference depth of t-points (m) 102 e3w_0 => e3w_0 , & !: reference depth of w-points (m) 103 gdepw_0 => gdepw_0 !: reference depth of w-points (m) 104 105 #if ! defined key_zco 106 USE dom_oce , ONLY : & 107 gdep3w => gdep3w , & !: ??? 108 gdept => gdept, & !: depth of t-points (m) 109 gdepw => gdepw, & !: depth of t-points (m) 110 e3t => e3t , & !: vertical scale factors at t- 111 e3u => e3u , & !: vertical scale factors at u- 112 e3v => e3v , & !: vertical scale factors v- 113 e3w => e3w , & !: w-points (m) 114 e3f => e3f , & !: f-points (m) 115 e3uw => e3uw , & !: uw-points (m) 116 e3vw => e3vw !: vw-points (m) 117 #endif 134 118 135 119 USE dom_oce , ONLY : & 136 lk_zps => lk_zps , & !: partial steps flag 137 lk_sco => lk_sco , & !: s-coordinate flag 138 lk_zco => lk_zco !: z-coordinate flag 120 ln_zps => ln_zps , & !: partial steps flag 121 ln_sco => ln_sco , & !: s-coordinate flag 122 ln_zco => ln_zco , & !: z-coordinate flag 123 lk_zco => lk_zco !: z-coordinate flag (1D or 3D arrays) 139 124 140 125 USE lib_mpp , ONLY : & … … 143 128 USE dynspg_oce , ONLY : & 144 129 lk_dynspg_rl => lk_dynspg_rl !: rigid lid flag 145 146 #if defined key_partial_steps147 !! Partial steps ('key_partial_steps')148 !! -----------------------------------149 USE dom_oce , ONLY : &150 gdep3w => gdep3w , & !: ???151 gdept_ps => gdept_ps, & !: depth of t-points (m)152 gdepw_ps => gdepw_ps, & !: depth of t-points (m)153 e3t_ps => e3t_ps , & !: vertical scale factors at t-154 e3u_ps => e3u_ps , & !: vertical scale factors at u-155 e3v_ps => e3v_ps , & !: vertical scale factors v-156 e3w_ps => e3w_ps , & !: w-points (m)157 e3f_ps => e3f_ps , & !: f-points (m)158 e3uw_ps => e3uw_ps , & !: uw-points (m)159 e3vw_ps => e3vw_ps !: vw-points (m)160 130 161 131 USE oce , ONLY : & 162 132 gtu => gtu , & !: t- horizontal gradient at u- 163 133 gtv => gtv !: and v-points at bottom ocean level 164 #endif 165 166 #if defined key_s_coord 134 167 135 USE dom_oce , ONLY : & 168 136 hbatt => hbatt , & !: ocean depth at the vertical of t-point (m) … … 174 142 esigt => esigt , & !: vertical scale factor coef. at t-levels 175 143 esigw => esigw !: vertical scale factor coef. at w-levels 176 #endif177 144 178 145 !! masks, bathymetry … … 184 151 vmask => vmask , & !: land/ocean mask at v-points 185 152 fmask => fmask !: land/ocean mask at f-points 153 154 #if defined key_off_degrad 155 USE dom_oce , ONLY : & 156 facvol => facvol !: volume factor for degradation 157 #endif 186 158 187 159 USE dom_oce , ONLY : & … … 270 242 avt => avt , & !: vert. diffusivity coef. at w-point for temp 271 243 avt0 => avt0 , & !: vertical eddy diffusivity for tracers (m2/s) 272 #if ! defined key_off_tra273 l_trazdf_exp => l_trazdf_exp , & !: explicit vertical diffusion scheme flag274 #endif275 244 ln_zdfnpc => ln_zdfnpc !: convection: non-penetrative convection flag 276 245 -
trunk/NEMO/TOP_SRC/passivetrc_substitute.h90
r274 r499 12 12 ! Lateral eddy diffusivity coefficient for passive tracer: 13 13 ! ======================================================== 14 #if defined key_traldf_c3d 14 #if defined key_traldf_c3d || defined key_off_degrad 15 15 ! 'key_traldf_c3d' : aht: 3D coefficient 16 16 # define fsahtrt(i,j,k) trcrat * ahtt(i,j,k) … … 40 40 ! Eddy induced velocity coefficient for passive tracer: 41 41 ! ======================================================== 42 #if defined key_traldf_c3d 42 #if defined key_traldf_c3d || defined key_off_degrad 43 43 ! 'key_traldf_c3d' : eiv: 3D coefficient 44 44 # define fsaeitru(i,j,k) trcrat * aeiu(i,j,k)
Note: See TracChangeset
for help on using the changeset viewer.