Changeset 3190
- Timestamp:
- 03/27/17 15:11:41 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/restcom.f90
r3188 r3190 43 43 !- 44 44 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 ! 46 46 ! RESTART_MAX_DIMS = Max dimensions in 1 variable IOIPSL can manage for restart files (> 3) 47 47 !- … … 1423 1423 CHARACTER(LEN=70) :: str,str2 1424 1424 LOGICAL :: l_dbg 1425 INTEGER :: list_dims( 2)1425 INTEGER :: list_dims(1) 1426 1426 !--------------------------------------------------------------------- 1427 1427 CALL ipsldbg (old_status=l_dbg) … … 1457 1457 ENDIF 1458 1458 !- 1459 list_dims = (/ iim ,jjm/)1459 list_dims = (/ iim /) 1460 1460 !- 1461 1461 CALL restget_real & … … 2691 2691 iret = NF90_PUT_ATT(ncfid,varid_out(fid,nbvar_out(fid)), & 2692 2692 & '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))2696 2693 !--- 2697 2694 IF (itau_out(fid) >= 0) THEN
Note: See TracChangeset
for help on using the changeset viewer.