yomlun.F90

Go to the documentation of this file.

MODULE yomlun

USE parkind1  ,ONLY : jpim
USE yomlun_ifsaux, ONLY : nulout, nulerr

IMPLICIT NONE

SAVE

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

!*    Logical units used by code

!     NULOUT :   output unit (now from YOMLUN_IFSAUX)
!     NULNAM :   unit number for namelist
!     NCMAFL :   UNIT NUMBERS FOR OCEAN COUPLER FILES
!     NULCL1 :   unit number for climatological fields (month before)
!     NULCL2 :   unit number for climatological fields (month after)
!     NTRJSH :   unit number for trajectory spectral data          WRTRA
!     NINMSH :   unit number for initial point of the minimization SUVAZX
!     NINISH :   unit number for initial spectral data             SUSPEC
!     NINIGG :   unit number for initial grid-point data           SUSPEC
!     NFGISH :   unit number for first-guess spectral data
!     NFGIGG :   unit number for first-guess grid-point data
!     NPOSSH :   output unit number (spectral fields)              CPREP1
!     NTIDE  :   unit number for the LFI file containing the total tendencies
!     NPDIRL :   unit number for post-processing directory listing
!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP

!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)

!     NULCO  :   unit number for coupled fields (ICMCO)
!     NPODDH :   unit number for mask diagnostic files (DDH)
!     NULRCF :   unit number for restart control file
!     NULHWF :   unit number for history witness file
!     NBIAS  :   unit number for bias (dig. filt. guess - guess)

!     NEFLS  :   unit number for coupling ALADIN file
!     NEFLSS :   unit number for coupling ALADIN file (initialisation)

!     NULUSR1:   unit numbers for user defined files
!     NULSTAT:   unit number for status  file

!     NULASE :   unit number for CANARI statistics (forecast error s.d.)
!     NULASS :   unit number for CANARI statistics (analysis error s.d.)

!     NULUSR2
!     NULUSR3
!     NULUSR4
!     NULUSR5
!     NULTMP :   unit numbers for file opened and closed in the same routine

!     NULFPxx    unit numbers for Full-POS output files
!     NSCRTCH:   unit number for Full-POS scratch file (for in-line post-proc.)
!     NULFPOS:   unit number for Full-POS control file (end of post-processing
!                in conf. 001 ; auxilary namelist file in conf. 927)
!     NULERR :   unit number for comparison with reference run (now from YOMLUN_IFSAUX)
!     NULREF :   unit number for storing reference run
!     NULRAD :   unit number for writing radiation diagnostics
!     NULRTL :   unit number for reading RTLIMB coefficient files
!     NUO3CH1:   unit number for reading ozone chemistry file 1
!     NUO3CH2:   unit number for reading ozone chemistry file 2
!     NTCSR  :   unit number for fields of radiation coefficients
!     NSCATAB    SCAT. SIGMA0 TABLE
!     NSCASIG    SCAT. SIGMA0 BIAS CORRECTION
!     NSCASPE    SCAT. SPEED BIAS CORRECTION
!     NEGASH     UNIT NUMBER FOR JK INPUT

!     NULTRAJHR: unit number for high resolution trajectory (option LTRAJHR)
!     NULTRAJBG: unit number for background (option LBACKGR)

