|
Last change
on this file since 4242 was
4231,
checked in by dubos, 5 years ago
|
|
simple_physics : DYNAMICO driver (TBC)
|
|
File size:
432 bytes
|
| Line | |
|---|
| 1 | PROGRAM icosa_gcm |
|---|
| 2 | USE icosa_init_mod, ONLY : icosa_init |
|---|
| 3 | USE icosa_phyparam_mod, ONLY : init_physics, physics |
|---|
| 4 | USE physics_mod, ONLY : init_physics_plugin, physics_plugin |
|---|
| 5 | |
|---|
| 6 | init_physics_plugin => init_physics |
|---|
| 7 | physics_plugin => physics |
|---|
| 8 | |
|---|
| 9 | CALL icosa_init |
|---|
| 10 | |
|---|
| 11 | END PROGRAM icosa_gcm |
|---|
| 12 | |
|---|
| 13 | SUBROUTINE initialize_external_physics |
|---|
| 14 | END SUBROUTINE initialize_external_physics |
|---|
| 15 | |
|---|
| 16 | SUBROUTINE external_physics |
|---|
| 17 | END SUBROUTINE external_physics |
|---|
Note: See
TracBrowser
for help on using the repository browser.
