3 |
! |
! |
4 |
c |
c |
5 |
c |
c |
6 |
SUBROUTINE iniphysiq(ngrid,nlayer, |
SUBROUTINE iniphysiq(ngrid,nlayer, plat,plon,parea,pcu,pcv, |
|
$ punjours, |
|
|
$ pdayref,ptimestep, |
|
|
$ plat,plon,parea,pcu,pcv, |
|
7 |
$ prad,pg,pr,pcpp) |
$ prad,pg,pr,pcpp) |
8 |
use dimens_m |
use dimens_m |
9 |
use dimphy |
use dimphy |
45 |
c ------------- |
c ------------- |
46 |
|
|
47 |
|
|
48 |
REAL prad,pg,pr,pcpp,punjours |
REAL prad,pg,pr,pcpp |
49 |
|
|
50 |
INTEGER ngrid,nlayer |
INTEGER ngrid,nlayer |
51 |
REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon) |
REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon) |
|
INTEGER pdayref |
|
|
|
|
|
REAL ptimestep |
|
52 |
|
|
53 |
IF (nlayer.NE.klev) THEN |
IF (nlayer.NE.klev) THEN |
54 |
PRINT*,'STOP in inifis' |
PRINT*,'STOP in inifis' |