Changeset 4863 for IOIPSL/trunk/src/flincom.f90

Timestamp:

12/16/19 14:33:26 (4 years ago)

Author:

jgipsl

Message:

Following changes have been done by A.Jornet/LSCE. No change is results and no change in usage have been seen. Some more error checking might stop the model for example if dimensions are not correct in call to histcom module.

Restcom:

• Define a new var size length (20 to 100 )→ pbs found without no errors
• Raise an error when var name is too long
• Deallocate any buffer at the end of all restput/restcget calls → buffers only increase size. After loading/saving nothing is done with this memory

Histcom:

• Raise an error if given history declared variables do not match with given dimensions from histwrite

getincom and stringop:

• Enable any length character for the run.def → useful for long filepaths

flincom

• Enable filenames longer than 80 chars to any
• Deallocate buffers at the end of any flinget subroutine

File:

• IOIPSL/trunk/src/flincom.f90 (modified) (8 diffs)

IOIPSL/trunk/src/flincom.f90

@@ -691 +691 @@
   INTEGER :: iv, lll
   INTEGER :: xid, yid, zid, tid
-  CHARACTER(LEN=80) :: name
+  CHARACTER(LEN=:), ALLOCATABLE :: name
   CHARACTER(LEN=30) :: axname
 !-
@@ -999 +999 @@
   ENDDO
 !-------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r1d
 !-
@@ -1041 +1042 @@
   ENDDO
 !-------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r2d
 !-
@@ -1083 +1085 @@
     ENDDO
   ENDDO
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 !--------------------------------
 END SUBROUTINE flinget_r2d_zoom2d
@@ -1128 +1131 @@
   ENDDO
 !-------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r3d
 !-
@@ -1173 +1177 @@
   ENDDO
 !--------------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r3d_zoom2d
 !-
@@ -1219 +1224 @@
   ENDDO
 !-------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r4d
 !-
@@ -1266 +1272 @@
   ENDDO
 !--------------------------------
+  IF (ALLOCATED(buff_tmp)) DEALLOCATE(buff_tmp)
 END SUBROUTINE flinget_r4d_zoom2d
 !-