[1989] | 1 | MODULE YOMTAG |
---|
| 2 | |
---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
---|
| 4 | |
---|
| 5 | IMPLICIT NONE |
---|
| 6 | |
---|
| 7 | SAVE |
---|
| 8 | |
---|
| 9 | ! ------------------------------------------------------------------ |
---|
| 10 | !* Tag identifiers used in message passing communication |
---|
| 11 | |
---|
| 12 | ! MTAGLM: tag for transpositions done in TRLTOM. |
---|
| 13 | ! MTAGMS: tag for transpositions done in TRMTOS. |
---|
| 14 | ! MTAGSM: tag for transpositions done in TRSTOM. |
---|
| 15 | ! MTAGMV: tag for transpositions done in TRMTOV. |
---|
| 16 | ! MTAGVH: tag for transpositions done in TRVTOH. |
---|
| 17 | ! MTAGMN: tag for transpositions done in TRMTON. |
---|
| 18 | ! MTAGNM: tag for transpositions done in TRNTOM. |
---|
| 19 | ! MTAGSPNO: tag for communications done in COMMSPNORM and COMMSPNORM1. |
---|
| 20 | ! MTAGSLAG: tag for halo constitution (horizontal interpolations |
---|
| 21 | ! in the semi-Lagrangian scheme, the observation interpolator or FULLPOS). |
---|
| 22 | ! MTAGTIDE: tag for communications done in COMMTIDE. |
---|
| 23 | ! MTAGRAD : tag for communications done in SUECRAD (ECMWF physics) |
---|
| 24 | ! MTAGRCBDY: tag for communications done in RADCBDY (ECMWF physics). |
---|
| 25 | ! MTAGRCLB: tag for communications done in RADCLB (ECMWF physics). |
---|
| 26 | ! MTAGRCLBI: tag for communications done in SUECRADL (ECMWF physics). |
---|
| 27 | ! MTAGPART: tag for communications done in DICOMOUT and GATHFLNM. |
---|
| 28 | ! MTAGDISTSP: tag for communications done in DISSPEC, DISSPEC0 and DIWRSPE. |
---|
| 29 | ! MTAGDISTGP: tag for communications done in |
---|
| 30 | ! DISGRID, DISGRID_C, DISGRIDFP, DIWRGRFP, DIWRGRID, IRCVGPF, IRCVGPFFP, |
---|
| 31 | ! ISNDGPF, ISNDGPFFP, ORCVGPF, ORCVGPFFP, OSNDGPF, OSNDGPFFP. |
---|
| 32 | ! MTAGCAIN: tag for communications done in GATHERSPA. |
---|
| 33 | ! MTAGCOST: tag for communications done in |
---|
| 34 | ! GATHERCOST1, GATHERCOST2, GATHERCOSTO and GATHERJCVERT. |
---|
| 35 | ! MTAGGSUM: tag for communications done in CASND1, CASNDR1 and GATHERSUM. |
---|
| 36 | ! MTAGGLOBSI: tag for communications done in CAEXCO and CAUPDO. |
---|
| 37 | ! MTAGGLOBSR: tag for communications done in CAEXCO and CAUPDO. |
---|
| 38 | ! MTAGOBSEQ: tag for communications done in MPOBSEQ. |
---|
| 39 | ! MTAGOBSEQAD: tag for communications done in MPOBSEQAD. |
---|
| 40 | ! MTAGFCE: tag for communications done in |
---|
| 41 | ! COMMFCE1, COMMFCE2, COMMJBBAL and COMMJBDAT. |
---|
| 42 | ! MTAGBDY: tag for communications done in GATHERBDY. |
---|
| 43 | ! MTAGSIG: tag for communications done in SIGCHECK. |
---|
| 44 | ! MTAGBRPR: tag for communications done in BRPTOB and GATHERT. |
---|
| 45 | ! MTAGGPNORM: tag for communications done in GPNORM1. |
---|
| 46 | ! MTAGDDHRES: tag for communications done in DDHRCV and DDHSND. |
---|
| 47 | ! MTAGDDH1: tag for communications done in DISTDDH. |
---|
| 48 | ! MTAGDDH2: tag for communications done in DLADDH. |
---|
| 49 | ! MTAGDDH3: tag for communications done in DMADDH. |
---|
| 50 | ! MTAGDDH4: tag for communications done in DRESDDH. |
---|
| 51 | ! MTAGGETV: tag for communications done in SUHESS. |
---|
| 52 | ! MTAGOZON: tag for communications done in UPDO3CH. |
---|
| 53 | ! MTAGREADVEC: tag for communications done in READVEC. |
---|
| 54 | ! MT_DISTRIBUTED_VECTOR: tag for communications done in SUMPINI. |
---|
| 55 | ! MTAGLCZ: tag for communications done in COMMNSEC1. |
---|
| 56 | ! MTAGGOM: tag for communications done in GATHERGOM. |
---|
| 57 | ! MTAGFREQ: tag for communications done in GATHERFREQ. |
---|
| 58 | ! MTAGEIGMD: tag for communications done in GATHEREIGMD. |
---|
| 59 | ! MTAGKE: tag for communications done in VMODEENERGY. |
---|
| 60 | ! MTAGDISTFO: tag for communications done in DISFOU and DIWRFOU. |
---|
| 61 | |
---|
| 62 | ! YOMTAG |
---|
| 63 | |
---|
| 64 | INTEGER(KIND=JPIM) :: MTAGLM |
---|
| 65 | INTEGER(KIND=JPIM) :: MTAGMS |
---|
| 66 | INTEGER(KIND=JPIM) :: MTAGSM |
---|
| 67 | INTEGER(KIND=JPIM) :: MTAGMV |
---|
| 68 | INTEGER(KIND=JPIM) :: MTAGVH |
---|
| 69 | INTEGER(KIND=JPIM) :: MTAGSPNO |
---|
| 70 | INTEGER(KIND=JPIM) :: MTAGSLAG |
---|
| 71 | INTEGER(KIND=JPIM) :: MTAGTIDE |
---|
| 72 | INTEGER(KIND=JPIM) :: MTAGRAD |
---|
| 73 | INTEGER(KIND=JPIM) :: MTAGRCBDY |
---|
| 74 | INTEGER(KIND=JPIM) :: MTAGRCLB |
---|
| 75 | INTEGER(KIND=JPIM) :: MTAGRCLBI |
---|
| 76 | INTEGER(KIND=JPIM) :: MTAGPART |
---|
| 77 | INTEGER(KIND=JPIM) :: MTAGDISTSP |
---|
| 78 | INTEGER(KIND=JPIM) :: MTAGDISTGP |
---|
| 79 | INTEGER(KIND=JPIM) :: MTAGMN |
---|
| 80 | INTEGER(KIND=JPIM) :: MTAGNM |
---|
| 81 | INTEGER(KIND=JPIM) :: MTAGCAIN |
---|
| 82 | INTEGER(KIND=JPIM) :: MTAGCOST |
---|
| 83 | INTEGER(KIND=JPIM) :: MTAGGSUM |
---|
| 84 | INTEGER(KIND=JPIM) :: MTAGGLOBSI |
---|
| 85 | INTEGER(KIND=JPIM) :: MTAGGLOBSR |
---|
| 86 | INTEGER(KIND=JPIM) :: MTAGOBSEQ |
---|
| 87 | INTEGER(KIND=JPIM) :: MTAGOBSEQAD |
---|
| 88 | INTEGER(KIND=JPIM) :: MTAGFCE |
---|
| 89 | INTEGER(KIND=JPIM) :: MTAGBDY |
---|
| 90 | INTEGER(KIND=JPIM) :: MTAGDDHRES |
---|
| 91 | INTEGER(KIND=JPIM) :: MTAGSIG |
---|
| 92 | INTEGER(KIND=JPIM) :: MTAGBRPR |
---|
| 93 | INTEGER(KIND=JPIM) :: MTAGGPNORM |
---|
| 94 | INTEGER(KIND=JPIM) :: MTAGDDH1 |
---|
| 95 | INTEGER(KIND=JPIM) :: MTAGDDH2 |
---|
| 96 | INTEGER(KIND=JPIM) :: MTAGDDH3 |
---|
| 97 | INTEGER(KIND=JPIM) :: MTAGDDH4 |
---|
| 98 | INTEGER(KIND=JPIM) :: MTAGGETV |
---|
| 99 | INTEGER(KIND=JPIM) :: MTAGOZON |
---|
| 100 | INTEGER(KIND=JPIM) :: MTAGREADVEC |
---|
| 101 | INTEGER(KIND=JPIM) :: MT_DISTRIBUTED_VECTOR |
---|
| 102 | INTEGER(KIND=JPIM) :: MTAGLCZ |
---|
| 103 | INTEGER(KIND=JPIM) :: MTAGGOM |
---|
| 104 | INTEGER(KIND=JPIM) :: MTAGFREQ |
---|
| 105 | INTEGER(KIND=JPIM) :: MTAGEIGMD |
---|
| 106 | INTEGER(KIND=JPIM) :: MTAGKE |
---|
| 107 | INTEGER(KIND=JPIM) :: MTAGDISTFO |
---|
| 108 | |
---|
[2010] | 109 | !$OMP THREADPRIVATE(mt_distributed_vector,mtagbdy,mtagbrpr,mtagcain,mtagcost,mtagddh1,mtagddh2,mtagddh3,mtagddh4) |
---|
| 110 | !$OMP THREADPRIVATE(mtagddhres,mtagdistfo,mtagdistgp,mtagdistsp,mtageigmd,mtagfce,mtagfreq,mtaggetv,mtagglobsi) |
---|
| 111 | !$OMP THREADPRIVATE(mtagglobsr,mtaggom,mtaggpnorm,mtaggsum,mtagke,mtaglcz,mtaglm,mtagmn,mtagms,mtagmv,mtagnm) |
---|
| 112 | !$OMP THREADPRIVATE(mtagobseq,mtagobseqad,mtagozon,mtagpart,mtagrad,mtagrcbdy,mtagrclb,mtagrclbi,mtagreadvec) |
---|
| 113 | !$OMP THREADPRIVATE(mtagsig,mtagslag,mtagsm,mtagspno,mtagtide,mtagvh) |
---|
[1989] | 114 | END MODULE YOMTAG |
---|