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/tests/CANAL/MY_SRC/diawri.F90

    r9576 r9652  
    8585CONTAINS 
    8686 
    87    INTEGER FUNCTION dia_wri_alloc() 
    88       !!---------------------------------------------------------------------- 
    89       INTEGER, DIMENSION(2) :: ierr 
    90       !!---------------------------------------------------------------------- 
    91       ierr = 0 
    92       ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) ,     & 
    93          &      ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) ,     & 
    94          &      ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 
    95          ! 
    96       dia_wri_alloc = MAXVAL(ierr) 
    97       IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
    98       ! 
    99   END FUNCTION dia_wri_alloc 
    100  
    101    !!---------------------------------------------------------------------- 
    102    !!   Default option                                   NetCDF output file 
    103    !!---------------------------------------------------------------------- 
    10487#if defined key_iomput 
    10588   !!---------------------------------------------------------------------- 
    10689   !!   'key_iomput'                                        use IOM library 
    10790   !!---------------------------------------------------------------------- 
     91 
     92   INTEGER FUNCTION dia_wri_alloc() 
     93      ! 
     94      dia_wri_alloc = 0 
     95      ! 
     96   END FUNCTION dia_wri_alloc 
     97 
    10898 
    10999   SUBROUTINE dia_wri( kt ) 
     
    515505   !!   Default option                                  use IOIPSL  library 
    516506   !!---------------------------------------------------------------------- 
    517  
     507    
     508   INTEGER FUNCTION dia_wri_alloc() 
     509      !!---------------------------------------------------------------------- 
     510      INTEGER, DIMENSION(2) :: ierr 
     511      !!---------------------------------------------------------------------- 
     512      ierr = 0 
     513      ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) ,     & 
     514         &      ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) ,     & 
     515         &      ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 
     516         ! 
     517      dia_wri_alloc = MAXVAL(ierr) 
     518      IF( lk_mpp )   CALL mpp_sum( dia_wri_alloc ) 
     519      ! 
     520   END FUNCTION dia_wri_alloc 
     521   
     522   
    518523   SUBROUTINE dia_wri( kt ) 
    519524      !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.