| 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 |
888 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
909 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
917 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
922 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
929 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
934 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
941 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
946 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
953 |
GETALB |
DO J=1,JM |
|
./pkg/seaice/lsr.F |
1142 |
LSR |
JM=J-1 |
|
./pkg/seaice/lsr.F |
1143 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1144 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
1145 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
589 |
LSR |
JM=J-1 |
|
./pkg/seaice/lsr.F |
590 |
LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
591 |
LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/lsr.F |
592 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
1916 |
SEAICE_LSR_TRIDIAGV |
INTEGER I,J,JM |
|
./pkg/seaice/seaice_lsr.F |
1972 |
SEAICE_LSR_TRIDIAGV |
JM=J-1 |
|
./pkg/seaice/seaice_lsr.F |
1977 |
SEAICE_LSR_TRIDIAGV |
JM=J-1 |
|
./pkg/seaice/seaice_lsr.F |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
1981 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet |
|
./pkg/seaice/seaice_lsr.F |
1988 |
SEAICE_LSR_TRIDIAGV |
JM=sNy-J |
|
./pkg/seaice/seaice_lsr.F |
1993 |
SEAICE_LSR_TRIDIAGV |
JM=sNy-J |
|
./pkg/seaice/seaice_lsr.F |
1995 |
SEAICE_LSR_TRIDIAGV |
VRT(I,JM)=VRT(I,JM)-CVV(I,JM)*VRT(I,JM+1) |