From caac942477f027d06f745fce0cafe2114ffdb3ba Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 8 Feb 2019 11:14:25 +0100
Subject: [PATCH] Philippe 08/02/2019: add missing NULL association for
pointers in modd_* files
---
src/MNH/modd_RBK90_Globaln.f90 | 18 +++---
src/MNH/modd_RBK90_JacobianSPn.f90 | 16 +++--
src/MNH/modd_aircraft_balloon.f90 | 100 ++++++++++++++---------------
src/MNH/modd_blowsnown.f90 | 11 ++--
src/MNH/modd_ch_budget_n.f90 | 21 +++---
src/MNH/modd_ch_constn.f90 | 19 ++----
src/MNH/modd_ch_icen.f90 | 14 ++--
src/MNH/modd_ch_phn.f90 | 15 +++--
src/MNH/modd_ch_prodlosstotn.f90 | 16 +++--
src/MNH/modd_ch_rosenbrockn.f90 | 21 +++---
src/MNH/modd_lesn.f90 | 32 ++++-----
src/MNH/modd_nesting.f90 | 13 ++--
src/MNH/modd_nudgingn.f90 | 14 ++--
src/MNH/modd_param_ecradn.f90 | 12 ++--
src/MNH/modd_radiationsn.f90 | 23 +++----
src/MNH/modd_sub_modeln.f90 | 21 +++---
src/MNH/modd_timez.f90 | 11 ++--
17 files changed, 187 insertions(+), 190 deletions(-)
diff --git a/src/MNH/modd_RBK90_Globaln.f90 b/src/MNH/modd_RBK90_Globaln.f90
index ccf0f737b..4d4a40e40 100644
--- a/src/MNH/modd_RBK90_Globaln.f90
+++ b/src/MNH/modd_RBK90_Globaln.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
@@ -23,6 +23,8 @@
! Output root filename : RBK90
!
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! Modifications
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
MODULE MODD_RBK90_Global_n
@@ -40,15 +42,15 @@ TYPE RBK90_Global_t
! Declaration of global variables
! C - Concentration of all species
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: C
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: C => NULL()
! VAR - Concentrations of variable species (global)
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: VAR
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: VAR => NULL()
! FIX - Concentrations of fixed species (global)
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: FIX
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: FIX => NULL()
!JPP EQUIVALENCE( C(1),VAR(1) )
!JPP EQUIVALENCE( C(66),FIX(1) )
! RCONST - Rate constants (global)
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: RCONST
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: RCONST => NULL()
! TIME - Current integration time
REAL(KIND(0.0D0)) :: TIME
! SUN - Sunlight intensity between [0,1]
@@ -64,9 +66,9 @@ TYPE RBK90_Global_t
! DT - Integration step
REAL(KIND(0.0D0)) :: DT
! ATOL - Absolute tolerance
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: ATOL
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: ATOL => NULL()
! RTOL - Relative tolerance
- REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: RTOL
+ REAL(KIND(0.0D0)), DIMENSION(:), POINTER :: RTOL => NULL()
! STEPMIN - Lower bound for integration step
REAL(KIND(0.0D0)) :: STEPMIN
! STEPMAX - Upper bound for integration step
diff --git a/src/MNH/modd_RBK90_JacobianSPn.f90 b/src/MNH/modd_RBK90_JacobianSPn.f90
index dc7fd2c69..be6f91d41 100644
--- a/src/MNH/modd_RBK90_JacobianSPn.f90
+++ b/src/MNH/modd_RBK90_JacobianSPn.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!******************************************************************
@@ -25,6 +25,8 @@
! Output root filename : RBK90
!
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! Modifications
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
MODULE MODD_RBK90_JacobianSP_n
@@ -39,13 +41,13 @@ TYPE RBK90_JacobianSP_t
! Sparse Jacobian Data
- INTEGER, DIMENSION(:), POINTER :: LU_IROW
- INTEGER, DIMENSION(:), POINTER :: LU_ICOL
+ INTEGER, DIMENSION(:), POINTER :: LU_IROW => NULL()
+ INTEGER, DIMENSION(:), POINTER :: LU_ICOL => NULL()
- INTEGER, DIMENSION(:), POINTER :: LU_CROW
- INTEGER, DIMENSION(:), POINTER :: LU_DIAG
+ INTEGER, DIMENSION(:), POINTER :: LU_CROW => NULL()
+ INTEGER, DIMENSION(:), POINTER :: LU_DIAG => NULL()
- INTEGER, DIMENSION(:), POINTER :: LU_DIM_SPECIES
+ INTEGER, DIMENSION(:), POINTER :: LU_DIM_SPECIES => NULL()
END TYPE RBK90_JacobianSP_t
diff --git a/src/MNH/modd_aircraft_balloon.f90 b/src/MNH/modd_aircraft_balloon.f90
index 677a4c4ac..9ff02772f 100644
--- a/src/MNH/modd_aircraft_balloon.f90
+++ b/src/MNH/modd_aircraft_balloon.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_aircraft_balloon.f90,v $ $Revision: 1.1.10.1.2.1.10.2.2.2 $
-! MASDEV4_7 modd 2006/06/28 11:31:03
-!-----------------------------------------------------------------
! ############################
MODULE MODD_AIRCRAFT_BALLOON
! ############################
@@ -26,10 +21,10 @@
!!
!! REFERENCE
!! ---------
-!!
+!!
!! AUTHOR
!! ------
-!! P. Jabouille *Meteo France*
+!! P. Jabouille *Meteo France*
!!
!! MODIFICATIONS
!! -------------
@@ -37,6 +32,7 @@
!! Apr,19, 2001 (G.Jaubert) add CVBALL type
!! March, 2013 : O.Caumont, C.Lac : add vertical profiles
!! Oct,2016 : G.DELAUTIER LIMA
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -92,13 +88,13 @@ REAL :: MASS ! mass of the balloon (kg) (if 'CVBALL')
INTEGER :: SEG ! number of aircraft flight segments
INTEGER :: SEGCURN ! current flight segment number
REAL :: SEGCURT ! current flight segment time spent
-REAL, DIMENSION(:), POINTER :: SEGLAT ! latitude of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGLON ! longitude of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGX ! X of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGY ! Y of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGP ! pressure of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGZ ! altitude of flight segment extremities (LEG+1)
-REAL, DIMENSION(:), POINTER :: SEGTIME ! duration of flight segments (LEG )
+REAL, DIMENSION(:), POINTER :: SEGLAT => NULL() ! latitude of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGLON => NULL() ! longitude of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGX => NULL() ! X of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGY => NULL() ! Y of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGP => NULL() ! pressure of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGZ => NULL() ! altitude of flight segment extremities (LEG+1)
+REAL, DIMENSION(:), POINTER :: SEGTIME => NULL() ! duration of flight segments (LEG )
!
!* aircraft altitude type definition
!
@@ -113,42 +109,42 @@ REAL :: P_CUR ! current p (if 'AIRCRA' and 'ALTDEF'
!
!* data records
!
-REAL, DIMENSION(:), POINTER :: TIME ! t(n) (n: recording instants)
-REAL, DIMENSION(:), POINTER :: X ! X(n)
-REAL, DIMENSION(:), POINTER :: Y ! Y(n)
-REAL, DIMENSION(:), POINTER :: Z ! Z(n)
-REAL, DIMENSION(:), POINTER :: XLON ! longitude(n)
-REAL, DIMENSION(:), POINTER :: YLAT ! latitude (n)
-REAL, DIMENSION(:), POINTER :: ZON ! zonal wind(n)
-REAL, DIMENSION(:), POINTER :: MER ! meridian wind(n)
-REAL, DIMENSION(:), POINTER :: W ! w(n) (air vertical speed)
-REAL, DIMENSION(:), POINTER :: P ! p(n)
-REAL, DIMENSION(:), POINTER :: TKE ! tke(n)
-REAL, DIMENSION(:), POINTER :: TKE_DISS ! tke dissipation rate
-REAL, DIMENSION(:), POINTER :: TH ! th(n)
-REAL, DIMENSION(:,:), POINTER :: R ! r*(n)
-REAL, DIMENSION(:,:), POINTER :: SV ! Sv*(n)
-REAL, DIMENSION(:,:), POINTER :: RTZ ! tot hydrometeor mixing ratio
-REAL, DIMENSION(:,:,:), POINTER :: RZ ! water vapour mixing ratio
-REAL, DIMENSION(:,:), POINTER :: FFZ ! horizontal wind
-REAL, DIMENSION(:,:), POINTER :: IWCZ ! ice water content
-REAL, DIMENSION(:,:), POINTER :: LWCZ ! liquid water content
-REAL, DIMENSION(:,:), POINTER :: CIZ ! Ice concentration
-REAL, DIMENSION(:,:), POINTER :: CCZ ! Cloud concentration (LIMA)
-REAL, DIMENSION(:,:), POINTER :: CRZ ! Rain concentration (LIMA)
-REAL, DIMENSION(:,:), POINTER :: CRARE ! cloud radar reflectivity
-REAL, DIMENSION(:,:), POINTER :: CRARE_ATT ! attenuated (= more realistic) cloud radar reflectivity
-REAL, DIMENSION(:,:), POINTER :: WZ ! vertical profile of vertical velocity
-REAL, DIMENSION(:,:), POINTER :: ZZ ! vertical profile of mass point altitude (above sea)
-REAL, DIMENSION(:,:), POINTER :: AER ! Extinction at 550 nm
-REAL, DIMENSION(:,:), POINTER :: DST_WL ! Extinction by wavelength
-REAL, DIMENSION(:), POINTER :: ZS ! zs(n)
-REAL, DIMENSION(:), POINTER :: TSRAD ! Ts(n)
-REAL, DIMENSION(:,:), POINTER :: DATIME ! record for diachro
-!
-REAL, DIMENSION(:) , POINTER :: THW_FLUX ! thw_flux(n)
-REAL, DIMENSION(:) , POINTER :: RCW_FLUX ! rcw_flux(n)
-REAL, DIMENSION(:,:), POINTER :: SVW_FLUX ! psw_flux(n)
+REAL, DIMENSION(:), POINTER :: TIME => NULL() ! t(n) (n: recording instants)
+REAL, DIMENSION(:), POINTER :: X => NULL() ! X(n)
+REAL, DIMENSION(:), POINTER :: Y => NULL() ! Y(n)
+REAL, DIMENSION(:), POINTER :: Z => NULL() ! Z(n)
+REAL, DIMENSION(:), POINTER :: XLON => NULL() ! longitude(n)
+REAL, DIMENSION(:), POINTER :: YLAT => NULL() ! latitude (n)
+REAL, DIMENSION(:), POINTER :: ZON => NULL() ! zonal wind(n)
+REAL, DIMENSION(:), POINTER :: MER => NULL() ! meridian wind(n)
+REAL, DIMENSION(:), POINTER :: W => NULL() ! w(n) (air vertical speed)
+REAL, DIMENSION(:), POINTER :: P => NULL() ! p(n)
+REAL, DIMENSION(:), POINTER :: TKE => NULL() ! tke(n)
+REAL, DIMENSION(:), POINTER :: TKE_DISS => NULL() ! tke dissipation rate
+REAL, DIMENSION(:), POINTER :: TH => NULL() ! th(n)
+REAL, DIMENSION(:,:), POINTER :: R => NULL() ! r*(n)
+REAL, DIMENSION(:,:), POINTER :: SV => NULL() ! Sv*(n)
+REAL, DIMENSION(:,:), POINTER :: RTZ => NULL() ! tot hydrometeor mixing ratio
+REAL, DIMENSION(:,:,:),POINTER :: RZ => NULL() ! water vapour mixing ratio
+REAL, DIMENSION(:,:), POINTER :: FFZ => NULL() ! horizontal wind
+REAL, DIMENSION(:,:), POINTER :: IWCZ => NULL() ! ice water content
+REAL, DIMENSION(:,:), POINTER :: LWCZ => NULL() ! liquid water content
+REAL, DIMENSION(:,:), POINTER :: CIZ => NULL() ! Ice concentration
+REAL, DIMENSION(:,:), POINTER :: CCZ => NULL() ! Cloud concentration (LIMA)
+REAL, DIMENSION(:,:), POINTER :: CRZ => NULL() ! Rain concentration (LIMA)
+REAL, DIMENSION(:,:), POINTER :: CRARE => NULL() ! cloud radar reflectivity
+REAL, DIMENSION(:,:), POINTER :: CRARE_ATT => NULL() ! attenuated (= more realistic) cloud radar reflectivity
+REAL, DIMENSION(:,:), POINTER :: WZ => NULL() ! vertical profile of vertical velocity
+REAL, DIMENSION(:,:), POINTER :: ZZ => NULL() ! vertical profile of mass point altitude (above sea)
+REAL, DIMENSION(:,:), POINTER :: AER => NULL() ! Extinction at 550 nm
+REAL, DIMENSION(:,:), POINTER :: DST_WL => NULL() ! Extinction by wavelength
+REAL, DIMENSION(:), POINTER :: ZS => NULL() ! zs(n)
+REAL, DIMENSION(:), POINTER :: TSRAD => NULL() ! Ts(n)
+REAL, DIMENSION(:,:), POINTER :: DATIME => NULL() ! record for diachro
+!
+REAL, DIMENSION(:) , POINTER :: THW_FLUX => NULL() ! thw_flux(n)
+REAL, DIMENSION(:) , POINTER :: RCW_FLUX => NULL() ! rcw_flux(n)
+REAL, DIMENSION(:,:), POINTER :: SVW_FLUX => NULL() ! psw_flux(n)
END TYPE FLYER
REAL :: XLAM_CRAD ! cloud radar wavelength (m)
!
diff --git a/src/MNH/modd_blowsnown.f90 b/src/MNH/modd_blowsnown.f90
index 38bf7b929..531c86fde 100644
--- a/src/MNH/modd_blowsnown.f90
+++ b/src/MNH/modd_blowsnown.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2018-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!! ######################
@@ -28,6 +28,7 @@
!!
!! MODIFICATIONS
!! -------------
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!!--------------------------------------------------------------------
!! DECLARATIONS
@@ -39,13 +40,13 @@ TYPE BLOWSNOW_t
!
LOGICAL :: LSNOWSUBL ! switch to activate blowing snow sublimation
!
-REAL, DIMENSION(:,:,:), POINTER :: XSNWSUBL3D ! Drifting snow instataneous
+REAL, DIMENSION(:,:,:), POINTER :: XSNWSUBL3D => NULL() ! Drifting snow instataneous
! sublimation rate (kg/m3/s)
-REAL, DIMENSION(:,:,:), POINTER :: XSNWCANO ! Total mass in Canopy at time t
+REAL, DIMENSION(:,:,:), POINTER :: XSNWCANO => NULL() ! Total mass in Canopy at time t
! (:,:,1) : equivalent number concentration in Canopy (#/kg)
! (:,:,2) : equivalent mass concentration in Canopy (kg/kg)
! (:,:,3) : equivalent mass concentration in saltation (kg/kg)
-REAL, DIMENSION(:,:,:), POINTER :: XRSNWCANOS ! Source of (rho*canopy mass) at time t
+REAL, DIMENSION(:,:,:), POINTER :: XRSNWCANOS => NULL() ! Source of (rho*canopy mass) at time t
diff --git a/src/MNH/modd_ch_budget_n.f90 b/src/MNH/modd_ch_budget_n.f90
index 41c039d07..4fe8de9b6 100644
--- a/src/MNH/modd_ch_budget_n.f90
+++ b/src/MNH/modd_ch_budget_n.f90
@@ -1,3 +1,7 @@
+!MNH_LIC Copyright 2016-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! #######################
MODULE MODD_CH_BUDGET_n
@@ -15,19 +19,20 @@
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
-!! None
+!! None
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH
-!!
+!!
!! AUTHOR
!! ------
!! F. Brosse *Laboratoire d'Aerologie UPS-CNRS*
!!
!! MODIFICATIONS
!! -------------
-!! Original October 2016
+!! Original October 2016
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -37,16 +42,16 @@ USE MODD_PARAMETERS, ONLY: JPMODELMAX
IMPLICIT NONE
TYPE TREAC_BUDGET
- REAL , DIMENSION(:,:,:,:), POINTER :: XB_REAC
- INTEGER, DIMENSION(:) , POINTER :: NB_REAC
+ REAL , DIMENSION(:,:,:,:), POINTER :: XB_REAC => NULL()
+ INTEGER, DIMENSION(:) , POINTER :: NB_REAC => NULL()
END TYPE TREAC_BUDGET
TYPE TCH_BUDGET_t
- CHARACTER(LEN=32), DIMENSION(:), POINTER :: CNAMES_BUDGET
- INTEGER, DIMENSION(:), POINTER :: NSPEC_BUDGET
+ CHARACTER(LEN=32), DIMENSION(:), POINTER :: CNAMES_BUDGET => NULL()
+ INTEGER, DIMENSION(:), POINTER :: NSPEC_BUDGET => NULL()
INTEGER :: NEQ_BUDGET
- TYPE(TREAC_BUDGET), DIMENSION(:), POINTER :: XTCHEM
+ TYPE(TREAC_BUDGET), DIMENSION(:), POINTER :: XTCHEM => NULL()
END TYPE TCH_BUDGET_t
diff --git a/src/MNH/modd_ch_constn.f90 b/src/MNH/modd_ch_constn.f90
index 92013fb84..f7495916e 100644
--- a/src/MNH/modd_ch_constn.f90
+++ b/src/MNH/modd_ch_constn.f90
@@ -1,14 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2001-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$ $Date$
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------
! #####################
MODULE MODD_CH_CONST_n
! ######################
@@ -32,6 +26,7 @@
!!
!! MODIFICATIONS
!! -------------
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -43,14 +38,14 @@ IMPLICIT NONE
TYPE CH_CONST_t
!
- REAL, DIMENSION(:), POINTER :: XSREALMASSMOLVAL ! final molecular
+ REAL, DIMENSION(:), POINTER :: XSREALMASSMOLVAL => NULL() ! final molecular
! diffusivity value
- REAL, DIMENSION(:), POINTER :: XSREALREACTVAL ! final chemical
+ REAL, DIMENSION(:), POINTER :: XSREALREACTVAL => NULL() ! final chemical
! reactivity factor
! with biologie
- REAL, DIMENSION(:,:), POINTER :: XSREALHENRYVAL ! chemical Henry
+ REAL, DIMENSION(:,:), POINTER :: XSREALHENRYVAL => NULL() ! chemical Henry
! constant value
- REAL :: XCONVERSION ! emission unit
+ REAL :: XCONVERSION ! emission unit
! conversion factor
!
diff --git a/src/MNH/modd_ch_icen.f90 b/src/MNH/modd_ch_icen.f90
index 8f9323d0c..19f0a3c26 100644
--- a/src/MNH/modd_ch_icen.f90
+++ b/src/MNH/modd_ch_icen.f90
@@ -1,15 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2015-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source: /home//MESONH/MNH-V5-1-4/src/MODIF_TMICICE/modd_ch_icen.f90
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------------------
!! ########################
MODULE MODD_CH_ICE_n
!! ########################
@@ -28,6 +21,7 @@
!! MODIFICATIONS
!! -------------
!! Original 11/12/15
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!! IMPLICIT ARGUMENTS
!! ------------------
@@ -43,7 +37,7 @@ IMPLICIT NONE
TYPE CH_ICE_t
!
- INTEGER, POINTER, DIMENSION(:) :: NINDEXGI, NINDEXWI, NINDEXWG
+ INTEGER, POINTER, DIMENSION(:) :: NINDEXGI => NULL(), NINDEXWI => NULL(), NINDEXWG => NULL()
!
!-----------------------------------------------------------------------------
END TYPE CH_ICE_t
diff --git a/src/MNH/modd_ch_phn.f90 b/src/MNH/modd_ch_phn.f90
index b321995c9..b1071e5f2 100644
--- a/src/MNH/modd_ch_phn.f90
+++ b/src/MNH/modd_ch_phn.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 2007-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2007-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!! ########################
@@ -23,6 +23,7 @@
!! P. Tulet Nov 2014 accumulated moles of aqueous species that fall at the surface
!! P. Tulet & M. Leriche Nov 2015 add pH in rain at the surface
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!! IMPLICIT ARGUMENTS
!! ------------------
@@ -38,11 +39,11 @@ IMPLICIT NONE
TYPE CH_PH_t
!
-! REAL, POINTER, DIMENSION(:,:,:) :: XPHC ! cloud
-! REAL, POINTER, DIMENSION(:,:,:) :: XPHR ! rain
- REAL, POINTER, DIMENSION(:,:,:) :: XACPRAQ ! sum of aqueous chemical species fall at the surface by rain
- ! in moles i / m2 (ratio with XACPRR for concentration
- REAL, POINTER, DIMENSION(:,:) :: XACPHR ! mean PH in accumulated surface rain
+! REAL, POINTER, DIMENSION(:,:,:) :: XPHC => NULL() ! cloud
+! REAL, POINTER, DIMENSION(:,:,:) :: XPHR => NULL() ! rain
+ REAL, POINTER, DIMENSION(:,:,:) :: XACPRAQ => NULL() ! sum of aqueous chemical species fall at the surface by rain
+ ! in moles i / m2 (ratio with XACPRR for concentration
+ REAL, POINTER, DIMENSION(:,:) :: XACPHR => NULL() ! mean PH in accumulated surface rain
!
!-----------------------------------------------------------------------------
END TYPE CH_PH_t
diff --git a/src/MNH/modd_ch_prodlosstotn.f90 b/src/MNH/modd_ch_prodlosstotn.f90
index 289f97e34..a5fb75b1c 100644
--- a/src/MNH/modd_ch_prodlosstotn.f90
+++ b/src/MNH/modd_ch_prodlosstotn.f90
@@ -1,3 +1,8 @@
+!MNH_LIC Copyright 2016-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
!! ########################
MODULE MODD_CH_PRODLOSSTOT_n
!! ########################
@@ -25,7 +30,8 @@
!!
!! MODIFICATIONS
!! -------------
-!! Original October 2016
+!! Original October 2016
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -36,11 +42,11 @@ IMPLICIT NONE
TYPE CH_PRODLOSSTOT_t
!
- CHARACTER(LEN=32), DIMENSION(:), POINTER :: CNAMES_PRODLOSST
- INTEGER, DIMENSION(:), POINTER :: NIND_SPEC
+ CHARACTER(LEN=32), DIMENSION(:), POINTER :: CNAMES_PRODLOSST => NULL()
+ INTEGER, DIMENSION(:), POINTER :: NIND_SPEC => NULL()
INTEGER :: NEQ_PLT
- REAL, DIMENSION(:,:,:,:), POINTER:: XPROD
- REAL, DIMENSION(:,:,:,:), POINTER:: XLOSS
+ REAL, DIMENSION(:,:,:,:), POINTER:: XPROD => NULL()
+ REAL, DIMENSION(:,:,:,:), POINTER:: XLOSS => NULL()
!
!-----------------------------------------------------------------------------
diff --git a/src/MNH/modd_ch_rosenbrockn.f90 b/src/MNH/modd_ch_rosenbrockn.f90
index ff5b17a03..9e46c3d64 100644
--- a/src/MNH/modd_ch_rosenbrockn.f90
+++ b/src/MNH/modd_ch_rosenbrockn.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2007-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!! #########################
MODULE MODD_CH_ROSENBROCK_n
@@ -20,6 +20,7 @@
!! MODIFICATIONS
!! -------------
!! Original 05/06/07
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!! IMPLICIT ARGUMENTS
!! ------------------
@@ -36,19 +37,19 @@ TYPE CH_ROSENBROCK_t
!
INTEGER :: NSPARSEDIM ! size of vectors NSPARSE_IROW and NSPARSE_ICOL
!
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_IROW ! row index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_ICOL ! col index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_CROW ! first row element index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_DIAG ! diag index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_IROW => NULL() ! row index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_ICOL => NULL() ! col index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_CROW => NULL() ! first row element index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_DIAG => NULL() ! diag index
! of the sparse JACobian matrix
!
INTEGER :: NEQ_NAQ ! number of Non-AQueous species
INTEGER :: NSPARSEDIM_NAQ !size of vectors NSPARSE_IROW_NAQ and NSPARSE_ICOL_NAQ
!
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_IROW_NAQ ! row index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_ICOL_NAQ ! col index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_CROW_NAQ ! first row element index
- INTEGER, POINTER, DIMENSION(:) :: NSPARSE_DIAG_NAQ ! diag index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_IROW_NAQ => NULL() ! row index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_ICOL_NAQ => NULL() ! col index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_CROW_NAQ => NULL() ! first row element index
+ INTEGER, POINTER, DIMENSION(:) :: NSPARSE_DIAG_NAQ => NULL() ! diag index
! of the sparse JACobian matrix of NonAQueous species
!
!
diff --git a/src/MNH/modd_lesn.f90 b/src/MNH/modd_lesn.f90
index dd37f5461..582a56618 100644
--- a/src/MNH/modd_lesn.f90
+++ b/src/MNH/modd_lesn.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/modd_lesn.f90,v $ $Revision: 1.2.2.2.2.1.2.1.12.2 $ $Date: 2014/01/09 15:01:56 $
-!-----------------------------------------------------------------
-!-----------------------------------------------------------------
! ###############
MODULE MODD_LES_n
! ###############
@@ -22,13 +17,13 @@
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
-!! None
+!! None
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (module MODD_LES)
!! Technical Specifications Report of the Meso-NH (chapters 2 and 3)
-!!
+!!
!!
!! AUTHOR
!! ------
@@ -36,7 +31,7 @@
!!
!! MODIFICATIONS
!! -------------
-!! Original March 10, 1995
+!! Original March 10, 1995
!!
!! (J.Stein) Sept. 25, 1995 add the model number in LES mode
!! J. Cuxart Oct. 4, 1996 New time series
@@ -44,6 +39,7 @@
!! V. Masson Nov. 6, 2002 LES budgets
!! O.Thouron June, 2008 New radiation diagnostics
!! 10/2016 (C.Lac) Add droplet deposition
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -647,20 +643,20 @@ TYPE LES_t
!
REAL, DIMENSION(:,:,:), POINTER :: XCORRk_WW=>NULL() ! between w and w
!
-!lw and sw fluxes up and down
- REAL, DIMENSION(:,:), POINTER :: XLES_SWU !mean on the domain of the sw_up flux
+!lw and sw fluxes up and down
+ REAL, DIMENSION(:,:), POINTER :: XLES_SWU => NULL() !mean on the domain of the sw_up flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_SWD !mean on the domain of the sw_down flux
+ REAL, DIMENSION(:,:), POINTER :: XLES_SWD => NULL() !mean on the domain of the sw_down flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_LWU !mean on the domain of the lw_up flux
+ REAL, DIMENSION(:,:), POINTER :: XLES_LWU => NULL() !mean on the domain of the lw_up flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_LWD !mean on the domain of the lw_down flux
+ REAL, DIMENSION(:,:), POINTER :: XLES_LWD => NULL() !mean on the domain of the lw_down flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_DTHRADSW !mean on the domain of dthrad_sw flux
+ REAL, DIMENSION(:,:), POINTER :: XLES_DTHRADSW => NULL() !mean on the domain of dthrad_sw flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_DTHRADLW !mean on the domain of dthrad_lw flux
+ REAL, DIMENSION(:,:), POINTER :: XLES_DTHRADLW => NULL() !mean on the domain of dthrad_lw flux
!temporal serie
- REAL, DIMENSION(:,:), POINTER :: XLES_RADEFF ! effective radius
+ REAL, DIMENSION(:,:), POINTER :: XLES_RADEFF => NULL() ! effective radius
!-------------------------------------------------------------------------------
!
END TYPE LES_t
diff --git a/src/MNH/modd_nesting.f90 b/src/MNH/modd_nesting.f90
index 077e97681..d644d0260 100644
--- a/src/MNH/modd_nesting.f90
+++ b/src/MNH/modd_nesting.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ###################
@@ -24,7 +24,7 @@
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (module MODD_NESTING)
-!!
+!!
!! AUTHOR
!! ------
!! J.P. Lafore *Meteo France*
@@ -32,8 +32,9 @@
!! MODIFICATIONS
!! -------------
!! Original 18/08/95
-!! updated 29/07/96 (J.P. Lafore) MY_NAME(m) introduction
+!! updated 29/07/96 (J.P. Lafore) MY_NAME(m) introduction
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -81,11 +82,11 @@ LOGICAL,SAVE, DIMENSION(JPMODELMAX) :: L2D_NEST ! Logical for 2D model
LOGICAL,SAVE, DIMENSION(JPMODELMAX) :: LPACK_NEST ! Logical to compress 1D or 2D FM files of model m
!
TYPE REAL_FIELD2D_ALL
- REAL, DIMENSION(:,:), POINTER :: XFIELD2D
+ REAL, DIMENSION(:,:), POINTER :: XFIELD2D => NULL()
END TYPE REAL_FIELD2D_ALL
TYPE REAL_FIELD1D_ALL
- REAL, DIMENSION(:), POINTER :: XFIELD1D
+ REAL, DIMENSION(:), POINTER :: XFIELD1D => NULL()
END TYPE REAL_FIELD1D_ALL
!
TYPE(REAL_FIELD2D_ALL), DIMENSION(JPMODELMAX), TARGET :: TXZS ! orography of model m
diff --git a/src/MNH/modd_nudgingn.f90 b/src/MNH/modd_nudgingn.f90
index c4f4768ba..2bdadfb0f 100644
--- a/src/MNH/modd_nudgingn.f90
+++ b/src/MNH/modd_nudgingn.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2006-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 modd 2006/05/24 18:05:50
-!-----------------------------------------------------------------
! ###################
MODULE MODD_NUDGING_n
! ###################
@@ -32,6 +27,7 @@
!! MODIFICATIONS
!! -------------
!! Original 15/05/06
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!-------------------------------------------------------------------------------
!
@@ -49,8 +45,8 @@ END TYPE NUDGING_t
TYPE(NUDGING_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: NUDGING_MODEL
-LOGICAL, POINTER :: LNUDGING
-REAL, POINTER :: XTNUDGING
+LOGICAL, POINTER :: LNUDGING => NULL()
+REAL, POINTER :: XTNUDGING => NULL()
CONTAINS
diff --git a/src/MNH/modd_param_ecradn.f90 b/src/MNH/modd_param_ecradn.f90
index 988888427..a7bf0b344 100644
--- a/src/MNH/modd_param_ecradn.f90
+++ b/src/MNH/modd_param_ecradn.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2017-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 modd 2006/11/23 17:28:26
-!-----------------------------------------------------------------
! ########################
MODULE MODD_PARAM_ECRAD_n
! ########################
@@ -38,6 +33,7 @@
!! -------------
!! Original 29/05/2017 add ECRAD parameters as namelist
!! Q. Libois
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -213,7 +209,7 @@ LOGICAL, POINTER :: LAPPROXSWUPDATE=>NULL()
LOGICAL, POINTER :: LAPPROXLWUPDATE=>NULL()
CHARACTER (LEN=255), POINTER :: CDATADIR=>NULL()
#ifdef MNH_ECRAD
-type(config_type), pointer :: rad_config
+type(config_type), pointer :: rad_config => NULL()
#endif
CONTAINS
diff --git a/src/MNH/modd_radiationsn.f90 b/src/MNH/modd_radiationsn.f90
index 455a2bc04..ec51e9e32 100644
--- a/src/MNH/modd_radiationsn.f90
+++ b/src/MNH/modd_radiationsn.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ########################
@@ -37,6 +37,7 @@
!! 03/03/03 (V. Masson) surface radiative schemes and
!! multiple wavelengths for surface SW
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!!
!-------------------------------------------------------------------------------
!
@@ -108,18 +109,18 @@ TYPE RADIATIONS_t
! REAL, DIMENSION(:,:,:), POINTER :: XSCA_ALB=>NULL() ! scattered albedo for each spectral band
! REAL, DIMENSION(:,:,:), POINTER :: XEMIS=>NULL() ! emissivity
! REAL, DIMENSION(:,:), POINTER :: XTSRAD=>NULL() ! surface temperature
- REAL, DIMENSION(:,:), POINTER :: XSEA=>NULL() ! sea fraction
+ REAL, DIMENSION(:,:), POINTER :: XSEA=>NULL() ! sea fraction
!
! REAL, DIMENSION(:,:), POINTER :: XZENITH=>NULL() ! zenithal angle (radian from the vertical)
! REAL, DIMENSION(:,:), POINTER :: XAZIM=>NULL() ! azimuthal angle (radian from N, clockwise)
- REAL, DIMENSION(:,:), POINTER :: XALBUV=>NULL() ! UV albedo
- REAL, DIMENSION(:,:,:), POINTER :: XSWU !SW_UP
- REAL, DIMENSION(:,:,:), POINTER :: XSWD !SW_DOWN
- REAL, DIMENSION(:,:,:), POINTER :: XLWU !LW_UP
- REAL, DIMENSION(:,:,:), POINTER :: XLWD !LW_DOWN
- REAL, DIMENSION(:,:,:), POINTER :: XDTHRADSW !DTHRAD SW
- REAL, DIMENSION(:,:,:), POINTER :: XDTHRADLW !DTHRAD LW
- REAL, DIMENSION(:,:,:), POINTER :: XRADEFF !effective radius
+ REAL, DIMENSION(:,:), POINTER :: XALBUV=>NULL() ! UV albedo
+ REAL, DIMENSION(:,:,:), POINTER :: XSWU => NULL() ! SW_UP
+ REAL, DIMENSION(:,:,:), POINTER :: XSWD => NULL() ! SW_DOWN
+ REAL, DIMENSION(:,:,:), POINTER :: XLWU => NULL() ! LW_UP
+ REAL, DIMENSION(:,:,:), POINTER :: XLWD => NULL() ! LW_DOWN
+ REAL, DIMENSION(:,:,:), POINTER :: XDTHRADSW => NULL() ! DTHRAD SW
+ REAL, DIMENSION(:,:,:), POINTER :: XDTHRADLW => NULL() ! DTHRAD LW
+ REAL, DIMENSION(:,:,:), POINTER :: XRADEFF => NULL() ! effective radius
!
END TYPE RADIATIONS_t
diff --git a/src/MNH/modd_sub_modeln.f90 b/src/MNH/modd_sub_modeln.f90
index 50cd6ec7b..48bfede31 100644
--- a/src/MNH/modd_sub_modeln.f90
+++ b/src/MNH/modd_sub_modeln.f90
@@ -1,11 +1,12 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! Modifications:
! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! J. Escobar : 18/06/2018 , bug compile R*4 => real*8 pointer XT_VISC
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
!-----------------------------------------------------------------
! #################
MODULE MODD_SUB_MODEL_n
@@ -17,19 +18,19 @@ USE MODD_PARAMETERS, ONLY: JPMODELMAX
IMPLICIT NONE
TYPE SUB_MODEL_t
- TYPE(LIST_ll), POINTER :: TZFIELDS_ll,TZLSFIELD_ll,TZFIELDM_ll
+ TYPE(LIST_ll), POINTER :: TZFIELDS_ll => NULL(), TZLSFIELD_ll => NULL(), TZFIELDM_ll => NULL()
! list of fields to update halo
- TYPE(HALO2LIST_ll), POINTER :: TZHALO2M_ll, TZLSHALO2_ll
+ TYPE(HALO2LIST_ll), POINTER :: TZHALO2M_ll => NULL(), TZLSHALO2_ll => NULL()
! list of fields for the halo updates (2nd layer)
! halo lists and updates for 4th order schemes
! list of fields to update halo at time t
- TYPE(LIST_ll), POINTER :: TZFIELDT_ll ! for meteorological scalars
- TYPE(LIST_ll), POINTER :: TZFIELDMT_ll ! for momentum
- TYPE(LIST_ll), POINTER :: TZFIELDSC_ll ! for tracer scalars
+ TYPE(LIST_ll), POINTER :: TZFIELDT_ll => NULL() ! for meteorological scalars
+ TYPE(LIST_ll), POINTER :: TZFIELDMT_ll => NULL() ! for momentum
+ TYPE(LIST_ll), POINTER :: TZFIELDSC_ll => NULL() ! for tracer scalars
! list of fields for the halo updates (2nd layer) at time t
- TYPE(HALO2LIST_ll), POINTER :: TZHALO2T_ll
- TYPE(HALO2LIST_ll), POINTER :: TZHALO2MT_ll
- TYPE(HALO2LIST_ll), POINTER :: TZHALO2SC_ll
+ TYPE(HALO2LIST_ll), POINTER :: TZHALO2T_ll => NULL()
+ TYPE(HALO2LIST_ll), POINTER :: TZHALO2MT_ll => NULL()
+ TYPE(HALO2LIST_ll), POINTER :: TZHALO2SC_ll => NULL()
INTEGER :: IBAK, IOUT ! number of the backup / output
REAL*8,DIMENSION(2) :: XT_START
REAL*8,DIMENSION(2) :: XT_STORE,XT_BOUND,XT_GUESS
diff --git a/src/MNH/modd_timez.f90 b/src/MNH/modd_timez.f90
index bf8bcbd11..9c9235ed4 100644
--- a/src/MNH/modd_timez.f90
+++ b/src/MNH/modd_timez.f90
@@ -1,7 +1,10 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+! Modifications
+! P. Wautelet 08/02/2019: add missing NULL association for pointers
MODULE MODD_TIMEZ
USE MODD_PARAMETERS, ONLY: JPMODELMAX
@@ -26,7 +29,7 @@ MODULE MODD_TIMEZ
REAL*8,DIMENSION(2) :: T_WRIT3D_WRIT = 0.0
REAL*8,DIMENSION(2) :: T_WRIT3D_WAIT = 0.0
REAL*8,DIMENSION(2) :: T_WRIT3D_ALL = 0.0
-
+
REAL*8,DIMENSION(2) :: T_WRIT2D_GATH = 0.0
REAL*8,DIMENSION(2) :: T_WRIT2D_WRIT = 0.0
REAL*8,DIMENSION(2) :: T_WRIT2D_ALL = 0.0
@@ -51,7 +54,7 @@ MODULE MODD_TIMEZ
TYPE(SUB_TIMEZ_t), DIMENSION(JPMODELMAX), TARGET, SAVE :: SUB_TIMEZN
-TYPE(SUB_TIMEZ_t), POINTER :: TIMEZ
+TYPE(SUB_TIMEZ_t), POINTER :: TIMEZ => NULL()
CONTAINS
--
GitLab