Changeset 3190 for IOIPSL


Ignore:
Timestamp:
03/27/17 15:11:41 (7 years ago)
Author:
jgipsl
Message:
  • Removed _FillValue added in previous commit
  • Correction on list_dims: only 1 dimension must be passed

/ A. Jornet-Puig, LSCE

File:
1 edited

Legend:

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

    r3188 r3190  
    4343!- 
    4444  INTEGER,PARAMETER :: & 
    45  &  max_var=500, max_file=50, MAX_DIM=NF90_MAX_VAR_DIMS, RESTART_MAX_DIMS=7 ! 
     45 &  max_var=1500, max_file=50, MAX_DIM=NF90_MAX_VAR_DIMS, RESTART_MAX_DIMS=7 ! 
    4646! RESTART_MAX_DIMS = Max dimensions in 1 variable IOIPSL can manage for restart files (> 3) 
    4747!- 
     
    14231423  CHARACTER(LEN=70) :: str,str2 
    14241424  LOGICAL :: l_dbg 
    1425   INTEGER :: list_dims(2) 
     1425  INTEGER :: list_dims(1) 
    14261426!--------------------------------------------------------------------- 
    14271427  CALL ipsldbg (old_status=l_dbg) 
     
    14571457  ENDIF 
    14581458!- 
    1459   list_dims = (/ iim,jjm /) 
     1459  list_dims = (/ iim /) 
    14601460!- 
    14611461  CALL restget_real & 
     
    26912691    iret = NF90_PUT_ATT(ncfid,varid_out(fid,nbvar_out(fid)), & 
    26922692 &                      'missing_value',REAL(missing_val,KIND=4)) 
    2693 !--- 
    2694     iret = NF90_PUT_ATT(ncfid,varid_out(fid,nbvar_out(fid)), & 
    2695  &                      '_FillValue',REAL(val_exp,r_std)) 
    26962693!--- 
    26972694    IF (itau_out(fid) >= 0) THEN 
Note: See TracChangeset for help on using the changeset viewer.