|
Last change
on this file since 2591 was
2488,
checked in by emillour, 5 years ago
|
|
Dynamico interface to LMDZ physics packages:
Add vert_prof_dissip_icosa_lmdz, which computes zvert(), the multiplicative coefficient
for dissipation along model levels, as done in LMDZ.COMMON's inidissip.
This is meant to be used as a "plugin" by icosagcm via the option
"vert_prof_dissip_type=plugin" that has been added in icosagcm.
EM
|
|
File size:
444 bytes
|
| Line | |
|---|
| 1 | PROGRAM icosa_lmdz |
|---|
| 2 | USE icosa_init_mod, ONLY: icosa_init |
|---|
| 3 | USE disvert_plugin_mod, ONLY: disvert_plugin |
|---|
| 4 | USE disvert_icosa_lmdz_mod, ONLY: disvert_icosa_lmdz |
|---|
| 5 | USE dissip_gcm_mod, ONLY: vert_prof_dissip_plugin |
|---|
| 6 | USE vert_prof_dissip_icosa_lmdz_mod, ONLY: vert_prof_dissip_icosa_lmdz |
|---|
| 7 | |
|---|
| 8 | ! set up plugins |
|---|
| 9 | disvert_plugin => disvert_icosa_lmdz |
|---|
| 10 | vert_prof_dissip_plugin => vert_prof_dissip_icosa_lmdz |
|---|
| 11 | |
|---|
| 12 | CALL icosa_init |
|---|
| 13 | |
|---|
| 14 | END PROGRAM icosa_lmdz |
|---|
Note: See
TracBrowser
for help on using the repository browser.
