module comgeomfi_h implicit none PRIVATE #include "dimensions.h" #include "dimphys.h" REAL*8 long(ngridmx),lati(ngridmx) REAL*8 area(ngridmx) REAL*8 totarea REAL*8 realarea(ngridmx) PUBLIC long,lati,area PUBLIC totarea PUBLIC realarea end module comgeomfi_h