Changeset 441

Timestamp:

11/27/08 13:12:24 (16 years ago)

Author:

bellier

Message:

some minor modifications

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (10 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -243 +243 @@
   IF (l_dbg) WRITE(*,*) "histbeg_totreg"
 !-
-  ALLOCATE (lon_tmp(pim,pjm),lat_tmp(pim,pjm))
+  ALLOCATE(lon_tmp(pim,pjm),lat_tmp(pim,pjm))
 !-
   lon_tmp(:,:) = SPREAD(plon(:),2,pjm)
@@ -254 +254 @@
  &   .TRUE.,domain_id)
 !-
-  DEALLOCATE (lon_tmp,lat_tmp)
+  DEALLOCATE(lon_tmp,lat_tmp)
 !----------------------------
 END SUBROUTINE histbeg_totreg
@@ -780 +780 @@
   INTEGER :: iret,ncid,twoid
   LOGICAL :: transp = .FALSE.
-  REAL,ALLOCATABLE,DIMENSION(:,:),SAVE :: bounds_trans
+  REAL,ALLOCATABLE,DIMENSION(:,:) :: bounds_trans
   LOGICAL :: l_dbg
 !---------------------------------------------------------------------
@@ -814 +814 @@
   ENDIF
 !-
-  IF (.NOT.ALLOCATED(bounds_trans)) THEN
-    ALLOCATE(bounds_trans(nbbounds,pim))
-  ENDIF
+  ALLOCATE(bounds_trans(nbbounds,pim))
 !-
   iret = NF90_DEF_DIM (ncid,'nbnd',nbbounds,twoid)
@@ -918 +916 @@
   ENDIF
   iret = NF90_PUT_VAR (ncid,nlatidb,bounds_trans(1:nbbounds,1:pim))
+!-
+  DEALLOCATE(bounds_trans)
 !-
   iret = NF90_REDEF (ncid)
@@ -1877 +1877 @@
  &       datasz_max(pfileid,varid)
       ENDIF
-      ALLOCATE (buff_tmp(datasz_max(pfileid,varid)))
+      ALLOCATE(buff_tmp(datasz_max(pfileid,varid)))
       buff_tmp_sz = datasz_max(pfileid,varid)
     ELSE IF (datasz_max(pfileid,varid) > buff_tmp_sz) THEN
@@ -1885 +1885 @@
  &       datasz_max(pfileid,varid)
       ENDIF
-      DEALLOCATE (buff_tmp)
-      ALLOCATE (buff_tmp(datasz_max(pfileid,varid)))
+      DEALLOCATE(buff_tmp)
+      ALLOCATE(buff_tmp(datasz_max(pfileid,varid)))
       buff_tmp_sz = datasz_max(pfileid,varid)
     ENDIF
@@ -1983 +1983 @@
       IF (l_dbg) WRITE (*,*) 'histwrite : buffer has been used. ', &
  &      'We have to save it before re-allocating.'
-      ALLOCATE (buffer_used(buffer_sz))
+      ALLOCATE(buffer_used(buffer_sz))
       buffer_used(:)=buffer(:)
-      DEALLOCATE (buffer)
-      ALLOCATE (buffer(buff_pos))
+      DEALLOCATE(buffer)
+      ALLOCATE(buffer(buff_pos))
       buffer_sz = buff_pos
       buffer(:)=0.0
       buffer(:SIZE(buffer_used))=buffer_used
-      DEALLOCATE (buffer_used)
+      DEALLOCATE(buffer_used)
     ELSE
       IF (l_dbg) WRITE (*,*) 'histwrite : buffer has not been used. ', &
  &      'We have just to re-allocate it.'
-      DEALLOCATE (buffer)
-      ALLOCATE (buffer(buff_pos))
+      DEALLOCATE(buffer)
+      ALLOCATE(buffer(buff_pos))
       buffer_sz = buff_pos
       buffer(:)=0.0
@@ -2008 +2008 @@
       WRITE(*,*) "histwrite_real 1.1 allocate buff_tmp2 ",SIZE(buff_tmp)
     ENDIF
-    ALLOCATE (buff_tmp2(datasz_max(pfileid,varid)))
+    ALLOCATE(buff_tmp2(datasz_max(pfileid,varid)))
     buff_tmp2_sz = datasz_max(pfileid,varid)
   ELSE IF (datasz_max(pfileid,varid) > buff_tmp2_sz) THEN
@@ -2015 +2015 @@
      & SIZE(buff_tmp)," instead of ",SIZE(buff_tmp2)
     ENDIF
-    DEALLOCATE (buff_tmp2)
-    ALLOCATE (buff_tmp2(datasz_max(pfileid,varid)))
+    DEALLOCATE(buff_tmp2)
+    ALLOCATE(buff_tmp2(datasz_max(pfileid,varid)))
     buff_tmp2_sz = datasz_max(pfileid,varid)
   ENDIF