Changeset 874 for codes/icosagcm/devel/src/output

Timestamp:

05/27/19 15:56:37 (5 years ago)

Author:

jisesh

Message:

devel : Nudging towards external data using XIOS

File:

• codes/icosagcm/devel/src/output/xios_mod.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/output/xios_mod.F90

@@ -48 +48 @@
  USE time_mod
  USE metric, ONLY : vup,vdown, cell_glo
+ USE disvert_mod, ONLY : presnivs
  IMPLICIT NONE
   TYPE(xios_context) :: ctx_hdl
@@ -70 +71 @@
    CALL xios_set_axis_attr("lev",n_glo=llm ,value=lev_value) ;
    CALL xios_set_axis_attr("levp1",n_glo=llm+1 ,value=lev_valuep1) ;
+   CALL xios_set_axis_attr("presnivs_mb",n_glo=llm, value=presnivs/100., unit="mb") ; 
    CALL xios_set_axis_attr("nq",n_glo=nqtot, value=nq_value) ;