Last change
on this file since 5112 was
5081,
checked in by abarral, 7 months ago
|
Commit linked to correcting relevant warnings during gfortran compilation
[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors
|
File size:
816 bytes
|
Rev | Line | |
---|
[4090] | 1 | !===================================================================== |
---|
| 2 | ! Specifique de Ale/Alp : |
---|
| 3 | !===================================================================== |
---|
| 4 | ! Mettre ca dans un alealp_th.sh en attendant mieux ... |
---|
| 5 | |
---|
| 6 | ! dans alealp_th, thermcell_alp, physiq_mod, conf_phys |
---|
[4843] | 7 | integer :: iflag_trig_bl,iflag_clos_bl,iflag_strig |
---|
[4090] | 8 | integer :: tau_trig_shallow,tau_trig_deep |
---|
[4843] | 9 | real :: s_trig, h_trig |
---|
[4090] | 10 | ! thermcell_alp et convection ... |
---|
| 11 | integer :: iflag_coupl,iflag_clos,iflag_wake |
---|
| 12 | ! thermcell_alp |
---|
| 13 | real :: alp_bl_k |
---|
| 14 | |
---|
[4843] | 15 | common/calpale1/iflag_trig_bl,iflag_clos_bl,tau_trig_shallow,tau_trig_deep,iflag_strig |
---|
[5081] | 16 | common/calpale2/alp_bl_k,s_trig,h_trig,iflag_coupl,iflag_clos,iflag_wake |
---|
[4090] | 17 | |
---|
| 18 | !$OMP THREADPRIVATE(/calpale1/,/calpale2/) |
---|
Note: See
TracBrowser
for help on using the repository browser.