Changeset 2933 for trunk/LMDZ.MARS

Timestamp:

Apr 3, 2023, 6:19:10 PM (20 months ago)

Author:

romain.vande

Message:

Mars PCM:
Small correction in write_output_mod following r2932
RV

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/write_output_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -3990 +3990 @@
 It is also compatible with XIOS (xml file needs to be adapted)
 Writediagfi and writediagsoil routines are still available in case.
+
+==03/04/2023 == RV
+Small correction in write_output_mod following r2932

trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90

@@ -42 +42 @@
   REAL,INTENT(IN)                :: field(:)
  
-  if(ngrid.ne.1) then
-    call writediagfi(ngrid,field_name,title,units,2,field)
-  else
-!    call writediagfi(ngrid,field_name,title,units,0,field)
-  endif
+  call writediagfi(ngrid,field_name,title,units,2,field)
 #ifdef CPP_XIOS 
   call send_xios_field(field_name,field)
@@ -69 +65 @@
     call writediagsoil(ngrid,field_name,title,units,3,field)
   else 
-!    if(ngrid.ne.1) then
-      call writediagfi(ngrid,field_name,title,units,3,field(:,:))
-!    else
-!      call writediagfi(ngrid,field_name,title,units,1,field)
-!    endif
+    call writediagfi(ngrid,field_name,title,units,3,field(:,:))
   endif
 #ifdef CPP_XIOS