File |
Line number |
Procedure |
Code |
./pkg/shap_filt/SHAP_FILT.h |
33 |
NO PROCEDURE |
INTEGER Shap_funct, nShapT, nShapS, nShapUV |
./pkg/shap_filt/SHAP_FILT.h |
36 |
NO PROCEDURE |
& Shap_funct, nShapT, nShapS, nShapTrPhys, |
./pkg/shap_filt/shap_filt_apply_ts.F |
109 |
SHAP_FILT_APPLY_TS |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
./pkg/shap_filt/shap_filt_apply_ts.F |
124 |
SHAP_FILT_APPLY_TS |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 |
./pkg/shap_filt/shap_filt_apply_ts.F |
134 |
SHAP_FILT_APPLY_TS |
IF (Shap_funct.EQ.1) THEN |
./pkg/shap_filt/shap_filt_apply_ts.F |
138 |
SHAP_FILT_APPLY_TS |
ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20 |
./pkg/shap_filt/shap_filt_apply_ts.F |
139 |
SHAP_FILT_APPLY_TS |
& .OR. Shap_funct.EQ.21) THEN |
./pkg/shap_filt/shap_filt_apply_ts.F |
143 |
SHAP_FILT_APPLY_TS |
ELSEIF (Shap_funct.EQ.4) THEN |
./pkg/shap_filt/shap_filt_apply_ts.F |
158 |
SHAP_FILT_APPLY_TS |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
./pkg/shap_filt/shap_filt_apply_ts.F |
173 |
SHAP_FILT_APPLY_TS |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 |
./pkg/shap_filt/shap_filt_apply_ts.F |
85 |
SHAP_FILT_APPLY_TS |
IF (Shap_funct.EQ.1) THEN |
./pkg/shap_filt/shap_filt_apply_ts.F |
89 |
SHAP_FILT_APPLY_TS |
ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20 |
./pkg/shap_filt/shap_filt_apply_ts.F |
90 |
SHAP_FILT_APPLY_TS |
& .OR. Shap_funct.EQ.21) THEN |
./pkg/shap_filt/shap_filt_apply_ts.F |
94 |
SHAP_FILT_APPLY_TS |
ELSEIF (Shap_funct.EQ.4) THEN |
./pkg/shap_filt/shap_filt_apply_uv.F |
107 |
SHAP_FILT_APPLY_UV |
ELSEIF (Shap_funct.EQ.21) THEN |
./pkg/shap_filt/shap_filt_apply_uv.F |
118 |
SHAP_FILT_APPLY_UV |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
./pkg/shap_filt/shap_filt_apply_uv.F |
132 |
SHAP_FILT_APPLY_UV |
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
./pkg/shap_filt/shap_filt_apply_uv.F |
91 |
SHAP_FILT_APPLY_UV |
IF (Shap_funct.EQ.1) THEN |
./pkg/shap_filt/shap_filt_apply_uv.F |
95 |
SHAP_FILT_APPLY_UV |
ELSEIF (Shap_funct.EQ.2 .OR. Shap_funct.EQ.20) THEN |
./pkg/shap_filt/shap_filt_apply_uv.F |
99 |
SHAP_FILT_APPLY_UV |
ELSEIF (Shap_funct.EQ.4) THEN |
./pkg/shap_filt/shap_filt_readparms.F |
111 |
SHAP_FILT_READPARMS |
IF (Shap_funct.EQ.20) THEN |
./pkg/shap_filt/shap_filt_readparms.F |
118 |
SHAP_FILT_READPARMS |
IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4 |
./pkg/shap_filt/shap_filt_readparms.F |
119 |
SHAP_FILT_READPARMS |
& .OR. Shap_funct.EQ.21 |
./pkg/shap_filt/shap_filt_readparms.F |
123 |
SHAP_FILT_READPARMS |
IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4 |
./pkg/shap_filt/shap_filt_readparms.F |
129 |
SHAP_FILT_READPARMS |
CALL WRITE_0D_I( Shap_funct, INDEX_NONE, |
./pkg/shap_filt/shap_filt_readparms.F |
152 |
SHAP_FILT_READPARMS |
IF (Shap_funct.EQ.2) THEN |
./pkg/shap_filt/shap_filt_readparms.F |
220 |
SHAP_FILT_READPARMS |
IF ( Shap_funct.EQ.1 .OR. Shap_funct.EQ.4 ) THEN |
./pkg/shap_filt/shap_filt_readparms.F |
222 |
SHAP_FILT_READPARMS |
& 'does not work with Shap_funct=', Shap_funct |
./pkg/shap_filt/shap_filt_readparms.F |
225 |
SHAP_FILT_READPARMS |
ELSEIF ( Shap_funct.EQ.21 .AND. nShapUV.GT.0 |
./pkg/shap_filt/shap_filt_readparms.F |
230 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A,I3,A)') ' Shap_funct=', Shap_funct, |
./pkg/shap_filt/shap_filt_readparms.F |
43 |
SHAP_FILT_READPARMS |
& Shap_funct, shap_filt_uvStar, shap_filt_TrStagg, |
./pkg/shap_filt/shap_filt_readparms.F |
76 |
SHAP_FILT_READPARMS |
Shap_funct = 2 |