Changeset 2734

Timestamp:

Jun 21, 2022, 11:24:13 AM (3 years ago)

Author:

aslmd

Message:

Added the send_xios_field for the Xspec.nc

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -20 +20 @@
       use thermcell_mod, only: init_thermcell_mod
       use gases_h, only: gnom, gfrac
-      use radcommon_h, only: sigma, glat, grav, BWNV
+      use radcommon_h, only: sigma, glat, grav, BWNV, WNOI,DWNI,DWNV,WNOV
       use radii_mod, only: h2o_reffrad, co2_reffrad
       use aerosol_mod, only: iaero_co2, iaero_h2o
@@ -2613 +2613 @@
       CALL send_xios_field("OLR",fluxtop_lw)
       CALL send_xios_field("ASR",fluxabs_sw)
-      
+
+      if (specOLR .and. corrk) then 
+         call send_xios_field("OLR3D",OLR_nu)
+         call send_xios_field("IR_Bandwidth",DWNI)
+         call send_xios_field("VI_Bandwidth",DWNV)
+         call send_xios_field("OSR3D",OSR_nu)
+         call send_xios_field("GSR3D",GSR_nu)
+      endif
+
       if (lastcall.and.is_omp_master) then
         write(*,*) "physiq: call xios_context_finalize"