| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
118 |
MNC_GET_NEXT_EMPTY_IND |
I NT, |
|
./pkg/mnc/mnc_utils.F |
133 |
MNC_GET_NEXT_EMPTY_IND |
character*(*) name_list(NT) |
|
./pkg/mnc/mnc_utils.F |
146 |
MNC_GET_NEXT_EMPTY_IND |
DO i=1,NT |
|
./pkg/mnc/mnc_utils.F |
61 |
MNC_GET_IND |
I NT, |
|
./pkg/mnc/mnc_utils.F |
77 |
MNC_GET_IND |
character*(*) name_list(NT) |
|
./pkg/mnc/mnc_utils.F |
98 |
MNC_GET_IND |
DO i=1,NT |
|
./pkg/fizhi/fizhi_moist.F |
1286 |
RAS |
DO NT=1,Ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1289 |
RAS |
UOI(I,L+nltop-1,NT)=UOI(I,L+nltop-1,NT)+UCU(I,L,NT)*DT*rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1902 |
CLOUD |
DO NT=1,Ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1905 |
CLOUD |
UHT(I,NT) = UOI(II,K+nltop-1,NT)-UOI(II,IC+nltop-1,NT) * ETA(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1916 |
CLOUD |
DO NT=1,Ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1921 |
CLOUD |
UHT(I,NT) = UHT(I,NT) + TEM * UOI(II,L+nltop-1,NT) |
|
./pkg/fizhi/fizhi_moist.F |
405 |
MOISTIO |
DO NT = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
416 |
MOISTIO |
TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
420 |
MOISTIO |
UL(I,NSUBCL,NT) = TMP1(I,2)*TMP1(I,4) |