- Timestamp:
- Jun 11, 2009, 4:18:47 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_local_var_mod.F90
r1178 r1179 69 69 REAL, SAVE, ALLOCATABLE :: d_ts(:,:), d_tr(:,:,:) 70 70 !$OMP THREADPRIVATE(d_ts, d_tr) 71 72 ! diagnostique pour le rayonnement 73 REAL, SAVE, ALLOCATABLE :: topswad_aero(:), solswad_aero(:) ! diag 74 !$OMP THREADPRIVATE(topswad_aero,solswad_aero) 75 REAL, SAVE, ALLOCATABLE :: topswai_aero(:), solswai_aero(:) ! diag 76 !$OMP THREADPRIVATE(topswai_aero,solswai_aero) 77 REAL, SAVE, ALLOCATABLE :: topswad0_aero(:), solswad0_aero(:) ! pas utilise, eventuellment pour diag 78 !$OMP THREADPRIVATE(topswad0_aero,solswad0_aero) 79 REAL, SAVE, ALLOCATABLE :: topsw_aero(:,:), solsw_aero(:,:) ! pas utilise, eventuellment pour diag 80 !$OMP THREADPRIVATE(topsw_aero,solsw_aero) 81 REAL, SAVE, ALLOCATABLE :: topsw0_aero(:,:), solsw0_aero(:,:) ! pas utilise, eventuellment pour diag 82 !$OMP THREADPRIVATE(topsw0_aero,solsw0_aero) 71 83 CONTAINS 72 84 … … 100 112 allocate(d_u_lif(klon,klev),d_v_lif(klon,klev)) 101 113 allocate(d_ts(klon,klev), d_tr(klon,klev,nbtr)) 114 allocate(topswad_aero(klon), solswad_aero(klon)) 115 allocate(topswai_aero(klon), solswai_aero(klon)) 116 allocate(topswad0_aero(klon), solswad0_aero(klon)) 117 allocate(topsw_aero(klon,9), solsw_aero(klon,9)) 118 allocate(topsw0_aero(klon,9), solsw0_aero(klon,9)) 102 119 allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev)) 103 120 … … 132 149 deallocate(d_u_lif,d_v_lif) 133 150 deallocate(d_ts, d_tr) 151 deallocate(topswad_aero,solswad_aero) 152 deallocate(topswai_aero,solswai_aero) 153 deallocate(topswad0_aero,solswad0_aero) 154 deallocate(topsw_aero,solsw_aero) 155 deallocate(topsw0_aero,solsw0_aero) 134 156 deallocate(d_u_hin,d_v_hin,d_t_hin) 135 157
Note: See TracChangeset
for help on using the changeset viewer.