source: codes/icosagcm/trunk/src/icosa_mod.f90 @ 1048

Last change on this file since 1048 was 352, checked in by dubos, 9 years ago

Thread-safety fixes

File size: 392 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
21
[19]22END MODULE icosa
Note: See TracBrowser for help on using the repository browser.