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

Adding xios output functionnalities

YM

Location:
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd
Files:
1 added
3 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 

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

    r232 r253  
    3535                            obliquit, nres, z0 
    3636 
     37      use xios_output_mod  
    3738      implicit none 
    3839 
    … …  
    471472 
    472473 
     474 
     475      CALL update_xios_timestep 
     476 
     477 
    473478!======================================================================= 
    474479 
    … …  
    22192224      icount=icount+1 
    22202225 
     2226!!!!!!!!!!!!!!!! section for XIOS output !!!!!!!!!!!!!!!       
     2227      CALL write_xios_field("tsurf",tsurf) 
     2228      CALL write_xios_field("ps",ps) 
     2229      CALL write_xios_field("phisinit",phisfi) 
     2230      CALL write_xios_field("aire",area) 
     2231      CALL write_xios_field("temp",zt) 
     2232      CALL write_xios_field("u",zu) 
     2233      CALL write_xios_field("v",zv) 
     2234      CALL write_xios_field("p",pplay) 
     2235      CALL write_xios_field("ISR",fluxtop_dn) 
     2236      CALL write_xios_field("ASR",fluxabs_sw) 
     2237      CALL write_xios_field("OLR",fluxtop_lw) 
     2238 
    22212239      if (lastcall) then 
    22222240 

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagfi.F

    r245 r253  
    115115      real phisfi_glo(ngrid) ! surface geopotential on global physics grid 
    116116#endif 
    117  
     117      
     118      RETURN 
    118119!*************************************************************** 
    119120!Sortie des variables au rythme voulu 
Note: See TracChangeset for help on using the changeset viewer.