update adjoint

code/adjoint/sulfate_adj_mod.f

@@ -3122,7 +3122,7 @@ C----------------------------------------------
          ! Fraction of box (I,J,L) underneath the PBL top [unitless]
          F_UNDER_TOP = GET_FRAC_UNDER_PBLTOP( I, J, L )
 
-         ! Only apply drydep to boxes w/in the PBL
+         ! Only apply drydep to boxes w/in the PBL 仅计算边界层内的
          IF ( F_UNDER_TOP > 0d0 ) THEN
 
             ! NH4 drydep frequency [1/s].  Also accounts for the fraction
@@ -3382,7 +3382,7 @@ C----------------------------------------------
       ! Model level where maximum PBL height occurs
       PBL_MAX = GET_PBL_MAX_L()
 
-      ! Determine if it is time to apply deposition forcing
+      ! Determine if it is time to apply deposition forcing 判断加不加强迫取决于有没有观测
       FORCE    = .FALSE.
       IF ( LMAX_OBS ) THEN
          OBS_COUNT = OBS_COUNT +  1
@@ -3421,7 +3421,7 @@ C----------------------------------------------
 !$OMP+PRIVATE( RKTs, E_RKTs, AREA_CM2, FLUX                      )
 !$OMP+PRIVATE( ADJ_NIT0, ADJ_NIT )
 !$OMP+SCHEDULE( DYNAMIC )
-      DO L = 1, PBL_MAX
+      DO L = 1, PBL_MAX ! 这部分开始逐个网格计算了, 也就是伴随的部分还是逐网格的
       DO J = 1, JJPAR
       DO I = 1, IIPAR
 
@@ -3434,7 +3434,7 @@ C----------------------------------------------
          ! Fraction of box (I,J,L) underneath the PBL top [unitless]
          F_UNDER_TOP = GET_FRAC_UNDER_PBLTOP( I, J, L )
 
-         ! Only apply drydep to boxes w/in the PBL
+         ! Only apply drydep to boxes w/in the PBL 仅在有干沉降的时候运行
          IF ( F_UNDER_TOP > 0d0 ) THEN
 
             !===========================================================