|
Last change
on this file since 2162 was
1422,
checked in by milmd, 10 years ago
|
|
In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).
|
|
File size:
684 bytes
|
| Rev | Line | |
|---|
| [38] | 1 | SUBROUTINE exner(ngrid,pext,aire,pks,pksf) |
|---|
| [1422] | 2 | |
|---|
| 3 | USE comconst_mod, ONLY: jmp1,kappa |
|---|
| 4 | |
|---|
| [38] | 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | c ......... Version du 16/04/96 ......... |
|---|
| 8 | c |
|---|
| 9 | c----------------------------------------------------------------------- |
|---|
| 10 | c declarations: |
|---|
| 11 | c ------------- |
|---|
| 12 | |
|---|
| 13 | INTEGER ngrid |
|---|
| 14 | REAL pext(ngrid),aire(ngrid),pks(ngrid),pksf(ngrid) |
|---|
| 15 | |
|---|
| 16 | INTEGER ig,iii |
|---|
| 17 | |
|---|
| 18 | EXTERNAL filtreg |
|---|
| 19 | |
|---|
| 20 | c----------------------------------------------------------------------- |
|---|
| 21 | |
|---|
| 22 | DO 3 ig = 1,ngrid |
|---|
| 23 | pks( ig ) = ( pext( ig )/ aire( ig ) ) ** kappa |
|---|
| 24 | pksf( ig ) = pks( ig ) |
|---|
| 25 | 3 CONTINUE |
|---|
| 26 | |
|---|
| 27 | CALL filtreg (pksf,jmp1,1,2,1,.true.,1) |
|---|
| 28 | |
|---|
| 29 | RETURN |
|---|
| 30 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
