1 |
module comgeom |
module comgeom |
2 |
|
|
3 |
use dimens_m, only: iim, jjm |
use dimensions, only: iim, jjm |
4 |
|
|
5 |
implicit none |
implicit none |
6 |
|
|
141 |
USE comdissnew, ONLY : coefdis, nitergdiv, nitergrot, niterh |
USE comdissnew, ONLY : coefdis, nitergdiv, nitergrot, niterh |
142 |
use dynetat0_m, only: xprimp025, xprimm025, rlatu1, rlatu2, rlatu, rlatv, & |
use dynetat0_m, only: xprimp025, xprimm025, rlatu1, rlatu2, rlatu, rlatv, & |
143 |
yprimu1, yprimu2 |
yprimu1, yprimu2 |
|
use nr_util, only: pi |
|
144 |
USE paramet_m, ONLY : iip1, jjp1 |
USE paramet_m, ONLY : iip1, jjp1 |
145 |
|
|
146 |
! Local: |
! Local: |