Ignore:
Timestamp:
2018-09-07T14:03:38+02:00 (2 years ago)
Author:
rblod
Message:

Initialisation of GArif structures

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modtypes.F90

    r10087 r10098  
    111111!> \name Arrays containing the values of the grid variables (real) 
    112112!> @{ 
    113     real,    dimension(:)          , pointer :: parray1 
    114     real,    dimension(:,:)        , pointer :: parray2 
    115     real,    dimension(:,:,:)      , pointer :: parray3 
    116     real,    dimension(:,:,:,:)    , pointer :: parray4 
    117     real,    dimension(:,:,:,:,:)  , pointer :: parray5 
    118     real,    dimension(:,:,:,:,:,:), pointer :: parray6 
     113    real,    dimension(:)          , pointer :: parray1 => NULL() 
     114    real,    dimension(:,:)        , pointer :: parray2 => NULL() 
     115    real,    dimension(:,:,:)      , pointer :: parray3 => NULL() 
     116    real,    dimension(:,:,:,:)    , pointer :: parray4 => NULL() 
     117    real,    dimension(:,:,:,:,:)  , pointer :: parray5 => NULL() 
     118    real,    dimension(:,:,:,:,:,:), pointer :: parray6 => NULL() 
    119119!> @} 
    120120!> \name Arrays containing the values of the grid variables (real*8) 
    121121!> @{ 
    122     real(8), dimension(:)          , pointer :: pdarray1 
    123     real(8), dimension(:,:)        , pointer :: pdarray2 
    124     real(8), dimension(:,:,:)      , pointer :: pdarray3 
    125     real(8), dimension(:,:,:,:)    , pointer :: pdarray4 
    126     real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5 
    127     real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6 
     122    real(8), dimension(:)          , pointer :: pdarray1 => NULL() 
     123    real(8), dimension(:,:)        , pointer :: pdarray2 => NULL() 
     124    real(8), dimension(:,:,:)      , pointer :: pdarray3 => NULL() 
     125    real(8), dimension(:,:,:,:)    , pointer :: pdarray4 => NULL() 
     126    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5 => NULL() 
     127    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6 => NULL() 
    128128!> @} 
    129129!> \name Arrays containing the values of the grid variables (real*4) 
    130130!> @{ 
    131     real(4), dimension(:)          , pointer :: psarray1 
    132     real(4), dimension(:,:)        , pointer :: psarray2 
    133     real(4), dimension(:,:,:)      , pointer :: psarray3 
    134     real(4), dimension(:,:,:,:)    , pointer :: psarray4 
    135     real(4), dimension(:,:,:,:,:)  , pointer :: psarray5 
    136     real(4), dimension(:,:,:,:,:,:), pointer :: psarray6 
     131    real(4), dimension(:)          , pointer :: psarray1 => NULL() 
     132    real(4), dimension(:,:)        , pointer :: psarray2 => NULL() 
     133    real(4), dimension(:,:,:)      , pointer :: psarray3 => NULL() 
     134    real(4), dimension(:,:,:,:)    , pointer :: psarray4 => NULL() 
     135    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5 => NULL() 
     136    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6 => NULL() 
    137137!> @} 
    138138!> \name Arrays used to restore the values 
Note: See TracChangeset for help on using the changeset viewer.