source: codes/icosagcm/devel/src/icosa_mod.f90 @ 915

Last change on this file since 915 was 715, checked in by dubos, 6 years ago

devel : OpenMP fix for disvert=ncar

File size: 441 bytes
RevLine 
[19]1MODULE icosa
2
3  USE genmod
[186]4  USE getin_mod, ONLY : getin
[19]5  USE grid_param
6  USE metric
7  USE domain_mod
8  USE dimensions
9  USE grid_param
10  USE geometry
11  USE spherical_geom_mod
12  USE vector
13  USE field_mod
[347]14  USE write_field_mod
[19]15  USE transfert_mod
[82]16  USE time_mod
[19]17 
[25]18  ! Variables defined by run.def
19
20  REAL(rstd) :: ncar_dz, ncar_p0, ncar_T0 ! read from run.def by disvert
[715]21  !$OMP THREADPRIVATE(ncar_dz, ncar_p0, ncar_T0)
[25]22
[19]23END MODULE icosa
Note: See TracBrowser for help on using the repository browser.