set_resol_mod.F90

Go to the documentation of this file.

MODULE set_resol_mod
CONTAINS
SUBROUTINE set_resol(KRESOL)
USE parkind1  ,ONLY : jpim     ,jprb

USE tpm_gen
USE tpm_dim
USE tpm_trans
USE tpm_distr
USE tpm_geometry
USE tpm_fields
USE tpm_fft
USE abort_trans_mod

IMPLICIT NONE

! Declaration of arguments

INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL

! Local varaibles
INTEGER(KIND=JPIM) :: IRESOL

!     ------------------------------------------------------------------

iresol = 1
IF(PRESENT(kresol)) THEN
  IF(kresol < 1 .OR. kresol > nmax_resol) THEN
    WRITE(nout,*)'SET_RESOL: UNKNOWN RESOLUTION ',kresol,nmax_resol
    CALL abort_trans(.OR.'SET_RESOL:KRESOL < 1  KRESOL > NMAX_RESOL')
  ENDIF
  iresol = kresol
ENDIF
IF(iresol /= ncur_resol) THEN
  ncur_resol = iresol 
  r => dim_resol(ncur_resol)
  f => fields_resol(ncur_resol)
  g => geom_resol(ncur_resol)
  d => distr_resol(ncur_resol)
  t => fft_resol(ncur_resol)
ENDIF

END SUBROUTINE set_resol
END MODULE set_resol_mod