mod_dimensions.F90 966 Bytes
module mod_dimensions
! Modul containing all dimensions
   integer, parameter :: kdim=20              ! dimension in depth
   integer, parameter :: antvar=3             ! Number of variables in state (N,P,H)
 
   integer, parameter :: nrsamp_ini=1000       ! initial number of ensemble members 
!   integer, parameter :: nrsamp=10         ! number of ensemble members 

   integer, parameter :: nrmes_t=40            ! Number of measurements in time
   integer, parameter :: nrmes_z=4             ! Number of measurements in dept
   integer, parameter :: nrobs=antvar*nrmes_z  ! number of meas. at each time level (Never change)

   integer, parameter :: nres=10                 ! number of points to store between each measurement
   integer, parameter :: ndim=nres*(nrmes_t+1)+1 ! number of times for storage of solution
 
   real, parameter :: pi=3.1415926536
   integer, parameter :: nfft=kdim*2             ! Dimension of fft vector
end module mod_dimensions