Ignore:
Timestamp:
Jun 2, 2023, 4:08:11 PM (19 months ago)
Author:
emillour
Message:

Mars PCM:
Follow-up to r2970: output of integers/logicals also converted to reals with XIOS
Also updated "deftank/field_def_physics_mars.xml" to keep up with recently added
variables
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2970 r2976  
    9999  call writediagfi(ngrid,field_name,title,units,0,real(field))
    100100#ifdef CPP_XIOS
    101   call send_xios_field(field_name,field)
     101  call send_xios_field(field_name,real(field))
    102102#endif
    103103 
    … …  
    120120  call writediagfi(ngrid,field_name,title,units,2,real(field))
    121121#ifdef CPP_XIOS
    122   call send_xios_field(field_name,field)
     122  call send_xios_field(field_name,real(field))
    123123#endif
    124124 
    … …  
    147147  endif
    148148#ifdef CPP_XIOS
    149   call send_xios_field(field_name,field)
     149  call send_xios_field(field_name,real(field))
    150150#endif
    151151 
    … …  
    173173  call writediagfi(ngrid,field_name,title,units,0,field_real)
    174174#ifdef CPP_XIOS
    175   call send_xios_field(field_name,field)
     175  call send_xios_field(field_name,field_real)
    176176#endif
    177177 
    … …  
    202202  call writediagfi(ngrid,field_name,title,units,2,field_real(:))
    203203#ifdef CPP_XIOS
    204   call send_xios_field(field_name,field)
     204  call send_xios_field(field_name,field_real)
    205205#endif
    206206 
    … …  
    241241  endif
    242242
     243#ifdef CPP_XIOS
     244  call send_xios_field(field_name,field_real)
     245#endif
     246 
    243247  deallocate(field_real)
    244248
    245 #ifdef CPP_XIOS
    246   call send_xios_field(field_name,field)
    247 #endif
    248  
    249249  END SUBROUTINE write_output_l2
    250250
Note: See TracChangeset for help on using the changeset viewer.