Changeset 10098 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES

Timestamp:

2018-09-07T14:03:38+02:00 (6 years ago)

Author:

rblod

Message:

Initialisation of GArif structures

File:

• vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modtypes.F90 (modified) (1 diff)

vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modtypes.F90

@@ -111 +111 @@
 !> \name Arrays containing the values of the grid variables (real)
 !> @{
-    real,    dimension(:)          , pointer :: parray1
-    real,    dimension(:,:)        , pointer :: parray2
-    real,    dimension(:,:,:)      , pointer :: parray3
-    real,    dimension(:,:,:,:)    , pointer :: parray4
-    real,    dimension(:,:,:,:,:)  , pointer :: parray5
-    real,    dimension(:,:,:,:,:,:), pointer :: parray6
+    real,    dimension(:)          , pointer :: parray1 => NULL()
+    real,    dimension(:,:)        , pointer :: parray2 => NULL()
+    real,    dimension(:,:,:)      , pointer :: parray3 => NULL()
+    real,    dimension(:,:,:,:)    , pointer :: parray4 => NULL()
+    real,    dimension(:,:,:,:,:)  , pointer :: parray5 => NULL()
+    real,    dimension(:,:,:,:,:,:), pointer :: parray6 => NULL()
 !> @}
 !> \name Arrays containing the values of the grid variables (real*8)
 !> @{
-    real(8), dimension(:)          , pointer :: pdarray1
-    real(8), dimension(:,:)        , pointer :: pdarray2
-    real(8), dimension(:,:,:)      , pointer :: pdarray3
-    real(8), dimension(:,:,:,:)    , pointer :: pdarray4
-    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5
-    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6
+    real(8), dimension(:)          , pointer :: pdarray1 => NULL()
+    real(8), dimension(:,:)        , pointer :: pdarray2 => NULL()
+    real(8), dimension(:,:,:)      , pointer :: pdarray3 => NULL()
+    real(8), dimension(:,:,:,:)    , pointer :: pdarray4 => NULL()
+    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5 => NULL()
+    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6 => NULL()
 !> @}
 !> \name Arrays containing the values of the grid variables (real*4)
 !> @{
-    real(4), dimension(:)          , pointer :: psarray1
-    real(4), dimension(:,:)        , pointer :: psarray2
-    real(4), dimension(:,:,:)      , pointer :: psarray3
-    real(4), dimension(:,:,:,:)    , pointer :: psarray4
-    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5
-    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6
+    real(4), dimension(:)          , pointer :: psarray1 => NULL()
+    real(4), dimension(:,:)        , pointer :: psarray2 => NULL()
+    real(4), dimension(:,:,:)      , pointer :: psarray3 => NULL()
+    real(4), dimension(:,:,:,:)    , pointer :: psarray4 => NULL()
+    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5 => NULL()
+    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6 => NULL()
 !> @}
 !> \name Arrays used to restore the values