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/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 
Note: See TracChangeset for help on using the changeset viewer.