| 1 | module conc |
|---|
| 2 | use dimphy |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | REAL, ALLOCATABLE, SAVE :: mmean(:,:) |
|---|
| 7 | !$OMP THREADPRIVATE(mmean) |
|---|
| 8 | REAL, ALLOCATABLE, SAVE :: Akknew(:,:) |
|---|
| 9 | !$OMP THREADPRIVATE(Akknew) |
|---|
| 10 | REAL, ALLOCATABLE, SAVE :: rnew(:,:) |
|---|
| 11 | !$OMP THREADPRIVATE(rnew) |
|---|
| 12 | REAL, ALLOCATABLE, SAVE :: cpnew(:,:) |
|---|
| 13 | !$OMP THREADPRIVATE(cpnew) |
|---|
| 14 | REAL, ALLOCATABLE, SAVE :: jfotsout(:,:,:) |
|---|
| 15 | !$OMP THREADPRIVATE(jfotsout) |
|---|
| 16 | REAL, ALLOCATABLE, SAVE :: coefit4(:,:) |
|---|
| 17 | !$OMP THREADPRIVATE(coefit4) |
|---|
| 18 | REAL, ALLOCATABLE, SAVE :: coefit3(:,:) |
|---|
| 19 | !$OMP THREADPRIVATE(coefit3) |
|---|
| 20 | REAL, ALLOCATABLE, SAVE :: coefit2(:,:) |
|---|
| 21 | !$OMP THREADPRIVATE(coefit2) |
|---|
| 22 | REAL, ALLOCATABLE, SAVE :: coefit1(:,:) |
|---|
| 23 | !$OMP THREADPRIVATE(coefit1) |
|---|
| 24 | REAL, ALLOCATABLE, SAVE :: coefit0(:,:) |
|---|
| 25 | !$OMP THREADPRIVATE(coefit0) |
|---|
| 26 | REAL, ALLOCATABLE, SAVE :: fluxtop(:) |
|---|
| 27 | !$OMP THREADPRIVATE(fluxtop) |
|---|
| 28 | ! REAL, ALLOCATABLE, SAVE :: freccen(:) |
|---|
| 29 | !$OMP THREADPRIVATE(freccen) |
|---|
| 30 | REAL, ALLOCATABLE, SAVE :: t0(:) |
|---|
| 31 | !$OMP THREADPRIVATE(t0) |
|---|
| 32 | ! REAL, ALLOCATABLE, SAVE :: crscabsi2(:,:) |
|---|
| 33 | !$OMP THREADPRIVATE(crscabsi2) |
|---|
| 34 | REAL, ALLOCATABLE, SAVE :: jabsifotsintpar(:,:,:) |
|---|
| 35 | !$OMP THREADPRIVATE(crscabsi2) |
|---|
| 36 | REAL, ALLOCATABLE, SAVE :: c1_16(:,:) |
|---|
| 37 | !$OMP THREADPRIVATE(c1_16) |
|---|
| 38 | REAL, ALLOCATABLE, SAVE :: c17_24(:) |
|---|
| 39 | !$OMP THREADPRIVATE(c17_24) |
|---|
| 40 | REAL, ALLOCATABLE, SAVE :: c25_29(:) |
|---|
| 41 | !$OMP THREADPRIVATE(c25_29) |
|---|
| 42 | REAL, ALLOCATABLE, SAVE :: c30_31(:) |
|---|
| 43 | !$OMP THREADPRIVATE(c30_31) |
|---|
| 44 | REAL, ALLOCATABLE, SAVE :: c32(:) |
|---|
| 45 | !$OMP THREADPRIVATE(c32) |
|---|
| 46 | REAL, ALLOCATABLE, SAVE :: c33(:) |
|---|
| 47 | !$OMP THREADPRIVATE(c33) |
|---|
| 48 | REAL, ALLOCATABLE, SAVE :: c34(:) |
|---|
| 49 | !$OMP THREADPRIVATE(c34) |
|---|
| 50 | REAL, ALLOCATABLE, SAVE :: c35(:) |
|---|
| 51 | !$OMP THREADPRIVATE(c35) |
|---|
| 52 | REAL, ALLOCATABLE, SAVE :: c36(:) |
|---|
| 53 | !$OMP THREADPRIVATE(c36) |
|---|
| 54 | REAL, ALLOCATABLE, SAVE :: ct1(:) |
|---|
| 55 | !$OMP THREADPRIVATE(ct1) |
|---|
| 56 | REAL, ALLOCATABLE, SAVE :: ct2(:) |
|---|
| 57 | !$OMP THREADPRIVATE(ct2) |
|---|
| 58 | REAL, ALLOCATABLE, SAVE :: p1(:) |
|---|
| 59 | !$OMP THREADPRIVATE(p1) |
|---|
| 60 | REAL, ALLOCATABLE, SAVE :: p2(:) |
|---|
| 61 | !$OMP THREADPRIVATE(p2) |
|---|
| 62 | |
|---|
| 63 | |
|---|
| 64 | CONTAINS |
|---|
| 65 | !================================================================= |
|---|
| 66 | subroutine conc_init |
|---|
| 67 | USE dimphy |
|---|
| 68 | USE control_mod |
|---|
| 69 | implicit none |
|---|
| 70 | #include"param.h" |
|---|
| 71 | |
|---|
| 72 | ALLOCATE(mmean(klon,klev)) |
|---|
| 73 | ALLOCATE(Akknew(klon,klev)) |
|---|
| 74 | ALLOCATE(rnew(klon,klev)) |
|---|
| 75 | ALLOCATE(cpnew(klon,klev)) |
|---|
| 76 | ALLOCATE(jfotsout(ninter,nabs,klev)) |
|---|
| 77 | ALLOCATE(coefit0(ninter,nabs)) |
|---|
| 78 | ALLOCATE(coefit1(ninter,nabs)) |
|---|
| 79 | ALLOCATE(coefit2(ninter,nabs)) |
|---|
| 80 | ALLOCATE(coefit3(ninter,nabs)) |
|---|
| 81 | ALLOCATE(coefit4(ninter,nabs)) |
|---|
| 82 | ALLOCATE(fluxtop(ninter)) |
|---|
| 83 | ! ALLOCATE(freccen(ninter)) |
|---|
| 84 | ALLOCATE(t0(nz2)) |
|---|
| 85 | ! ALLOCATE(crscabsi2(nabs,16)) |
|---|
| 86 | ALLOCATE(c1_16(nz2,16)) |
|---|
| 87 | ALLOCATE(c17_24(nz2) ) |
|---|
| 88 | ALLOCATE(c25_29(nz2) ) |
|---|
| 89 | ALLOCATE(c30_31(nz2) ) |
|---|
| 90 | ALLOCATE(c32(nz2) ) |
|---|
| 91 | ALLOCATE(c33(nz2) ) |
|---|
| 92 | ALLOCATE(c34(nz2) ) |
|---|
| 93 | ALLOCATE(c35(nz2) ) |
|---|
| 94 | ALLOCATE(c36(nz2) ) |
|---|
| 95 | ALLOCATE(ct2(ninter) ) |
|---|
| 96 | ALLOCATE(ct1(ninter) ) |
|---|
| 97 | ALLOCATE(p1(ninter) ) |
|---|
| 98 | ALLOCATE(p2(ninter) ) |
|---|
| 99 | ALLOCATE(jabsifotsintpar(nz2,nabs,ninter)) |
|---|
| 100 | end subroutine conc_init |
|---|
| 101 | |
|---|
| 102 | |
|---|
| 103 | end module conc |
|---|
| 104 | |
|---|
