Changeset 5049

Timestamp:

04/03/20 09:30:45 (4 years ago)

Author:

jgipsl

Message:

Revert changes done in [4863] in histcom. This was a test which was not adapted for all different methods of use of histcom. Some models can send 2D variables as vector(case ORCHIDEE), then the test case was ok but some models transformes the variables to (iim,jjm) 2-dimensions before histwrite(case LMDZ) and then the test is not correct.

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)
@@ -1729 +1727 @@
 !-
   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