Ignore:
Timestamp:
2023-06-05T11:49:16+02:00 (13 months ago)
Author:
josefine.ghattas
Message:

As done in the trunk [8031] : Corrections to run in debug mode for unsctructured grid. Done by Y. Meurdesoif.
See ticket #923

Location:
branches/ORCHIDEE_2_2/ORCHIDEE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_parallel/ioipsl_para.f90

    r7576 r8032  
    533533    IF (grid_type==unstructured) THEN 
    534534  
    535       IF (is_root_prc) ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     535       IF (is_root_prc) THEN 
     536          ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     537       ELSE 
     538          ALLOCATE(ind_cell_glo_glo(1)) 
     539       ENDIF 
    536540      CALL gather_unindexed(ind_cell_glo,ind_cell_glo_glo) 
    537541      IF (is_root_prc)  CALL restget (fid, vname_q, iim, jjm, llm, itau, def_beha, & 
    … …  
    581585 
    582586    IF (grid_type==unstructured) THEN 
    583       IF (is_root_prc) ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     587       IF (is_root_prc) THEN 
     588          ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     589       ELSE 
     590          ALLOCATE(ind_cell_glo_glo(1)) 
     591       ENDIF 
    584592      CALL gather_unindexed(ind_cell_glo,ind_cell_glo_glo) 
    585593      IF (is_root_prc)  CALL restget (fid, vname_q, iim, jjm, llm, itau, def_beha, & 
    … …  
    730738 
    731739    IF (grid_type==unstructured) THEN 
    732       IF (is_root_prc) ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     740       IF (is_root_prc) THEN 
     741          ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     742       ELSE 
     743          ALLOCATE(ind_cell_glo_glo(1)) 
     744       ENDIF 
    733745      CALL gather_unindexed(ind_cell_glo,ind_cell_glo_glo) 
    734746      IF (is_root_prc) CALL restput(fid, vname_q, iim, jjm, llm, itau, temp_g, MY_OPERATOR, & 
    … …  
    775787    CALL gather(var,temp_g) 
    776788    IF (grid_type==unstructured) THEN 
    777       IF (is_root_prc) ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     789       IF (is_root_prc) THEN 
     790          ALLOCATE(ind_cell_glo_glo(iim_g*jjm_g)) 
     791       ELSE 
     792          ALLOCATE(ind_cell_glo_glo(1)) 
     793       ENDIF 
    778794      CALL gather_unindexed(ind_cell_glo,ind_cell_glo_glo) 
    779795      IF (is_root_prc) CALL restput(fid, vname_q, iim, jjm, llm, itau, temp_g, MY_OPERATOR, & 
Note: See TracChangeset for help on using the changeset viewer.