Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update 20251007

Browse Source
This commit is contained in:
Sola_MBA
2025-10-08 16:10:00 +08:00
parent 3a904fc5d5
commit 2370ddd793
3 changed files with 67 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
code/adjoint/geos_chem_adj_mod.f
View File

@ -283,11 +283,11 @@
LOGICAL :: FIRST_WEAK
!=================================================================
! GEOS-CHEM-ADJ starts here!
! GEOS-CHEM-ADJ starts here! 开始伴随过程
!=================================================================
!=================================================================
! ***** I N I T I A L I Z A T I O N *****
! ***** I N I T I A L I Z A T I O N ***** 初始化
!=================================================================
!----------------------------------------------------------------------
@ -305,7 +305,7 @@
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
WRITE( 6, '(a,/)' ) 'B A C K W A R D I N T E G R A T I O N'
! Now set DIRECTION to -1 to indicate that it's adjoint integration
! Now set DIRECTION to -1 to indicate that it's adjoint integration 设置积分的方向
CALL SET_DIRECTION( -1 )
! Initialize allocatable arrays
@ -321,7 +321,7 @@
!ENDIF
! Open BACKWD_met file
! Open BACKWD_met file 打开逆向的气象文件，里面就是一些描述信息倒是
CALL DISPLAY_MET(165,0)
! Define time variables for use below
@ -343,7 +343,7 @@
ENDIF
! BUG FIX: need to reset EMS_SF_ADJ so that gradients do not
! accumulate from one iteration to the next. (zj, dkh, 07/30/10)
! accumulate from one iteration to the next. (zj, dkh, 07/30/10) 在每次迭代中重置了梯度的数组
IF ( LADJ_EMS ) EMS_SF_ADJ = 0D0
! for new strat. chem. (hml, 08/09/11, adj32_025)
@ -356,7 +356,7 @@
IF ( LADJ_RRATE ) RATE_SF_ADJ = 0D0
!=================================================================
! ***** 6 - H O U R T I M E S T E P L O O P *****
! ***** 6 - H O U R T I M E S T E P L O O P ***** 进行 6 小时的积分
!=================================================================
! Echo message before first timestep
@ -368,28 +368,28 @@
! NSTEP is the number of dynamic timesteps w/in a 6-h interval
! N_DYN_STEPS = 360 / GET_TS_DYN()
! now with geos-fp (lzh, 07/10/2014)
! now with geos-fp (lzh, 07/10/2014) 计算需要计算的次数 N_DYN_STEPS
#if defined( GEOS_FP )
N_DYN_STEPS = 180 / GET_TS_DYN() ! GEOS-5.7.x has a 3-hr interval
#else
N_DYN_STEPS = 360 / GET_TS_DYN() ! All other met has a 6hr interval
#endif
FINAL_ELAPSED_MIN = GET_ELAPSED_MIN()
FINAL_ELAPSED_MIN = GET_ELAPSED_MIN() ! 获得程序运行的分钟数（？）应该不是指现实时间
! Start a new 6-h loop
! Start a new 6-h loop 开始迭代积分
DO
! Get dynamic timestep in seconds
! Get dynamic timestep in seconds 获得积分时间
N_DYN = 60d0 * GET_TS_DYN()
! Compute time parameters at start of 6-h loop
! Compute time parameters at start of 6-h loop 获取当前时间
CALL SET_CURRENT_TIME
!=================================================================
! ***** D Y N A M I C T I M E S T E P L O O P *****
! ***** D Y N A M I C T I M E S T E P L O O P ***** 开始积分
!=================================================================
DO MIN_ADJ = FINAL_ELAPSED_MIN - GET_TS_DYN(), 0, - GET_TS_DYN()
DO MIN_ADJ = FINAL_ELAPSED_MIN - GET_TS_DYN(), 0, - GET_TS_DYN() ! 从最后时刻反向积分到 0 时刻
! mak debug
WRITE(6,*)'start of adj time step'
@ -400,7 +400,7 @@
! Compute & print time quantities at start of dyn step
CALL SET_CURRENT_TIME
! Set time variables for dynamic loop
! Set time variables for dynamic loop 获得时间参数
!DAY = GET_DAY()
DAY_OF_YEAR = GET_DAY_OF_YEAR()
ELAPSED_SEC = GET_ELAPSED_SEC()
@ -413,7 +413,7 @@
!CALL MAKE_ADJOINT_CHKFILE( NYMD, NHMS, TAU )
! Get info from the perturbed forward run
! Get info from the perturbed forward run 从前向模拟中获得相关信息和数据，输入的是时间
CALL LOAD_CHECKPT_DATA( NYMD, NHMS )
! mkeller: weak constraint stuff
@ -428,7 +428,7 @@
ENDIF
!============================================================
! ***** R E A D M E T F I E L D S *****
! ***** R E A D M E T F I E L D S ***** 读取气象场数据
!============================================================
! If it is the first time through, we will use i6 field from the
! forward calculation, and all we need to do is set NSECb_ADJ
@ -474,7 +474,7 @@
ENDIF
!==============================================================
! ***** R E A D I - 6 F I E L D S *****
! ***** R E A D I - 6 F I E L D S ***** 读取 I6 场
!==============================================================
!!! geos-fp (lzh, 07/10/2014)
#if defined( GEOS_FP )
@ -502,8 +502,8 @@
! Compute avg pressure at polar caps (for ADJ argument is PS1, not PS2)
CALL AVGPOLE( PS1 )
! Set NSECb_ADJ to be used for the interpolation
! where NSECb_ADJ is the total elapsed time in seconds at the
! Set NSECb_ADJ to be used for the interpolation 这个参数是用来插值的
! where NSECb_ADJ is the total elapsed time in seconds at the 表示从当前 6 小时时间步开始的秒钟数
! beginning of the current 6h time step which contains ELAPSED_MIN
NSECb_ADJ = ( MIN_ADJ + GET_TS_DYN() ) * 60 - 3 * 3600
ENDIF
@ -524,9 +524,9 @@
! Get the date/time for the previous I-6 data block
BEHIND_DATE = GET_I6_TIME_ADJ()
! Open and read files
! Open and read files 虽然是打开了气象场文件，但不确定是正向模拟使用的还是专用于伴随的，程序是专用于伴随的
CALL OPEN_I6_FIELDS_ADJ( BEHIND_DATE(1), BEHIND_DATE(2) )
CALL GET_I6_FIELDS_1_ADJ( BEHIND_DATE(1), BEHIND_DATE(2) )
CALL GET_I6_FIELDS_1_ADJ( BEHIND_DATE(1), BEHIND_DATE(2) ) ! 从这边看应该是读取的原始气象场
PRINT*,'I6 DATE = ',BEHIND_DATE(1),BEHIND_DATE(2)
! Compute avg pressure at polar caps (for ADJ argument is PS1, not PS2)
@ -608,7 +608,7 @@
CALL GET_A3_FIELDS( BEHIND_DATE(1), BEHIND_DATE(2) )
! Update daily mean temperature archive for MEGAN biogenics
! For adjoint, read in checkpointed values (dkh, 01/23/10)
! For adjoint, read in checkpointed values (dkh, 01/23/10) 对于伴随来说，则是将气象场读入检查点值
IF ( LMEGAN ) CALL UPDATE_T_DAY_ADJ
#if defined( GEOS_3 )
@ -625,7 +625,7 @@
#endif
!DAY_OF_SIM initialized to -1 in INIT_ADJ_ARRAYS
! keeps tabs of day of simulation, going backward in time
! keeps tabs of day of simulation, going backward in time 确保模拟是反向运行的
! this is handy for storing diagnostic files that have dimensions
! (IIPAR,JJPAR,DAYS), where DAYS is number of days in simulation
! (adj_group, 6/09/09)
@ -649,7 +649,7 @@
!==============================================================
! ***** M O N T H L Y O R S E A S O N A L D A T A *****
! ***** M O N T H L Y O R S E A S O N A L D A T A ***** 月度或者季节数据
!==============================================================
! UV albedoes
@ -668,7 +668,7 @@
!==============================================================
! ***** D A I L Y D A T A *****
! ***** D A I L Y D A T A ***** 读取每日的数据
!
! RDLAI returns today's leaf-area index
! RDSOIL returns today's soil type information
@ -726,7 +726,7 @@
! ***** I N T E R P O L A T E Q U A N T I T I E S *****
!
! Interpolate I-6 fields to current dynamic timestep,
! based on their values at NSEC and NSEC+NTDT
! based on their values at NSEC and NSEC+NTDT 将气象场数据插值到当前时刻
!==============================================================
#if defined ( GEOS_3 )
@ -739,11 +739,11 @@
ENDIF
#endif
! If we are not doing transport, then make sure that
! If we are not doing transport, then make sure that 为什么会有不做传输的选项啊
! the floating pressure is set to PSC2 (bdf, bmy, 8/22/02)
IF ( .not. LTRAN ) CALL SET_FLOATING_PRESSURE( PSC2 )
! Compute airmass quantities at each grid box
! Compute airmass quantities at each grid box 计算每个网格的空气质量
CALL AIRQNT
! OLD:
@ -2721,7 +2721,7 @@
!
!******************************************************************************
! Subroutine CALC_ADJ_FORCE_FOR_SENS calculates the cost function for
! sensitivity calculations. (dkh, ks, mak, cs 06/08/09)
! sensitivity calculations. (dkh, ks, mak, cs 06/08/09) 用于敏感性计算的程序
!
! NOTE:
! (1 ) Split off from CALC_ADJ_FORCE (dkh, ks, mak, cs 06/08/09)
@ -3387,7 +3387,7 @@
!
!******************************************************************************
! Subroutine LOAD_CHECKPT_DATA reads in information stored during the forward
! calculation. Some of the data (CSPEC) needs to be rotated.
! calculation. Some of the data (CSPEC) needs to be rotated. 读取前向模型的相关数据，某些数据可能需要转置
! (dkh, 08/10/05)
!
! Arguments as Input:
@ -3468,7 +3468,7 @@
! LOAD_CHECKPT_DATA begins here!
!=================================================================
! Load the TMP met fields so they can rotate in later.
! Load the TMP met fields so they can rotate in later. 设置了一些临时变量
IF ( FIRST ) THEN
SLP_TMP(:,:) = SLP(:,:)
#if defined( GEOS_3 ) || defined( GEOS_4 ) || defined( GEOS_5 ) || defined(GEOS_FP)
@ -3481,26 +3481,26 @@
FIRST = .FALSE.
ENDIF
IF ( ITS_TIME_FOR_CHEM() ) THEN
IF ( ITS_TIME_FOR_CHEM() ) THEN ! 如果是需要计算化学过程
! Rotate arrays for fullchem
IF ( ITS_A_FULLCHEM_SIM() ) THEN
IF ( ITS_A_FULLCHEM_SIM() ) THEN ! 如果全化学模拟
IF ( TURNAROUND .and. IDO3 /= 0 .and. IDNO2 /=0 ) THEN
IF ( TURNAROUND .and. IDO3 /= 0 .and. IDNO2 /=0 ) THEN ! 如果包含 O3 和 NO2？
! Added in v16 (dkh, 08/27/06)
! Get directly from CSPEC the first time
!$OMP PARALLEL DO
!$OMP+DEFAULT( SHARED )
!$OMP+PRIVATE( JLOOP, N, IDCSPEC )
DO JLOOP = 1, ITLOOP
DO N = 1, NOBS_CSPEC
DO JLOOP = 1, ITLOOP ! 对？迭代
DO N = 1, NOBS_CSPEC ! 对所有化学物种迭代
IDCSPEC = IDCSPEC_ADJ(N)
IDCSPEC = IDCSPEC_ADJ(N) ! 获取对应的 ID
! Now make this more general (dkh, 02/09/11)
!O3_AFTER_CHEM(JLOOP) = CSPEC(JLOOP,IDO3)
!NO2_AFTER_CHEM(JLOOP) = CSPEC(JLOOP,IDNO2)
CSPEC_AFTER_CHEM(JLOOP,N) = CSPEC(JLOOP,IDCSPEC)
CSPEC_AFTER_CHEM(JLOOP,N) = CSPEC(JLOOP,IDCSPEC) ! 大概是 ID 和 迭代的对应？
ENDDO
ENDDO
@ -3534,13 +3534,13 @@
!$OMP END PARALLEL DO
ENDIF
! Turnaround will be false after the first time through this routine
! Turnaround will be false after the first time through this routine 在第一次运行后，ID 获取的来源就环卫 CHK_CSPEC
TURNAROUND = .FALSE.
ENDIF ! fullchem
! Read data from file
CALL READ_CHECKPT_FILE ( NYMD, NHMS )
CALL READ_CHECKPT_FILE ( NYMD, NHMS ) ! 读取检查点文件
IF ( ITS_A_FULLCHEM_SIM() .AND. LCHEM ) THEN