Changeset 4863 for IOIPSL/trunk/src/histcom.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/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -1699 +1699 @@
   CHARACTER(LEN=7) :: tmp_opp
   CHARACTER(LEN=13) :: c_nam
+  CHARACTER(LEN=20) :: tmpstr, tmpstr2
   LOGICAL :: l_dbg
+  INTEGER :: initzdim, varzdim
 !---------------------------------------------------------------------
   CALL ipsldbg (old_status=l_dbg)
@@ -1727 +1729 @@
 !-
   CALL histvar_seq (idf,pvarname,iv)
+!-
+! 1.2 Check for variable dimension is the same as declared
+!-
+  IF (PRESENT(pdata_2d) .OR. PRESENT(pdata_3d)) THEN
+      IF (PRESENT(pdata_2d)) varzdim = SIZE(pdata_2d, DIM=2)
+      IF (PRESENT(pdata_3d)) varzdim = SIZE(pdata_3d, DIM=2)
+
+      initzdim = W_F(idf)%W_V(iv)%zsize(3)
+      IF (initzdim .NE. varzdim) THEN
+        WRITE(tmpstr,  *) initzdim
+        WRITE(tmpstr2, *) varzdim
+        CALL ipslerr(3, "histwrite", "Variable="//pvarname,         &
+                        "Expected 3rd dimension size: "//TRIM(tmpstr),  &
+                        "But found: "//TRIM(tmpstr2))
+      ENDIF
+  ENDIF
 !-
 ! 2.0 do nothing for never operation