Changeset 3169 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jan 3, 2024, 12:41:29 PM (12 months ago)
Author:
emillour
Message:

Mars PCM:
Minor fix for XIOS output of a scalar in write_output_mod.F90.
Also added more helpful error messages in xios_output_mod.F90.
EM

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90

    r3161 r3169  
    3838#ifdef CPP_XIOS
    3939    ! only send the field to xios if the user asked for it
    40     if (xios_is_active_field(field_name)) call send_xios_field(field_name,(/field/))
     40    if (xios_is_active_field(field_name)) call send_xios_field(field_name,field)
    4141#endif
    4242
  • trunk/LMDZ.MARS/libf/phymars/xios_output_mod.F90

    r3055 r3169  
    243243    REAL,DIMENSION(klon_mpi) :: buffer_omp
    244244    REAL :: Field2d(nbp_lon,jj_nb)
     245   
     246    CHARACTER(len=128) :: msg
    245247
    246248    IF (prt_level >= 10) WRITE(lunout,*)'Begin histrwrite2d_xios ',trim(field_name)
    247     IF (SIZE(field)/=klon) CALL abort_physic('iophy::histwrite2d_xios','Field first DIMENSION not equal to klon',1)
    248    
     249    IF (SIZE(field)/=klon) THEN
     250      WRITE(msg,*) "Pb with field "//trim(field_name)//&
     251                   " : Field first DIMENSION not equal to klon"
     252      CALL abort_physic('iophy::histwrite2d_xios',trim(msg),1)
     253    ENDIF
    249254    CALL Gather_omp(field,buffer_omp)   
    250255!$OMP MASTER
     
    276281    INTEGER :: ip, n, nlev
    277282
     283    CHARACTER(len=128) :: msg
     284
    278285  IF (prt_level >= 10) write(lunout,*)'Begin histrwrite3d_xios ',trim(field_name)
    279286
    280     !Et on.... écrit
    281     IF (SIZE(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)
     287    !And we write...
     288    IF (SIZE(field,1)/=klon) THEN
     289      WRITE(msg,*) "Pb with field "//trim(field_name)//&
     290                   " : Field first DIMENSION not equal to klon"
     291      CALL abort_physic('iophy::histwrite3d',trim(msg),1)
     292    ENDIF
     293   
    282294    nlev=SIZE(field,2)
    283295
Note: See TracChangeset for help on using the changeset viewer.