|
Last change
on this file since 773 was
135,
checked in by aslmd, 14 years ago
|
|
CHANGEMENT ARBORESCENCE ETAPE 2 -- NON COMPLET
|
|
File size:
664 bytes
|
| Line | |
|---|
| 1 | SUBROUTINE exner(ngrid,pext,aire,pks,pksf) |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | c ......... Version du 16/04/96 ......... |
|---|
| 5 | c |
|---|
| 6 | c----------------------------------------------------------------------- |
|---|
| 7 | c declarations: |
|---|
| 8 | c ------------- |
|---|
| 9 | |
|---|
| 10 | #include "comconst.h" |
|---|
| 11 | |
|---|
| 12 | INTEGER ngrid |
|---|
| 13 | REAL pext(ngrid),aire(ngrid),pks(ngrid),pksf(ngrid) |
|---|
| 14 | |
|---|
| 15 | INTEGER ig,iii |
|---|
| 16 | |
|---|
| 17 | EXTERNAL filtreg |
|---|
| 18 | |
|---|
| 19 | c----------------------------------------------------------------------- |
|---|
| 20 | |
|---|
| 21 | DO 3 ig = 1,ngrid |
|---|
| 22 | pks( ig ) = ( pext( ig )/ aire( ig ) ) ** kappa |
|---|
| 23 | pksf( ig ) = pks( ig ) |
|---|
| 24 | 3 CONTINUE |
|---|
| 25 | |
|---|
| 26 | CALL filtreg (pksf,jmp1,1,2,1,.true.,1) |
|---|
| 27 | |
|---|
| 28 | RETURN |
|---|
| 29 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
