New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2074 for branches/dev_1784_OBS/NEMO/OPA_SRC/OBS/obs_seaice_io.h90 – NEMO

Ignore:
Timestamp:
2010-09-08T16:59:58+02:00 (14 years ago)
Author:
djlea
Message:

Fix for obs_readmdt which was producing errors in certain processor configurations. Also a tidy of the code.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_1784_OBS/NEMO/OPA_SRC/OBS/obs_seaice_io.h90

    r2001 r2074  
    2323      !! * Local declarations 
    2424      CHARACTER(LEN=12),PARAMETER :: cpname = 'read_seaice' 
    25       INTEGER :: & 
    26          & i_file_id, &     ! netcdf IDS 
    27          & i_time_id, & 
    28          & i_ni_id,   & 
    29          & i_data_id, & 
    30          & i_var_id 
    31       INTEGER ::  & 
    32          & i_data, &        ! Number of data per parameter in current file 
    33          & i_time           ! Number of reference times in file 
     25      INTEGER :: i_file_id    ! netcdf IDS 
     26      INTEGER :: i_time_id 
     27      INTEGER :: i_ni_id 
     28      INTEGER :: i_data_id 
     29      INTEGER :: i_var_id 
     30      INTEGER :: i_data       ! Number of data per parameter in current file 
     31      INTEGER :: i_time       ! Number of reference times in file 
    3432      INTEGER, DIMENSION(:), POINTER :: & 
    3533         & i_reftime        ! Reference time in file in seconds since 1/1/1981. 
    … …  
    4341      REAL(wp), DIMENSION(:,:), POINTER :: & 
    4442         & z_seaice         ! Seaice data      
    45       INTEGER, PARAMETER :: & 
    46          & imaxdim = 2      ! Assumed maximum for no. dims. in file 
    47       INTEGER, DIMENSION(2) :: & 
    48          & idims            ! Dimensions in file 
    49       INTEGER :: &                   
    50          & iilen, &         ! Length of netCDF attributes 
    51          & itype            ! Typeof netCDF attributes 
    52       REAL(KIND=wp) :: & 
    53          & zsca, &          ! Scale factor 
    54          & zoff, &          ! Offset for data in netcdf file 
    55          & z_offset, &      ! Offset for time conversion 
    56          & zfill            ! Fill value in netcdf file 
    57       CHARACTER (len=33) :: & 
    58          & creftime         ! Reference time of file 
    59       INTEGER :: & 
    60          & i_refyear,  &    ! Integer version of reference time 
    61          & i_refmonth, & 
    62          & i_refday,   & 
    63          & i_refhour,  & 
    64          & i_refmin,   & 
    65          & i_refsec 
    66       INTEGER :: & 
    67          & ichunk 
    68       integer :: & 
    69          & jtim, & 
    70          & jobs, & 
    71          & iobs 
     43      INTEGER, PARAMETER :: imaxdim = 2    ! Assumed maximum for no. dims. in file 
     44      INTEGER, DIMENSION(2) :: idims       ! Dimensions in file 
     45      INTEGER :: iilen          ! Length of netCDF attributes 
     46      INTEGER :: itype          ! Typeof netCDF attributes 
     47      REAL(KIND=wp) :: zsca      ! Scale factor 
     48      REAL(KIND=wp) :: zoff      ! Offset for data in netcdf file 
     49      REAL(KIND=wp) :: z_offset  ! Offset for time conversion 
     50      REAL(KIND=wp) :: zfill     ! Fill value in netcdf file 
     51      CHARACTER (len=33) ::creftime     ! Reference time of file 
     52      INTEGER :: i_refyear       ! Integer version of reference time 
     53      INTEGER :: i_refmonth 
     54      INTEGER :: i_refday 
     55      INTEGER :: i_refhour 
     56      INTEGER :: i_refmin 
     57      INTEGER :: i_refsec 
     58      INTEGER :: ichunk 
     59      INTEGER :: jtim 
     60      INTEGER :: jobs 
     61      INTEGER :: iobs 
    7262 
    7363      CALL chkerr( nf90_open( TRIM( cdfilename ), nf90_nowrite, & 
Note: See TracChangeset for help on using the changeset viewer.