Changeset 2933 for trunk/LMDZ.MARS/libf


Ignore:
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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2932 r2933  
    4242  REAL,INTENT(IN)                :: field(:)
    4343 
    44   if(ngrid.ne.1) then
    45     call writediagfi(ngrid,field_name,title,units,2,field)
    46   else
    47 !    call writediagfi(ngrid,field_name,title,units,0,field)
    48   endif
     44  call writediagfi(ngrid,field_name,title,units,2,field)
    4945#ifdef CPP_XIOS
    5046  call send_xios_field(field_name,field)
    … …  
    6965    call writediagsoil(ngrid,field_name,title,units,3,field)
    7066  else
    71 !    if(ngrid.ne.1) then
    72       call writediagfi(ngrid,field_name,title,units,3,field(:,:))
    73 !    else
    74 !      call writediagfi(ngrid,field_name,title,units,1,field)
    75 !    endif
     67    call writediagfi(ngrid,field_name,title,units,3,field(:,:))
    7668  endif
    7769#ifdef CPP_XIOS
Note: See TracChangeset for help on using the changeset viewer.