| [3331] | 1 | INTERFACE |
|---|
| 2 | SUBROUTINE RDCSET(CDSL,KSLWIDEN,KSLWIDES,KSLWIDEW,KSLWIDEE,& |
|---|
| 3 | & KSLRPTSUR,KSLSPTSUR,& |
|---|
| 4 | & KDGLG,KDLON,KDGSAG,KDGENG,KDGUXL,KDGUXG,KDGSAL,KDGENL,& |
|---|
| 5 | & KDSUR1,KDLSUR,KDGSUR,KGPTOT,KGPTOT_CAP,& |
|---|
| 6 | & KPTRFLOFF,KFRSTLOFF,KYFRSTACTLAT,KYLSTACTLAT,& |
|---|
| 7 | & KSTA,KONL,KLOENG,KPTRFRSTLAT,KFRSTLAT,KLSTLAT,& |
|---|
| 8 | & PMU,PSQM2,& |
|---|
| 9 | & KSLSTA,KSLONL,KSLOFF,KSLEXT,KSLCORE,KASLB1,& |
|---|
| 10 | & KSLPROCS,KSLMPBUFSZ,KSLRPT,KSLSPT,& |
|---|
| 11 | & KSLSENDPOS,KSLRECVPOS,KSENDPTR,KRECVPTR,KSLCOMM,KMAP,KMAPLEN) |
|---|
| 12 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 13 | USE YOMCT0 , ONLY : NPROC ,NPRINTLEV,LOUTPUT ,LMPDIAG ,LALLOPR ,& |
|---|
| 14 | & LELAM ,N_REGIONS_NS ,N_REGIONS_EW |
|---|
| 15 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEN |
|---|
| 16 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDES |
|---|
| 17 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEW |
|---|
| 18 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEE |
|---|
| 19 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLRPTSUR |
|---|
| 20 | INTEGER(KIND=JPIM),INTENT(IN) :: KSLSPTSUR |
|---|
| 21 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGLG |
|---|
| 22 | INTEGER(KIND=JPIM),INTENT(IN) :: KDLON |
|---|
| 23 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAG |
|---|
| 24 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGENG |
|---|
| 25 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAL |
|---|
| 26 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGENL |
|---|
| 27 | INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT |
|---|
| 28 | CHARACTER(LEN=2) ,INTENT(IN) :: CDSL |
|---|
| 29 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXL |
|---|
| 30 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXG |
|---|
| 31 | INTEGER(KIND=JPIM),INTENT(IN) :: KDSUR1 |
|---|
| 32 | INTEGER(KIND=JPIM),INTENT(IN) :: KDLSUR |
|---|
| 33 | INTEGER(KIND=JPIM),INTENT(IN) :: KDGSUR |
|---|
| 34 | INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT_CAP |
|---|
| 35 | INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFLOFF |
|---|
| 36 | INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLOFF |
|---|
| 37 | INTEGER(KIND=JPIM),INTENT(IN) :: KYFRSTACTLAT |
|---|
| 38 | INTEGER(KIND=JPIM),INTENT(IN) :: KYLSTACTLAT |
|---|
| 39 | INTEGER(KIND=JPIM),INTENT(IN) :: KSTA(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW) |
|---|
| 40 | INTEGER(KIND=JPIM),INTENT(IN) :: KONL(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW) |
|---|
| 41 | INTEGER(KIND=JPIM),INTENT(IN) :: KLOENG(KDGSAG:KDGENG) |
|---|
| 42 | INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFRSTLAT(N_REGIONS_NS) |
|---|
| 43 | INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLAT(N_REGIONS_NS) |
|---|
| 44 | INTEGER(KIND=JPIM),INTENT(IN) :: KLSTLAT(N_REGIONS_NS) |
|---|
| 45 | REAL(KIND=JPRB) ,INTENT(IN) :: PMU(KDGSAG:KDGENG) |
|---|
| 46 | REAL(KIND=JPRB) ,INTENT(IN) :: PSQM2(KDGSAG:KDGENG) |
|---|
| 47 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSTA(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES) |
|---|
| 48 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLONL(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES) |
|---|
| 49 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLOFF(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES) |
|---|
| 50 | INTEGER(KIND=JPIM),INTENT(OUT) :: KSLEXT(1-KDLON:KDLON+KDLON,1-KSLWIDEN:KDGENL+KSLWIDES) |
|---|
| 51 | INTEGER(KIND=JPIM),INTENT(OUT) :: KSLCORE(KGPTOT) |
|---|
| 52 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KASLB1 |
|---|
| 53 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLPROCS |
|---|
| 54 | INTEGER(KIND=JPIM),INTENT(OUT) :: KSLMPBUFSZ |
|---|
| 55 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLRPT |
|---|
| 56 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSPT |
|---|
| 57 | INTEGER(KIND=JPIM),INTENT(OUT) :: KSLSENDPOS(KSLSPTSUR) |
|---|
| 58 | INTEGER(KIND=JPIM),INTENT(OUT) :: KSLRECVPOS(KSLRPTSUR) |
|---|
| 59 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSENDPTR(NPROC+1) |
|---|
| 60 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KRECVPTR(NPROC+1) |
|---|
| 61 | INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLCOMM(NPROC) |
|---|
| 62 | INTEGER(KIND=JPIM),INTENT(OUT) :: KMAP(4,KDGLG) |
|---|
| 63 | INTEGER(KIND=JPIM),INTENT(OUT) :: KMAPLEN |
|---|
| 64 | END SUBROUTINE RDCSET |
|---|
| 65 | END INTERFACE |
|---|
