| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
652 |
GRD2MSC |
SUBROUTINE GRD2MSC(A,IM,JM,IGRD,B,MXCHPS,NCHP) |
|
./pkg/fizhi/fizhi_utils.F |
658 |
GRD2MSC |
_RL A(IM*JM), B(MXCHPS) |
|
./pkg/fizhi/fizhi_utils.F |
674 |
MSC2GRD |
SUBROUTINE MSC2GRD(IGRD,CHFR,B,MXCHPS,NCHP,FRACG,A,IM,JM) |
|
./pkg/fizhi/fizhi_utils.F |
683 |
MSC2GRD |
_RL A(IM*JM), B(MXCHPS), CHFR(MXCHPS), FRACG(IM*JM) |
|
./pkg/fizhi/fizhi_utils.F |
686 |
MSC2GRD |
_RL VT1(IM*JM) |
|
./pkg/fizhi/fizhi_utils.F |
690 |
MSC2GRD |
DO I=1,IM*JM |
|
./pkg/fizhi/fizhi_utils.F |
700 |
MSC2GRD |
DO I=1,IM*JM |
|
./pkg/fizhi/update_earth_exports.F |
887 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
908 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
916 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
921 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
928 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
933 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
940 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
945 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
952 |
GETALB |
DO I=1,IM |
|
./pkg/seaice/lsr.F |
535 |
LSR |
IM=I-1 |
|
./pkg/seaice/lsr.F |
539 |
LSR |
IM=I-1 |
|
./pkg/seaice/lsr.F |
541 |
LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
893 |
LSR |
IM=I-1 |
|
./pkg/seaice/lsr.F |
894 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
895 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
896 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/seaice_lsr.F |
1771 |
SEAICE_LSR_TRIDIAGU |
INTEGER I,J,IM |
|
./pkg/seaice/seaice_lsr.F |
1819 |
SEAICE_LSR_TRIDIAGU |
IM=I-1 |
|
./pkg/seaice/seaice_lsr.F |
1824 |
SEAICE_LSR_TRIDIAGU |
IM=I-1 |
|
./pkg/seaice/seaice_lsr.F |
1826 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
1834 |
SEAICE_LSR_TRIDIAGU |
IM=sNx-I |
|
./pkg/seaice/seaice_lsr.F |
1839 |
SEAICE_LSR_TRIDIAGU |
IM=sNx-I |
|
./pkg/seaice/seaice_lsr.F |
1841 |
SEAICE_LSR_TRIDIAGU |
URT(IM,J)=URT(IM,J)-CUU(IM,J)*URT(IM+1,J) |