Changeset 262 for trunk/NEMO/TOP_SRC/oce_trc.F90
- Timestamp:
- 2005-09-08T15:30:48+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/oce_trc.F90
r247 r262 7 7 !! 9.0 ! 04-03 (C. Ethe) F90: Free form and module 8 8 !!---------------------------------------------------------------------- 9 !! TOP 1.0 , LOCEAN-IPSL (2005) 10 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 !! OPA 9.0 , LODYC-IPSL (2003) 12 10 !!---------------------------------------------------------------------- 13 11 !! * Modules used … … 42 40 nstock => nstock, & !: frequency of restart file 43 41 lwp => lwp , & !: boolean term for mpp output 44 l_ctl => l_ctl , & !: = ln_ctl.AND.lwp (print control on the 1st proc) 45 nictl => nictl , & !: = max i indice to make the control SUM 46 njctl => njctl , & !: = max j indice to make the control SUM 47 numout => numout, & !: logical unit for output print 48 numwrs => numwrs !: logical unit for output restart 42 ln_ctl => ln_ctl , & !: = ln_ctl.AND.lwp (print control on the 1st proc) 43 nictle => nictle , & !: = max i indice to make the control SUM 44 njctle => njctle , & !: = max j indice to make the control SUM 45 numout => numout !: logical unit for output print 49 46 50 47 !! run controm … … 119 116 lk_dynspg_fsc_tsk => lk_dynspg_fsc_tsk !: free surface constant volume flag 120 117 118 USE zdf_oce, ONLY : & 119 ln_zdfnpc => ln_zdfnpc !: convection: non-penetrative convection flag 120 121 121 #if defined key_partial_steps 122 122 !! Partial steps ('key_partial_steps') … … 144 144 hbatu => hbatu , & !: ocean depth at the vertical of u-point (m) 145 145 hbatv => hbatv , & !: ocean depth at the vertical of w-point (m) 146 hbatf => hbatw , & !: ocean depth at the vertical of f-point (m)147 146 gsigt => gsigt , & !: model level depth coefficient at t-, & w-levelsvertical scale factors at u- 148 147 gsigw => gsigw , & !: model level depth coefficient at t-, & w-levelsvertical scale factors v- … … 155 154 USE dom_oce , ONLY : & 156 155 mbathy => mbathy, & !: number of ocean level (=0, & 1, ... , jpk-1) 156 tmask_i => tmask_i, & !: Interior mask at t-points 157 157 tmask => tmask , & !: land/ocean mask at t-points 158 158 umask => umask , & !: land/ocean mask at u-points … … 172 172 173 173 USE daymod , ONLY : & 174 ndastp => ndastp, & !: time step date in year/month/day aammjj 175 nday_year => nday_year !: curent day counted from jan 1st of the current year 174 ndastp => ndastp, & !: time step date in year/month/day aammjj 175 nday_year => nday_year, & !: curent day counted from jan 1st of the current year 176 nyear => nyear, & !: Current year 177 nmonth => nmonth, & !: Current month 178 nday => nday !: Current day 176 179 177 180 !! physical constants … … 230 233 USE zdf_oce , ONLY : & 231 234 avt => avt , & !: vert. diffusivity coef. at w-point for temp 232 avm0 => avm0 , & !: vertical eddy viscosity for the dynamic (m2/s)233 235 avt0 => avt0 !: vertical eddy diffusivity for tracers (m2/s) 234 236
Note: See TracChangeset
for help on using the changeset viewer.