|
Last change
on this file since 4224 was
4217,
checked in by dubos, 6 years ago
|
|
simple_physics : converted iniphysiq_param to F90
|
|
File size:
889 bytes
|
| Rev | Line | |
|---|
| [4212] | 1 | MODULE comgeomfi |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | SAVE |
|---|
| [4176] | 4 | |
|---|
| [4216] | 5 | REAL, ALLOCATABLE :: long(:), lati(:), sinlon(:), coslon(:), sinlat(:), coslat(:) |
|---|
| 6 | INTEGER :: ngridmax, nlayermx, nsoilmx |
|---|
| 7 | !$OMP THREADPRIVATE(long,lati,sinlon,coslon,sinlat,coslat,totarea) |
|---|
| [4176] | 8 | !$OMP THREADPRIVATE(ngridmax,nlayermx,nsoilmx) |
|---|
| 9 | |
|---|
| [4212] | 10 | CONTAINS |
|---|
| [4176] | 11 | |
|---|
| [4216] | 12 | SUBROUTINE init_comgeomfi(klon, klev, longitude, latitude) |
|---|
| 13 | INTEGER, INTENT(IN) :: klon, klev |
|---|
| 14 | REAL, INTENT(IN) :: longitude(klon), latitude(klon) ! in radians |
|---|
| 15 | ngridmax=klon |
|---|
| [4176] | 16 | nlayermx=klev |
|---|
| 17 | nsoilmx=10 |
|---|
| [4216] | 18 | allocate(long(klon)) |
|---|
| 19 | allocate(lati(klon)) |
|---|
| 20 | allocate(sinlon(klon)) |
|---|
| 21 | allocate(coslon(klon)) |
|---|
| 22 | allocate(sinlat(klon)) |
|---|
| 23 | allocate(coslat(klon)) |
|---|
| 24 | long(:) = longitude(:) |
|---|
| 25 | lati(:) = latitude(:) |
|---|
| 26 | sinlat(:)=sin(lati(:)) |
|---|
| 27 | coslat(:)=cos(lati(:)) |
|---|
| 28 | sinlon(:)=sin(long(:)) |
|---|
| 29 | coslon(:)=cos(long(:)) |
|---|
| 30 | END SUBROUTINE init_comgeomfi |
|---|
| [4176] | 31 | |
|---|
| [4212] | 32 | END MODULE comgeomfi |
|---|
Note: See
TracBrowser
for help on using the repository browser.
