mod_main_wave.f90

Go to the documentation of this file.

!==============================================================================|

MODULE vars_wave

  USE all_vars
  USE mod_obcs

  IMPLICIT NONE
  SAVE

  INTEGER :: inp_cur_ntime,inp_wi_ntime,inp_fr_ntime,inp_wlev_ntime

  REAL, ALLOCATABLE :: ac2(:,:,:),compda(:,:)
!  REAL, ALLOCATABLE :: ALPHA(:)

  LOGICAL :: nesting

  CHARACTER(LEN=80) ugswan_version !!STRING DESCRIBING VERSION
  
  INTEGER, ALLOCATABLE :: cross(:,:)                                  
  INTEGER, ALLOCATABLE :: bgridp(:)                                   
  REAL   , ALLOCATABLE :: bspecs(:,:,:,:)                             
  REAL   , ALLOCATABLE :: ac1(:,:,:)                     
  REAL, ALLOCATABLE :: sice(:,:,:)
  
  REAL   , ALLOCATABLE :: blknd(:), blkndc(:), ourqt(:)   
  INTEGER :: itw,it0            

  REAL(sp)   , ALLOCATABLE :: hsc1(:), dirdeg1(:), tpeak(:), wlen(:),qb1(:)
  REAL, ALLOCATABLE ::  obc_hs(:,:),obc_dir(:,:),obc_tpeak(:,:)

  REAL   , ALLOCATABLE :: pwave_bot(:),ub_swan(:)
  REAL   , ALLOCATABLE :: dwave(:) !Surface wind induced wave direction (radians)
  REAL(sp), ALLOCATABLE :: dirbot(:)
  REAL(sp), ALLOCATABLE :: spec_density(:,:)

  REAL(sp), ALLOCATABLE :: uwwind(:)     !SURFACE X-WIND FOR WAVE MODEL
  REAL(sp), ALLOCATABLE :: vwwind(:)     !SURFACE Y-WIND FOR WAVE MODEL

  TYPE(time) :: wavetime,imdtw
  
  REAL :: source_dtmax,source_dtmin
  CHARACTER(LEN=4) comput

  REAL(sp), ALLOCATABLE :: hs_wind(:),dirdeg_wind(:),tpeak_wind(:)
  INTEGER,  ALLOCATABLE :: tpeak_wind_pos(:)
  REAL(sp), ALLOCATABLE :: hs_swell_all(:,:),dirdeg_swell_all(:,:),tpeak_swell_all(:,:)
  INTEGER,  ALLOCATABLE :: tpeak_swell_pos_all(:,:)

END MODULE vars_wave