Changeset 2997 for LMDZ5

Timestamp:

Sep 28, 2017, 8:32:22 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Missing initialization for "missing_val" in physiq when not using XIOS.
Set it to default netcdf parameter value "nf90_fill_real".
EM

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -213 +213 @@
     !IM for NMC files
     !     use netcdf, only: nf90_fill_real
-    use netcdf
+    use netcdf, only: nf90_fill_real
     use mod_phys_lmdz_mpi_data, only: is_mpi_root
     USE aero_mod
@@ -443 +443 @@
     real wght_cvfd(klon,klev)
 #ifndef CPP_XIOS
-    REAL, SAVE :: missing_val
+    REAL, SAVE :: missing_val=nf90_fill_real
 #endif
     ! Variables pour le lessivage convectif