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