- Timestamp:
- 2013-05-03T14:35:21+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3875 r3901 66 66 67 67 !! * Module variables 68 INTEGER :: nn_dct = 1! Frequency of computation69 INTEGER :: nn_dctwri = 1! Frequency of output70 INTEGER :: nn_secdebug = 0! Number of the section to debug68 INTEGER :: nn_dct ! Frequency of computation 69 INTEGER :: nn_dctwri ! Frequency of output 70 INTEGER :: nn_secdebug ! Number of the section to debug 71 71 72 72 INTEGER, PARAMETER :: nb_class_max = 10 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r3875 r3901 31 31 32 32 INTEGER :: & !! namelist variables 33 nit000_han = 1, & ! First time step used for harmonic analysis34 nitend_han = 1, & ! Last time step used for harmonic analysis35 nstep_han = 1, & ! Time step frequency for harmonic analysis33 nit000_han , & ! First time step used for harmonic analysis 34 nitend_han , & ! Last time step used for harmonic analysis 35 nstep_han , & ! Time step frequency for harmonic analysis 36 36 nb_ana ! Number of harmonics to analyse 37 37 … … 90 90 ! 91 91 CALL tide_init_Wave 92 !93 tname(:)=''94 92 ! 95 93 REWIND( numnam_ref ) ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r3875 r3901 28 28 PUBLIC dia_hsb_init ! routine called by opa.F90 29 29 30 LOGICAL, PUBLIC :: ln_diahsb = .FALSE.!: check the heat and salt budgets30 LOGICAL, PUBLIC :: ln_diahsb !: check the heat and salt budgets 31 31 32 32 INTEGER :: numhsb ! -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3875 r3901 44 44 PUBLIC ptr_vjk ! call by tra_ldf & tra_adv routines 45 45 46 ! 47 LOGICAL , PUBLIC :: ln_diaptr = .FALSE.!: Poleward transport flag (T) or not (F)48 LOGICAL , PUBLIC :: ln_subbas = .FALSE.!: Atlantic/Pacific/Indian basins calculation49 LOGICAL , PUBLIC :: ln_diaznl = .FALSE.!: Add zonal means and meridional stream functions50 LOGICAL , PUBLIC :: ln_ptrcomp = .FALSE.!: Add decomposition : overturning (and gyre, soon ...)51 INTEGER , PUBLIC :: nn_fptr = 15!: frequency of ptr computation [time step]52 INTEGER , PUBLIC :: nn_fwri = 15!: frequency of ptr outputs [time step]46 ! !!** namelist namptr ** 47 LOGICAL , PUBLIC :: ln_diaptr !: Poleward transport flag (T) or not (F) 48 LOGICAL , PUBLIC :: ln_subbas !: Atlantic/Pacific/Indian basins calculation 49 LOGICAL , PUBLIC :: ln_diaznl !: Add zonal means and meridional stream functions 50 LOGICAL , PUBLIC :: ln_ptrcomp !: Add decomposition : overturning (and gyre, soon ...) 51 INTEGER , PUBLIC :: nn_fptr !: frequency of ptr computation [time step] 52 INTEGER , PUBLIC :: nn_fwri !: frequency of ptr outputs [time step] 53 53 54 54 REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:) :: htr_adv, htr_ldf, htr_ove !: Heat TRansports (adv, diff, overturn.)
Note: See TracChangeset
for help on using the changeset viewer.