add note 20251002
This commit is contained in:
@ -912,13 +912,13 @@
|
||||
|
||||
! Mare array of scaling factors into a vector for optimization
|
||||
CALL GET_X_FROM_SF
|
||||
|
||||
! 是根据位置将其映射到状态向量上
|
||||
!=================================================================
|
||||
! OPTIMIZATION loop starts here!
|
||||
!=================================================================
|
||||
|
||||
IF ( ITERATE ) THEN
|
||||
! Echo some input to the screen
|
||||
! Echo some input to the screen 迭代标记默认为 True,在开始数为 0 时被设为 False
|
||||
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
|
||||
WRITE( 6, '(a,/)' ) 'S T A R T O P T I M I Z A T I O N'
|
||||
WRITE (6,16)
|
||||
@ -970,7 +970,7 @@
|
||||
LATF = .FALSE.
|
||||
ENDIF
|
||||
|
||||
! The minimization routine has returned to request the
|
||||
! The minimization routine has returned to request the 如果为 FG,则表示最小化进程返回需求在当前 x 位置继续计算 f 和 g
|
||||
! function f and gradient g values at the current x 相当于这里就直接让梯度为 0 了
|
||||
|
||||
! Update iteration count 继续增加迭代次数
|
||||
|
@ -545,7 +545,7 @@
|
||||
!*****************************************************************************
|
||||
! Subroutine GET_X_FROM_ICS compiles the vector X of initial conditions from
|
||||
! the array STT_IC. (dkh, 9/16/04)
|
||||
!
|
||||
! 从缩放文件中获取状态向量的初始值
|
||||
! NOTES:
|
||||
! (1 ) Added ACTIVE_VARS == 'EMISSIONS' case. (dkh, 11/27/04)
|
||||
! (2 ) Added ACTIVE_VARS == 'FDTEST' case. (dkh, 02/17/05)
|
||||
@ -576,7 +576,7 @@
|
||||
INTEGER :: OFFSET
|
||||
|
||||
!=================================================================
|
||||
! GET_X_FROM_SF begins here!
|
||||
! GET_X_FROM_SF begins here! 开始迭代
|
||||
!=================================================================
|
||||
IF ( LICS ) THEN
|
||||
|
||||
@ -590,10 +590,10 @@
|
||||
|
||||
I_DUM = I + ( IIPAR * ( J - 1) )
|
||||
& + ( IIPAR * JJPAR * ( L - 1 ) )
|
||||
& + ( IIPAR * JJPAR * LLPAR * ( N - 1 ) )
|
||||
& + ( IIPAR * JJPAR * LLPAR * ( N - 1 ) ) ! 判断变量对应的状态向量位置
|
||||
|
||||
! Load X from active tracer concentrations
|
||||
X(I_DUM) = ICS_SF(I,J,L,N)
|
||||
X(I_DUM) = ICS_SF(I,J,L,N) ! 获取相关状态向量的缩放系数
|
||||
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
Reference in New Issue
Block a user