Changeset 5395
- Timestamp:
- Dec 6, 2024, 2:27:59 PM (5 weeks ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 2 edited
-
aeropt_2bands.f90 (modified) (2 diffs)
-
mo_simple_plumes.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/aeropt_2bands.f90
r5285 r5395 65 65 !$OMP THREADPRIVATE(presnivs_19) 66 66 67 REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_b1_19, A2_ASSSM_b1_19, A3_ASSSM_b1_19 ,&68 B1_ASSSM_b1_19, B2_ASSSM_b1_19, C1_ASSSM_b1_19, C2_ASSSM_b1_19,&69 A1_CSSSM_b1_19, A2_CSSSM_b1_19, A3_CSSSM_b1_19,&70 B1_CSSSM_b1_19, B2_CSSSM_b1_19, C1_CSSSM_b1_19, C2_CSSSM_b1_19,&71 A1_SSSSM_b1_19, A2_SSSSM_b1_19, A3_SSSSM_b1_19,&72 B1_SSSSM_b1_19, B2_SSSSM_b1_19, C1_SSSSM_b1_19, C2_SSSSM_b1_19,&73 A1_ASSSM_b2_19, A2_ASSSM_b2_19, A3_ASSSM_b2_19,&74 B1_ASSSM_b2_19, B2_ASSSM_b2_19, C1_ASSSM_b2_19, C2_ASSSM_b2_19,&75 A1_CSSSM_b2_19, A2_CSSSM_b2_19, A3_CSSSM_b2_19,&76 B1_CSSSM_b2_19, B2_CSSSM_b2_19, C1_CSSSM_b2_19, C2_CSSSM_b2_19,&77 A1_SSSSM_b2_19, A2_SSSSM_b2_19, A3_SSSSM_b2_19,&78 67 REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_b1_19, A2_ASSSM_b1_19, A3_ASSSM_b1_19 68 REAL, SAVE, DIMENSION(nb_level) :: B1_ASSSM_b1_19, B2_ASSSM_b1_19, C1_ASSSM_b1_19, C2_ASSSM_b1_19 69 REAL, SAVE, DIMENSION(nb_level) :: A1_CSSSM_b1_19, A2_CSSSM_b1_19, A3_CSSSM_b1_19 70 REAL, SAVE, DIMENSION(nb_level) :: B1_CSSSM_b1_19, B2_CSSSM_b1_19, C1_CSSSM_b1_19, C2_CSSSM_b1_19 71 REAL, SAVE, DIMENSION(nb_level) :: A1_SSSSM_b1_19, A2_SSSSM_b1_19, A3_SSSSM_b1_19 72 REAL, SAVE, DIMENSION(nb_level) :: B1_SSSSM_b1_19, B2_SSSSM_b1_19, C1_SSSSM_b1_19, C2_SSSSM_b1_19 73 REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_b2_19, A2_ASSSM_b2_19, A3_ASSSM_b2_19 74 REAL, SAVE, DIMENSION(nb_level) :: B1_ASSSM_b2_19, B2_ASSSM_b2_19, C1_ASSSM_b2_19, C2_ASSSM_b2_19 75 REAL, SAVE, DIMENSION(nb_level) :: A1_CSSSM_b2_19, A2_CSSSM_b2_19, A3_CSSSM_b2_19 76 REAL, SAVE, DIMENSION(nb_level) :: B1_CSSSM_b2_19, B2_CSSSM_b2_19, C1_CSSSM_b2_19, C2_CSSSM_b2_19 77 REAL, SAVE, DIMENSION(nb_level) :: A1_SSSSM_b2_19, A2_SSSSM_b2_19, A3_SSSSM_b2_19 78 REAL, SAVE, DIMENSION(nb_level) :: B1_SSSSM_b2_19, B2_SSSSM_b2_19, C1_SSSSM_b2_19, C2_SSSSM_b2_19 79 79 !$OMP THREADPRIVATE(A1_ASSSM_b1_19, A2_ASSSM_b1_19, A3_ASSSM_b1_19) 80 80 !$OMP THREADPRIVATE(B1_ASSSM_b1_19, B2_ASSSM_b1_19, C1_ASSSM_b1_19, C2_ASSSM_b1_19) … … 92 92 93 93 ! Coefficient optiques interpole sur le nombre de niveau du modele 94 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: & 95 A1_ASSSM_b1, A2_ASSSM_b1, A3_ASSSM_b1,& 96 B1_ASSSM_b1, B2_ASSSM_b1, C1_ASSSM_b1, C2_ASSSM_b1,& 97 A1_CSSSM_b1, A2_CSSSM_b1, A3_CSSSM_b1,& 98 B1_CSSSM_b1, B2_CSSSM_b1, C1_CSSSM_b1, C2_CSSSM_b1,& 99 A1_SSSSM_b1, A2_SSSSM_b1, A3_SSSSM_b1,& 100 B1_SSSSM_b1, B2_SSSSM_b1, C1_SSSSM_b1, C2_SSSSM_b1,& 101 A1_ASSSM_b2, A2_ASSSM_b2, A3_ASSSM_b2,& 102 B1_ASSSM_b2, B2_ASSSM_b2, C1_ASSSM_b2, C2_ASSSM_b2,& 103 A1_CSSSM_b2, A2_CSSSM_b2, A3_CSSSM_b2,& 104 B1_CSSSM_b2, B2_CSSSM_b2, C1_CSSSM_b2, C2_CSSSM_b2,& 105 A1_SSSSM_b2, A2_SSSSM_b2, A3_SSSSM_b2,& 106 B1_SSSSM_b2, B2_SSSSM_b2, C1_SSSSM_b2, C2_SSSSM_b2 94 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_ASSSM_b1, A2_ASSSM_b1, A3_ASSSM_b1 95 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_ASSSM_b1, B2_ASSSM_b1, C1_ASSSM_b1, C2_ASSSM_b1 96 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_CSSSM_b1, A2_CSSSM_b1, A3_CSSSM_b1 97 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_CSSSM_b1, B2_CSSSM_b1, C1_CSSSM_b1, C2_CSSSM_b1 98 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_SSSSM_b1, A2_SSSSM_b1, A3_SSSSM_b1 99 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_SSSSM_b1, B2_SSSSM_b1, C1_SSSSM_b1, C2_SSSSM_b1 100 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_ASSSM_b2, A2_ASSSM_b2, A3_ASSSM_b2 101 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_ASSSM_b2, B2_ASSSM_b2, C1_ASSSM_b2, C2_ASSSM_b2 102 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_CSSSM_b2, A2_CSSSM_b2, A3_CSSSM_b2 103 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_CSSSM_b2, B2_CSSSM_b2, C1_CSSSM_b2, C2_CSSSM_b2 104 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_SSSSM_b2, A2_SSSSM_b2, A3_SSSSM_b2 105 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_SSSSM_b2, B2_SSSSM_b2, C1_SSSSM_b2, C2_SSSSM_b2 107 106 !$OMP THREADPRIVATE(A1_ASSSM_b1, A2_ASSSM_b1, A3_ASSSM_b1) 108 107 !$OMP THREADPRIVATE(B1_ASSSM_b1, B2_ASSSM_b1, C1_ASSSM_b1, C2_ASSSM_b1) -
LMDZ6/trunk/libf/phylmd/mo_simple_plumes.f90
r5268 r5395 34 34 nyears = 251 !< Number of years of available forcing 35 35 36 LOGICAL, SAVE :: & 37 sp_initialized = .FALSE. !< parameter determining whether input needs to be read 36 LOGICAL, SAVE :: sp_initialized = .FALSE. !< parameter determining whether input needs to be read 38 37 !$OMP THREADPRIVATE(sp_initialized) 39 38 40 REAL, SAVE :: & 41 plume_lat (nplumes) ,& !< latitude of plume center (AOD maximum) 42 plume_lon (nplumes) ,& !< longitude of plume center (AOD maximum) 43 beta_a (nplumes) ,& !< parameter a for beta function vertical profile 44 beta_b (nplumes) ,& !< parameter b for beta function vertical profile 45 aod_spmx (nplumes) ,& !< anthropogenic AOD maximum at 550 for plumes 46 aod_fmbg (nplumes) ,& !< anthropogenic AOD at 550 for fine-mode natural background (idealized to mimic Twomey effect) 47 asy550 (nplumes) ,& !< asymmetry parameter at 550nm for plume 48 ssa550 (nplumes) ,& !< single scattering albedo at 550nm for plume 49 angstrom (nplumes) ,& !< Angstrom parameter for plume 50 sig_lon_E (nfeatures,nplumes) ,& !< Eastward extent of plume feature 51 sig_lon_W (nfeatures,nplumes) ,& !< Westward extent of plume feature 52 sig_lat_E (nfeatures,nplumes) ,& !< Southward extent of plume feature 53 sig_lat_W (nfeatures,nplumes) ,& !< Northward extent of plume feature 54 theta (nfeatures,nplumes) ,& !< Rotation angle of plume feature 55 ftr_weight (nfeatures,nplumes) ,& !< Feature weights 56 year_weight (nyears,nplumes) ,& !< Yearly weight for plume 57 ann_cycle (nfeatures,ntimes,nplumes) !< annual cycle for plume feature 39 REAL, SAVE :: plume_lat (nplumes) !< latitude of plume center (AOD maximum) 40 REAL, SAVE :: plume_lon (nplumes) !< longitude of plume center (AOD maximum) 41 REAL, SAVE :: beta_a (nplumes) !< parameter a for beta function vertical profile 42 REAL, SAVE :: beta_b (nplumes) !< parameter b for beta function vertical profile 43 REAL, SAVE :: aod_spmx (nplumes) !< anthropogenic AOD maximum at 550 for plumes 44 REAL, SAVE :: aod_fmbg (nplumes) !< anthropogenic AOD at 550 for fine-mode natural background (idealized to mimic Twomey effect) 45 REAL, SAVE :: asy550 (nplumes) !< asymmetry parameter at 550nm for plume 46 REAL, SAVE :: ssa550 (nplumes) !< single scattering albedo at 550nm for plume 47 REAL, SAVE :: angstrom (nplumes) !< Angstrom parameter for plume 48 REAL, SAVE :: sig_lon_E (nfeatures,nplumes) !< Eastward extent of plume feature 49 REAL, SAVE :: sig_lon_W (nfeatures,nplumes) !< Westward extent of plume feature 50 REAL, SAVE :: sig_lat_E (nfeatures,nplumes) !< Southward extent of plume feature 51 REAL, SAVE :: sig_lat_W (nfeatures,nplumes) !< Northward extent of plume feature 52 REAL, SAVE :: theta (nfeatures,nplumes) !< Rotation angle of plume feature 53 REAL, SAVE :: ftr_weight (nfeatures,nplumes) !< Feature weights 54 REAL, SAVE :: year_weight (nyears,nplumes) !< Yearly weight for plume 55 REAL, SAVE :: ann_cycle (nfeatures,ntimes,nplumes) !< annual cycle for plume feature 58 56 !$OMP THREADPRIVATE(plume_lat,plume_lon,beta_a,beta_b,aod_spmx,aod_fmbg,asy550,ssa550,angstrom) 59 57 !$OMP THREADPRIVATE(sig_lon_E,sig_lon_W,sig_lat_E,sig_lat_W,theta,ftr_weight,year_weight,ann_cycle)
Note: See TracChangeset
for help on using the changeset viewer.
