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

update adjoint

Browse Source
This commit is contained in:
SolaSUSTech
2025-10-08 21:56:36 +08:00
parent 926eb40b05
commit c0c2abf613
3 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
code/adjoint/chemistry_adj_mod.f
View File

@ -196,24 +196,24 @@
ENDIF
!=================================================================
! If LADJ_CHEM=T then call the adjoint chemistry subroutines
! If LADJ_CHEM=T then call the adjoint chemistry subroutines 追踪化学过程
!=================================================================
IF ( LADJ_CHEM ) THEN
IF ( LADJ_CHEM ) THEN ! 如果追踪化学过程
!---------------------------------
! NOx-Ox-HC (w/ or w/o aerosols)
!---------------------------------
IF ( ITS_A_FULLCHEM_SIM() ) THEN
IF ( ITS_A_FULLCHEM_SIM() ) THEN ! 如果是全化学模拟
! Adjoint of remove acetone ocean sink (it is self-adjoint)
IF ( IDTACET /= 0 ) THEN
CALL OCEAN_SINK_ACET( STT_ADJ(:,:,1,IDTACET) )
CALL OCEAN_SINK_ACET( STT_ADJ(:,:,1,IDTACET) ) ! 海洋方面的
ENDIF
! Do carbonaceous aerosol chemistry
! Do carbonaceous aerosol chemistry 碳质气溶胶部分
IF ( LCARB ) CALL CHEMCARBON_ADJ
! Also do sulfate chemistry
! Also do sulfate chemistry 硫酸盐化学
IF ( LSULF ) THEN
! Do aerosol thermodynamic equilibrium
@ -251,7 +251,7 @@
& STT_ADJ(IFD,JFD,LFD,NFD)
ENDIF
! Call adjoint aerosol thermodynamics routine
! Call adjoint aerosol thermodynamics routine 气溶胶热力学过程
CALL DO_RPMARES_ADJ
ENDIF
@ -259,19 +259,19 @@
ENDIF
!------------------------------------------------------------
! Do sulfate chemistry
! Do sulfate chemistry 最终计算硫酸盐的伴随
CALL CHEMSULFATE_ADJ
ENDIF
! Call SMVGEAR routines
! Call SMVGEAR routines 反正是啥的伴随
CALL CHEMDR_ADJ
! Do seasalt aerosol chemistry
! Do seasalt aerosol chemistry 海盐气溶胶的化学(目前不支持)
IF ( LSSALT ) print*, ' ADJ of CHEMSEASALT not supported'
! IF ( LSSALT ) CALL CHEMSEASALT
! Do dust aerosol chemistry
! Do dust aerosol chemistry 沙尘气溶胶的伴随
IF ( LDUST ) CALL CHEMDUST_ADJ
! ND44 drydep fluxes
@ -403,7 +403,7 @@
CALL CHEM_HCN_CH3CN( N_TRACERS, STT )
!---------------------------------
! Tagged O3
! Tagged O3 臭氧的部分?
!---------------------------------
ELSE IF ( ITS_A_TAGOX_SIM() ) THEN
@ -428,7 +428,7 @@
CALL CHEMC2H6
!---------------------------------
! CH4 now supported (adj32_023)
! CH4 now supported (adj32_023) 如果是甲烷的部分
!---------------------------------
ELSE IF ( ITS_A_CH4_SIM() ) THEN