Changeset 1915 for trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

Timestamp:

Apr 4, 2018, 4:37:05 PM (7 years ago)

Author:

jvatant

Message:

Add main current send_xios_field outputs
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -395 +395 @@
       real,save,dimension(:,:,:), allocatable :: tpq ! Tracers for decoupled microphysical tests ( temporary in 01/18 )
 !$OMP THREADPRIVATE(tpq)
+      real,dimension(ngrid,nlayer,nq) :: dtpq ! (temporary in 01/18)
 
 
@@ -1121 +1122 @@
                               pplay,pplev,zzlay,zzlev,dycchi)
                endif ! if moyzon
+
             endif
             
@@ -1497 +1499 @@
       ! Send fields to XIOS: (NB these fields must also be defined as
       ! <field id="..." /> in context_lmdz_physics.xml to be correctly used)
-      CALL send_xios_field("ls",zls)
+      CALL send_xios_field("ls",zls*180./pi)
+      CALL send_xios_field("lss",zlss*180./pi)
+      CALL send_xios_field("RA",right_ascen*180./pi)
+      CALL send_xios_field("Declin",declin*180./pi)
+      
+      ! Total energy balance diagnostics
+      if (callrad.and.(.not.newtonian)) then
+         CALL send_xios_field("ISR_TOA",fluxtop_dn)
+         CALL send_xios_field("OLR_TOA",fluxtop_lw)
+      endif
+      
+      CALL send_xios_field("area",cell_area)
+      CALL send_xios_field("pphi",pphi)
       
       CALL send_xios_field("ps",ps)
-      CALL send_xios_field("area",cell_area)
-
-      CALL send_xios_field("temperature",zt)
+      CALL send_xios_field("tsurf",tsurf)
+
+      CALL send_xios_field("temp",zt)
+      CALL send_xios_field("teta",zh)
       CALL send_xios_field("u",zu)
       CALL send_xios_field("v",zv)
-
+      CALL send_xios_field("w",pw)
+      CALL send_xios_field("p",pplay)
+      
+      ! Winds diagnostics.
+      CALL send_xios_field("dudif",zdudif)
+      CALL send_xios_field("dudyn",zdudyn)
+
+      ! Heating diagnostics.
+      CALL send_xios_field("dtsw",zdtsw)
+      CALL send_xios_field("dtlw",zdtlw)
+      CALL send_xios_field("dtrad",dtrad)
+      CALL send_xios_field("dtdyn",zdtdyn)
+        
       if (lastcall.and.is_omp_master) then
         write(*,*) "physiq: call xios_context_finalize"