Changeset 3995 for trunk/LMDZ.GENERIC/libf/phystd/turbdiff_mod.F90

Timestamp:

Jan 5, 2026, 5:00:27 PM (3 weeks ago)

Author:

emillour

Message:

Generic PCM:
Enable using XIOS with rcm1d. This implies compiling with MPI (makelmdz_fcm ...
-parallel mpi -io xios ... rcm1d) and having adequate xml files at hand.
While at it cleaned up turbdiff_mod.F90 to use write_output() instead of
calls to writediagfi() and updated reference field_def_physics.xml
EM

File:

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

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

@@ -20 +20 @@
       use callkeys_mod, only: water,tracer,nosurf,kmixmin
       use turb_mod, only : ustar
+      use write_output_mod, only: write_output
 #ifdef MESOSCALE
       use comm_wrf, only : comm_LATENT_HF
@@ -744 +745 @@
       if(water)then
 #ifndef MESOSCALE
-         call writediagfi(ngrid,'beta','Dryness coefficient',' ',2,dryness)
+         call write_output('beta','Dryness coefficient',' ',dryness)
 #endif
          if (tracer) then
 #ifndef MESOSCALE
-            call writediagfi(ngrid,'evap_surf_flux','surface latent heat flux','W.m-2',2,RLVTT*dqsdif_total/ptimestep)
-            call writediagfi(ngrid,'fluxsurf_rad','total IR and VIS surface flux','W.m-2',2,pfluxsrf)
-            call writediagfi(ngrid,'dqevap','evaporated water vapor specific concentration','s-1',3,pdqevap)
+            call write_output('evap_surf_flux','surface latent heat flux','W.m-2',RLVTT*dqsdif_total/ptimestep)
+            call write_output('fluxsurf_rad','total IR and VIS surface flux','W.m-2',pfluxsrf)
+            call write_output('dqevap','evaporated water vapor specific concentration','s-1',pdqevap)
 #else
             comm_LATENT_HF(:)=0.0