| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2243 |
TRBFLX |
lp = levpbl(i) |
|
./pkg/fizhi/fizhi_turb.F |
2244 |
TRBFLX |
if(lp.lt.nlev)then |
|
./pkg/fizhi/fizhi_turb.F |
2246 |
TRBFLX |
1 ( (ple(i,lp+2)-ple(i,lp+1))*(qq(i,lp+1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2247 |
TRBFLX |
2 / (qq(i,lp+1)-qq(i,lp)) ) ) * aitr |
|
./pkg/mdsio/mdsio_check4file.F |
106 |
MDS_CHECK4FILE |
IF ( lp.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_check4file.F |
110 |
MDS_CHECK4FILE |
WRITE(fileName,'(4A)') mdsioLocalDir(1:lp), |
|
./pkg/mdsio/mdsio_check4file.F |
55 |
MDS_CHECK4FILE |
INTEGER lp, ip, is, iL, i, ioUnit |
|
./pkg/mdsio/mdsio_check4file.F |
62 |
MDS_CHECK4FILE |
lp = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_check4file.F |
63 |
MDS_CHECK4FILE |
IF ( useCurrentDir ) lp = 0 |
|
./pkg/mdsio/mdsio_check4file.F |
68 |
MDS_CHECK4FILE |
IF ( i .LT. lp+ip+is+8 ) THEN |
|
./pkg/mdsio/mdsio_check4file.F |
71 |
MDS_CHECK4FILE |
& ' too small <', lp+ip+is+8 |
|
./pkg/mdsio/mdsio_check4file.F |
95 |
MDS_CHECK4FILE |
IF ( lp.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_check4file.F |
99 |
MDS_CHECK4FILE |
WRITE(fileName,'(3A,I3.3,A,I3.3,A)') mdsioLocalDir(1:lp), |
|
./pkg/cal/cal_checkdate.F |
101 |
CAL_CHECKDATE |
ELSEIF ( lp.NE.1 .AND. lp.NE.2 ) then |
|
./pkg/cal/cal_checkdate.F |
48 |
CAL_CHECKDATE |
INTEGER lp,wd |
|
./pkg/cal/cal_checkdate.F |
90 |
CAL_CHECKDATE |
CALL CAL_CONVDATE( date, yy, mm, dd, nsecs, lp, wd, myThid ) |
|
./pkg/cal/cal_convdate.F |
104 |
CAL_CONVDATE |
lp = date(3) |
|
./pkg/cal/cal_convdate.F |
41 |
CAL_CONVDATE |
INTEGER ss, lp, wd |
|
./pkg/cal/cal_convdate.F |
9 |
CAL_CONVDATE |
O lp, wd, |