Back to OASIS4 home

Type IO_Data : defined in oasis4/lib/psmile_oa4/src/psmile.F90 : to store the data about the essential informations to open a file and to write a NetCDF CF file header

Type IO_Data

         Character (len=max_name) :: filename
         Integer                                  :: taskid
         Integer                                  :: file_unit
         Integer                                  :: isuffix
         Integer                                  :: action
         Integer                                  :: Format
         Integer                                  :: threading
         Integer                                  :: fileset
         Integer                                  :: status
         Logical                                 :: done, opened
         Integer                                  :: block_id
         Integer,Pointer                     :: related_ids(:)
         Integer                                  :: old_filesize
         Integer                                  :: current_filesize
         Double Precision                  :: ju_start_day,ju_start_sec
         Double Precision,Pointer     :: fp_dble(:)
         Real,Pointer                          :: fp_real(:)
         Integer,Pointer                      :: fp_int(:)
         Character (len=max_name)  :: cfioname
         Character (len=max_name)  :: standard_name
         Character (len=max_name)  :: long_name
         Character (len=max_name), Pointer :: labels(:)      ! For bundles !
         Character (len=max_name), Pointer :: vcmp_names(:)  ! For vectors !
         Character (len=max_name) :: units
         Character (len=max_name) :: lon_unit
         Character (len=max_name) :: lat_unit
         Character (len=max_name) :: positive
         Character (len=max_name) :: height_unit ! Where is the unit for height?
         Character (len=max_name) :: height_formular
         Character (len=max_name) :: height_stdname
         Integer                                 :: sense
         Integer                                 :: pack_mode
         Integer                                 :: type_spec
         Integer                                 :: ilag_mode
         Double Precision                :: scale,add
         Double Precision                :: valid_range(2),valid_min,valid_max
         Double Precision                :: fill_value,missing_value
         Double Precision                :: time_stamp
         Double Precision                :: weight
         Integer                                :: cf_name_tlb_entry(8)
         Integer                                :: cf_map_tlb_entry(8)
#ifdef __PSMILE_WITH_IO
         Type(IO_CF_names),Pointer      :: p_cf_names
         Type(IO_CF_maps),Pointer        :: p_cf_maps
         Type(IO_cache),Pointer              :: p_cache
         Type(IO_mpp_io),Pointer           :: p_mpp_io
#endif

End Type IO_Data