Changes between Version 1 and Version 2 of ticket/1472_NOC2_JATTR


Ignore:
Timestamp:
2015-02-17T13:53:58+01:00 (6 years ago)
Author:
acc
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • ticket/1472_NOC2_JATTR

    v1 v2  
    157157+      LOGICAL         , INTENT(in   )                , OPTIONAL ::   lrowattr  ! logical flag telling iom_get to 
    158158+                                                                               ! look for and use a file attribute 
    159 +                                                                               ! called open_ocean_startj to set the start 
     159+                                                                               ! called open_ocean_jstart to set the start 
    160160+                                                                               ! value for the 2nd dimension (netcdf only) 
    161161       ! 
     
    179179+      LOGICAL         , INTENT(in   )                  , OPTIONAL ::   lrowattr  ! logical flag telling iom_get to 
    180180+                                                                                 ! look for and use a file attribute 
    181 +                                                                                 ! called open_ocean_startj to set the start 
     181+                                                                                 ! called open_ocean_jstart to set the start 
    182182+                                                                                 ! value for the 2nd dimension (netcdf only) 
    183183       ! 
     
    205205+      LOGICAL                    , INTENT(in   ), OPTIONAL ::   lrowattr   ! logical flag telling iom_get to 
    206206+                                                                           ! look for and use a file attribute 
    207 +                                                                           ! called open_ocean_startj to set the start 
     207+                                                                           ! called open_ocean_jstart to set the start 
    208208+                                                                           ! value for the 2nd dimension (netcdf only) 
    209209       ! 
    210210       LOGICAL                        ::   llnoov      ! local definition to read overlap 
    211 +      LOGICAL                        ::   luse_jattr  ! local definition to read open_ocean_startj file attribute 
     211+      LOGICAL                        ::   luse_jattr  ! local definition to read open_ocean_jstart file attribute 
    212212+      INTEGER                        ::   jstartrow   ! start point for 2nd dimension optionally set by file attribute 
    213213       INTEGER                        ::   jl          ! loop on number of dimension  
     
    256256+                     jstartrow = 1 
    257257+                     IF( luse_jattr ) THEN 
    258 +                        CALL iom_getatt(kiomid, 'open_ocean_startj', jstartrow ) ! -999 is returned if the attribute is not found 
     258+                        CALL iom_getatt(kiomid, 'open_ocean_jstart', jstartrow ) ! -999 is returned if the attribute is not found 
    259259+                        jstartrow = MAX(1,jstartrow) 
    260260+                     ENDIF 
     
    286286          CALL iom_open ( 'bathy_level.nc', inum )   ! Level bathymetry 
    287287-         CALL iom_get ( inum, jpdom_unknown, 'Bathy_level', zdta, kstart=(/jpizoom,jpjzoom/), kcount=(/jpiglo,jpjglo/) ) 
    288 +          ! Optionally use a file attribute (open_ocean_startj) to set a start row for reading from the global file 
     288+          ! Optionally use a file attribute (open_ocean_jstart) to set a start row for reading from the global file 
    289289+          ! This allows the unextended grid bathymetry to be stored in the same file as the under ice-shelf extended bathymetry 
    290 +         CALL iom_getatt(inum, 'open_ocean_startj', jstartrow ) ! -999 is returned if the attribute is not found 
     290+         CALL iom_getatt(inum, 'open_ocean_jstart', jstartrow ) ! -999 is returned if the attribute is not found 
    291291+         jstartrow = MAX(1,jstartrow) 
    292292+         CALL iom_get ( inum, jpdom_unknown, 'Bathy_level', zdta, kstart=(/jpizoom,jpjzoom+jstartrow-1/), kcount=(/jpiglo,jpjglo/) ) 
     
    297297+             CALL iom_get ( inum, jpdom_unknown, 'Bathymetry_isf' , zdta, kstart=(/jpizoom,jpjzoom/), kcount=(/jpiglo,jpjglo/) ) 
    298298+         ELSE 
    299 +             ! Optionally use a file attribute (open_ocean_startj) to set a start row for reading from the global file 
     299+             ! Optionally use a file attribute (open_ocean_jstart) to set a start row for reading from the global file 
    300300+             ! This allows the unextended grid bathymetry to be stored in the same file as the under ice-shelf extended bathymetry 
    301 +             CALL iom_getatt(inum, 'open_ocean_startj', jstartrow ) ! -999 is returned if the attribute is not found 
     301+             CALL iom_getatt(inum, 'open_ocean_jstart', jstartrow ) ! -999 is returned if the attribute is not found 
    302302+             jstartrow = MAX(1,jstartrow) 
    303303+             CALL iom_get ( inum, jpdom_unknown, 'Bathymetry' , zdta, kstart=(/jpizoom,jpjzoom+jstartrow-1/), kcount=(/jpiglo,jpjglo/) )