Ignore:
Timestamp:
2018-05-28T09:13:39+02:00 (3 years ago)
Author:
smasson
Message:

trunk: dia_wri_alloc allocate nothing when using key_iomput, see ticket:2090

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/SAS/diawri.F90

    r9598 r9652  
    6666CONTAINS 
    6767 
     68# if defined key_iomput 
     69   !!---------------------------------------------------------------------- 
     70   !!   'key_iomput'                                        use IOM library 
     71   !!---------------------------------------------------------------------- 
    6872   INTEGER FUNCTION dia_wri_alloc() 
    69       !!---------------------------------------------------------------------- 
    70       INTEGER :: ierr 
    71       !!---------------------------------------------------------------------- 
    72       ! 
    73       ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 
    74       IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
    75       ! 
    76   END FUNCTION dia_wri_alloc 
    77  
    78    !!---------------------------------------------------------------------- 
    79    !!   Default option                                   NetCDF output file 
    80    !!---------------------------------------------------------------------- 
    81 # if defined key_iomput 
    82    !!---------------------------------------------------------------------- 
    83    !!   'key_iomput'                                        use IOM library 
    84    !!---------------------------------------------------------------------- 
    85  
     73      ! 
     74      dia_wri_alloc = 0 
     75      ! 
     76   END FUNCTION dia_wri_alloc 
     77 
     78    
    8679   SUBROUTINE dia_wri( kt ) 
    8780      !!--------------------------------------------------------------------- 
     
    110103   !!   Default option                                  use IOIPSL  library 
    111104   !!---------------------------------------------------------------------- 
    112  
     105   INTEGER FUNCTION dia_wri_alloc() 
     106      !!---------------------------------------------------------------------- 
     107      INTEGER :: ierr 
     108      !!---------------------------------------------------------------------- 
     109      ! 
     110      ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 
     111      IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
     112      ! 
     113   END FUNCTION dia_wri_alloc 
     114    
     115   
    113116   SUBROUTINE dia_wri( kt ) 
    114117      !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.