81 |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
82 |
enddo |
enddo |
83 |
enddo |
enddo |
84 |
|
|
85 |
|
iras(bi,bj) = nint(temp(1,1,4,bi,bj)) |
86 |
|
nlwcld(bi,bj) = nint(temp(2,1,4,bi,bj)) |
87 |
|
nlwlz(bi,bj) = nint(temp(3,1,4,bi,bj)) |
88 |
|
nswcld(bi,bj) = nint(temp(4,1,4,bi,bj)) |
89 |
|
nswlz(bi,bj) = nint(temp(5,1,4,bi,bj)) |
90 |
|
imstturbsw(bi,bj) = nint(temp(6,1,4,bi,bj)) |
91 |
|
imstturblw(bi,bj) = nint(temp(7,1,4,bi,bj)) |
92 |
|
|
93 |
enddo |
enddo |
94 |
enddo |
enddo |
95 |
|
|
|
iras = nint(temp(1,1,4,1,1)) |
|
|
nlwcld = nint(temp(2,1,4,1,1)) |
|
|
nlwlz = nint(temp(3,1,4,1,1)) |
|
|
nswcld = nint(temp(4,1,4,1,1)) |
|
|
nswlz = nint(temp(5,1,4,1,1)) |
|
|
imstturbsw = nint(temp(6,1,4,1,1)) |
|
|
imstturblw = nint(temp(7,1,4,1,1)) |
|
|
|
|
96 |
ENDIF |
ENDIF |
97 |
|
|
98 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |