Changeset 5394 for LMDZ6/trunk/libf/phylmd/aeropt_5wv.f90
- Timestamp:
- Dec 6, 2024, 2:10:59 PM (7 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/aeropt_5wv.f90
r5285 r5394 97 97 !$OMP THREADPRIVATE(presnivs_19) 98 98 99 REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19,& 100 B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19,& 101 A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19,& 102 B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19, & 103 A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19,& 104 B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_1999 REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19 100 REAL, SAVE, DIMENSION(nb_level) :: B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19 101 REAL, SAVE, DIMENSION(nb_level) :: A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19 102 REAL, SAVE, DIMENSION(nb_level) :: B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19 103 REAL, SAVE, DIMENSION(nb_level) :: A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19 104 REAL, SAVE, DIMENSION(nb_level) :: B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_19 105 105 !$OMP THREADPRIVATE(A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19) 106 106 !$OMP THREADPRIVATE(B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19) … … 111 111 112 112 ! Coefficient optiques interpole sur le nombre de niveau du modele 113 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: & 114 A1_ASSSM, A2_ASSSM, A3_ASSSM,& 115 B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM,& 116 A1_CSSSM, A2_CSSSM, A3_CSSSM,& 117 B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM, & 118 A1_SSSSM, A2_SSSSM, A3_SSSSM,& 119 B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM 113 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_ASSSM, A2_ASSSM, A3_ASSSM 114 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM 115 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_CSSSM, A2_CSSSM, A3_CSSSM 116 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM 117 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: A1_SSSSM, A2_SSSSM, A3_SSSSM 118 REAL, ALLOCATABLE, DIMENSION(:), SAVE :: B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM 120 119 !$OMP THREADPRIVATE(A1_ASSSM, A2_ASSSM, A3_ASSSM) 121 120 !$OMP THREADPRIVATE(B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM)
Note: See TracChangeset
for help on using the changeset viewer.