Changeset 5049


Ignore:
Timestamp:
04/03/20 09:30:45 (8 months 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:
1 edited

Legend:

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

    r4863 r5049  
    16991699  CHARACTER(LEN=7) :: tmp_opp 
    17001700  CHARACTER(LEN=13) :: c_nam 
    1701   CHARACTER(LEN=20) :: tmpstr, tmpstr2 
    17021701  LOGICAL :: l_dbg 
    1703   INTEGER :: initzdim, varzdim 
    17041702!--------------------------------------------------------------------- 
    17051703  CALL ipsldbg (old_status=l_dbg) 
     
    17291727!- 
    17301728  CALL histvar_seq (idf,pvarname,iv) 
    1731 !- 
    1732 ! 1.2 Check for variable dimension is the same as declared 
    1733 !- 
    1734   IF (PRESENT(pdata_2d) .OR. PRESENT(pdata_3d)) THEN 
    1735       IF (PRESENT(pdata_2d)) varzdim = SIZE(pdata_2d, DIM=2) 
    1736       IF (PRESENT(pdata_3d)) varzdim = SIZE(pdata_3d, DIM=2) 
    1737  
    1738       initzdim = W_F(idf)%W_V(iv)%zsize(3) 
    1739       IF (initzdim .NE. varzdim) THEN 
    1740         WRITE(tmpstr,  *) initzdim 
    1741         WRITE(tmpstr2, *) varzdim 
    1742         CALL ipslerr(3, "histwrite", "Variable="//pvarname,         & 
    1743                         "Expected 3rd dimension size: "//TRIM(tmpstr),  & 
    1744                         "But found: "//TRIM(tmpstr2)) 
    1745       ENDIF 
    1746   ENDIF 
    17471729!- 
    17481730! 2.0 do nothing for never operation 
Note: See TracChangeset for help on using the changeset viewer.