Ignore:
Timestamp:
07/23/14 17:57:17 (10 years ago)
Author:
ymipsl
Message:

Adding xios output functionnalities

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comgeomphy.F90

    r242 r253  
    11module comgeomphy 
     2   integer,save             :: nvertex=0 
    23   real,save,allocatable :: airephy(:) 
    34   real,save,allocatable :: rlatd(:) 
    45   real,save,allocatable :: rlond(:) 
    5 !$OMP THREADPRIVATE(airephy,cuphy,cvphy,rlatd,rlond) 
     6   real,save,allocatable :: rbounds_lon(:,:) 
     7   real,save,allocatable :: rbounds_lat(:,:) 
     8!$OMP THREADPRIVATE(airephy,cuphy,cvphy,rlatd,rlond,rbounds_lon,rbounds_lat) 
    69contains 
    710   
    … …  
    1417    allocate(rlatd(klon_omp)) 
    1518    allocate(rlond(klon_omp)) 
     19    allocate(rbounds_lon(klon_omp,nvertex)) 
     20    allocate(rbounds_lat(klon_omp,nvertex)) 
    1621 
    1722  end subroutine initcomgeomphy 
Note: See TracChangeset for help on using the changeset viewer.