!!INTEGER(KIND=JPIM) :: NULOUT
! Ce qui concerne NULNAM commente par MPL le 15.04.09
!INTEGER(KIND=JPIM) :: NULNAM
INTEGER(KIND=JPIM) :: ncmafl(10)
INTEGER(KIND=JPIM) :: npossh
INTEGER(KIND=JPIM) :: ntide
INTEGER(KIND=JPIM) :: ntrjsh
INTEGER(KIND=JPIM) :: ninmsh
INTEGER(KIND=JPIM) :: ninish
INTEGER(KIND=JPIM) :: ninigg
INTEGER(KIND=JPIM) :: nfgish
INTEGER(KIND=JPIM) :: nfgigg
INTEGER(KIND=JPIM) :: npppsh
INTEGER(KIND=JPIM) :: nultmp
INTEGER(KIND=JPIM) :: npoddh
INTEGER(KIND=JPIM) :: nulcl1
INTEGER(KIND=JPIM) :: nulcl2
INTEGER(KIND=JPIM) :: nulase
INTEGER(KIND=JPIM) :: nulass
INTEGER(KIND=JPIM) :: nuldila
INTEGER(KIND=JPIM) :: nulcont
INTEGER(KIND=JPIM) :: nulrotc
INTEGER(KIND=JPIM) :: nulrcf
INTEGER(KIND=JPIM) :: nulhwf
INTEGER(KIND=JPIM) :: nulusr1
INTEGER(KIND=JPIM) :: nulusr2
INTEGER(KIND=JPIM) :: nulusr3
INTEGER(KIND=JPIM) :: nulusr4
INTEGER(KIND=JPIM) :: nulusr5
INTEGER(KIND=JPIM) :: nulco
INTEGER(KIND=JPIM) :: nefls
INTEGER(KIND=JPIM) :: neflss
INTEGER(KIND=JPIM) :: nbias
INTEGER(KIND=JPIM) :: npdirl
INTEGER(KIND=JPIM) :: nulstat
INTEGER(KIND=JPIM) :: nulfp01
INTEGER(KIND=JPIM) :: nulfp02
INTEGER(KIND=JPIM) :: nulfp03
INTEGER(KIND=JPIM) :: nulfp04
INTEGER(KIND=JPIM) :: nulfp05
INTEGER(KIND=JPIM) :: nulfp06
INTEGER(KIND=JPIM) :: nulfp07
INTEGER(KIND=JPIM) :: nulfp08
INTEGER(KIND=JPIM) :: nulfp09
INTEGER(KIND=JPIM) :: nulfp10
INTEGER(KIND=JPIM) :: nulfp11
INTEGER(KIND=JPIM) :: nulfp12
INTEGER(KIND=JPIM) :: nulfp13
INTEGER(KIND=JPIM) :: nulfp14
INTEGER(KIND=JPIM) :: nulfp15
INTEGER(KIND=JPIM) :: nulfpos
INTEGER(KIND=JPIM) :: nscrtch
!!INTEGER(KIND=JPIM) :: NULERR
INTEGER(KIND=JPIM) :: nulref
INTEGER(KIND=JPIM) :: nulrad
INTEGER(KIND=JPIM) :: nulrtl
INTEGER(KIND=JPIM) :: nuo3ch1
INTEGER(KIND=JPIM) :: nuo3ch2
INTEGER(KIND=JPIM) :: ntcsr
INTEGER(KIND=JPIM) :: nscatab
INTEGER(KIND=JPIM) :: nscasig
INTEGER(KIND=JPIM) :: nscaspe
INTEGER(KIND=JPIM) :: negash
INTEGER(KIND=JPIM) :: nultrajhr
INTEGER(KIND=JPIM) :: nultrajbg
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(nbias,ncmafl,nefls,neflss,negash,nfgigg,nfgish,ninigg,ninish,ninmsh,npdirl,npoddh,npossh)
!$OMP THREADPRIVATE(npppsh,nscasig,nscaspe,nscatab,nscrtch,ntcsr,ntide,ntrjsh,nulase,nulass,nulcl1,nulcl2,nulco)
!$OMP THREADPRIVATE(nulcont,nuldila,nulfp01,nulfp02,nulfp03,nulfp04,nulfp05,nulfp06,nulfp07,nulfp08,nulfp09)
!$OMP THREADPRIVATE(nulfp10,nulfp11,nulfp12,nulfp13,nulfp14,nulfp15,nulfpos,nulhwf,nulrad,nulrcf,nulref,nulrotc)
!$OMP THREADPRIVATE(nulrtl,nulstat,nultmp,nultrajbg,nultrajhr,nulusr1,nulusr2,nulusr3,nulusr4,nulusr5,nuo3ch1,nuo3ch2)
END MODULE yomlun