diff --git a/code/adjoint/inverse_driver.f b/code/adjoint/inverse_driver.f index 8a392e8..cb915e7 100644 --- a/code/adjoint/inverse_driver.f +++ b/code/adjoint/inverse_driver.f @@ -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 继续增加迭代次数 diff --git a/code/adjoint/inverse_mod.f b/code/adjoint/inverse_mod.f index d4b4120..97003c2 100644 --- a/code/adjoint/inverse_mod.f +++ b/code/adjoint/inverse_mod.f @@ -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 diff --git a/code/new/routines.f b/code/new/routines.f index 2fb903a..33a855b 100644 --- a/code/new/routines.f +++ b/code/new/routines.f @@ -3452,7 +3452,7 @@ c stpmax is a double precision variable. c On entry stpmax is a nonnegative upper bound for the step. c On exit stpmax is unchanged. c -c task is a character variable of length at least 60. +c task is a character variable of length at least 60. 关于 task 变量的具体说明 c On initial entry task must be set to 'START'. c On exit task indicates the required action: c