Juan 07/07/2020 : PGI BUG partially present , for CTURB = "TKEL"
replace allocatable -> pointer,contiguous ; allocate -> MNH_ALLOCATE_ZT*D ; Some ARRAY SYNTAXE , with implicit copy inrelevenant -> DO CONCURRENT
Showing
- src/MNH/advection_metsv.f90 191 additions, 81 deletionssrc/MNH/advection_metsv.f90
- src/MNH/emoist.f90 78 additions, 43 deletionssrc/MNH/emoist.f90
- src/MNH/etheta.f90 38 additions, 14 deletionssrc/MNH/etheta.f90
- src/MNH/gradient_u.f90 69 additions, 34 deletionssrc/MNH/gradient_u.f90
- src/MNH/gradient_v.f90 79 additions, 44 deletionssrc/MNH/gradient_v.f90
- src/MNH/gradient_w.f90 55 additions, 27 deletionssrc/MNH/gradient_w.f90
- src/MNH/mode_mnh_zwork.f90 312 additions, 37 deletionssrc/MNH/mode_mnh_zwork.f90
- src/MNH/mode_prandtl.f90 66 additions, 15 deletionssrc/MNH/mode_prandtl.f90
- src/MNH/ppm_met.f90 1 addition, 1 deletionsrc/MNH/ppm_met.f90
- src/MNH/prandtl.f90 241 additions, 132 deletionssrc/MNH/prandtl.f90
- src/MNH/tke_eps_sources.f90 49 additions, 17 deletionssrc/MNH/tke_eps_sources.f90
- src/MNH/tridiag_thermo.f90 147 additions, 91 deletionssrc/MNH/tridiag_thermo.f90
- src/MNH/tridiag_tke.f90 79 additions, 38 deletionssrc/MNH/tridiag_tke.f90
- src/MNH/tridiag_w.f90 136 additions, 80 deletionssrc/MNH/tridiag_w.f90
- src/MNH/tridiag_wind.f90 83 additions, 42 deletionssrc/MNH/tridiag_wind.f90
- src/MNH/turb.f90 208 additions, 85 deletionssrc/MNH/turb.f90
- src/MNH/turb_hor_dyn_corr.f90 171 additions, 83 deletionssrc/MNH/turb_hor_dyn_corr.f90
- src/MNH/turb_hor_splt.f90 79 additions, 23 deletionssrc/MNH/turb_hor_splt.f90
- src/MNH/turb_hor_sv_flux.f90 44 additions, 15 deletionssrc/MNH/turb_hor_sv_flux.f90
- src/MNH/turb_hor_thermo_corr.f90 51 additions, 18 deletionssrc/MNH/turb_hor_thermo_corr.f90
Loading
Please register or sign in to comment