yomct3.F90

Go to the documentation of this file.

MODULE yomct3

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

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

!*    Control variables for the model  (changed at level 3)

! NSTEP       : current timestep of model
! LGPQINSP    : .TRUE. if grid-point Q initialized from spectral field
! LSPC_FROM_DI: T (resp. F) if SPCH is called from STEPO (resp. STEPOTL).
! LRECALL_SUHDF_IN_CNT4: T if SUHDF must be called again in CNT4.

INTEGER(KIND=JPIM) :: nstep
LOGICAL :: lgpqinsp
LOGICAL :: lspc_from_di
LOGICAL :: lrecall_suhdf_in_cnt4

!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(lgpqinsp,lrecall_suhdf_in_cnt4,lspc_from_di,nstep)
END MODULE yomct3