Changeset 441 for IOIPSL


Ignore:
Timestamp:
11/27/08 13:12:24 (15 years ago)
Author:
bellier
Message:

some minor modifications

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r440 r441  
    243243  IF (l_dbg) WRITE(*,*) "histbeg_totreg" 
    244244!- 
    245   ALLOCATE (lon_tmp(pim,pjm),lat_tmp(pim,pjm)) 
     245  ALLOCATE(lon_tmp(pim,pjm),lat_tmp(pim,pjm)) 
    246246!- 
    247247  lon_tmp(:,:) = SPREAD(plon(:),2,pjm) 
     
    254254 &   .TRUE.,domain_id) 
    255255!- 
    256   DEALLOCATE (lon_tmp,lat_tmp) 
     256  DEALLOCATE(lon_tmp,lat_tmp) 
    257257!---------------------------- 
    258258END SUBROUTINE histbeg_totreg 
     
    780780  INTEGER :: iret,ncid,twoid 
    781781  LOGICAL :: transp = .FALSE. 
    782   REAL,ALLOCATABLE,DIMENSION(:,:),SAVE :: bounds_trans 
     782  REAL,ALLOCATABLE,DIMENSION(:,:) :: bounds_trans 
    783783  LOGICAL :: l_dbg 
    784784!--------------------------------------------------------------------- 
     
    814814  ENDIF 
    815815!- 
    816   IF (.NOT.ALLOCATED(bounds_trans)) THEN 
    817     ALLOCATE(bounds_trans(nbbounds,pim)) 
    818   ENDIF 
     816  ALLOCATE(bounds_trans(nbbounds,pim)) 
    819817!- 
    820818  iret = NF90_DEF_DIM (ncid,'nbnd',nbbounds,twoid) 
     
    918916  ENDIF 
    919917  iret = NF90_PUT_VAR (ncid,nlatidb,bounds_trans(1:nbbounds,1:pim)) 
     918!- 
     919  DEALLOCATE(bounds_trans) 
    920920!- 
    921921  iret = NF90_REDEF (ncid) 
     
    18771877 &       datasz_max(pfileid,varid) 
    18781878      ENDIF 
    1879       ALLOCATE (buff_tmp(datasz_max(pfileid,varid))) 
     1879      ALLOCATE(buff_tmp(datasz_max(pfileid,varid))) 
    18801880      buff_tmp_sz = datasz_max(pfileid,varid) 
    18811881    ELSE IF (datasz_max(pfileid,varid) > buff_tmp_sz) THEN 
     
    18851885 &       datasz_max(pfileid,varid) 
    18861886      ENDIF 
    1887       DEALLOCATE (buff_tmp) 
    1888       ALLOCATE (buff_tmp(datasz_max(pfileid,varid))) 
     1887      DEALLOCATE(buff_tmp) 
     1888      ALLOCATE(buff_tmp(datasz_max(pfileid,varid))) 
    18891889      buff_tmp_sz = datasz_max(pfileid,varid) 
    18901890    ENDIF 
     
    19831983      IF (l_dbg) WRITE (*,*) 'histwrite : buffer has been used. ', & 
    19841984 &      'We have to save it before re-allocating.' 
    1985       ALLOCATE (buffer_used(buffer_sz)) 
     1985      ALLOCATE(buffer_used(buffer_sz)) 
    19861986      buffer_used(:)=buffer(:) 
    1987       DEALLOCATE (buffer) 
    1988       ALLOCATE (buffer(buff_pos)) 
     1987      DEALLOCATE(buffer) 
     1988      ALLOCATE(buffer(buff_pos)) 
    19891989      buffer_sz = buff_pos 
    19901990      buffer(:)=0.0 
    19911991      buffer(:SIZE(buffer_used))=buffer_used 
    1992       DEALLOCATE (buffer_used) 
     1992      DEALLOCATE(buffer_used) 
    19931993    ELSE 
    19941994      IF (l_dbg) WRITE (*,*) 'histwrite : buffer has not been used. ', & 
    19951995 &      'We have just to re-allocate it.' 
    1996       DEALLOCATE (buffer) 
    1997       ALLOCATE (buffer(buff_pos)) 
     1996      DEALLOCATE(buffer) 
     1997      ALLOCATE(buffer(buff_pos)) 
    19981998      buffer_sz = buff_pos 
    19991999      buffer(:)=0.0 
     
    20082008      WRITE(*,*) "histwrite_real 1.1 allocate buff_tmp2 ",SIZE(buff_tmp) 
    20092009    ENDIF 
    2010     ALLOCATE (buff_tmp2(datasz_max(pfileid,varid))) 
     2010    ALLOCATE(buff_tmp2(datasz_max(pfileid,varid))) 
    20112011    buff_tmp2_sz = datasz_max(pfileid,varid) 
    20122012  ELSE IF (datasz_max(pfileid,varid) > buff_tmp2_sz) THEN 
     
    20152015     & SIZE(buff_tmp)," instead of ",SIZE(buff_tmp2) 
    20162016    ENDIF 
    2017     DEALLOCATE (buff_tmp2) 
    2018     ALLOCATE (buff_tmp2(datasz_max(pfileid,varid))) 
     2017    DEALLOCATE(buff_tmp2) 
     2018    ALLOCATE(buff_tmp2(datasz_max(pfileid,varid))) 
    20192019    buff_tmp2_sz = datasz_max(pfileid,varid) 
    20202020  ENDIF 
Note: See TracChangeset for help on using the changeset viewer.