包含基于射线追踪的任意复杂界面计算

tem3dfdtd/lib/tixing-source-upcos.f90

@@ -20,16 +20,16 @@ SUBROUTINE TIXING_SOURCE_UPCOS
   SOURCE(1)=AMP*0.5*(1-COS(PI*CTIME(1)/RAISETIME))  !AMP*CTIME(1)/RAISETIME
   DO I=2,NSTOP
      CTIME(I)=CTIME(I-1)+DELT(I-1)
-     IF(CTIME(I) .LT. RAISETIME)THEN
+     IF(CTIME(I) .LT. RAISETIME)THEN !小于raistime
         DELT(I)=RAISESTEP
         SOURCE(I)=AMP*0.5*(1-COS(PI*CTIME(I)/RAISETIME))  !AMP*CTIME(I)/RAISETIME
-     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN
+     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN  !RAISETIME小于等于CTIME(I)<RAISETIME+WAVE-TIME_RAMP2WAVE_SUM
         DELT(I)=DELT(I-1)*1.0005
         IF(DELT(I) .GE. WAVESTEP)THEN
            DELT(I)=WAVESTEP
         ENDIF
         SOURCE(I)=AMP  !1.0D0
-     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN
+     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN !RAISETIME+WAVE-TIME_RAMP2WAVE_SUM小于等于CTIME(I)<RAISETIME+WAVE
         DELT(I)=DELT(I-1)*0.9995
         IF(DELT(I) .LE. RAMPSTEP)THEN
            DELT(I)=RAMPSTEP