Changeset 1233 for LMDZ4/trunk/libf/phylmd/plevel.F

Timestamp:

Aug 28, 2009, 11:13:28 AM (15 years ago)

Author:

musat

Message:

Pour la coherence avec netcdf : on met les memes _Fillvalue pour les variables a un niveau de pression
IM

File:

• LMDZ4/trunk/libf/phylmd/plevel.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/plevel.F

@@ -7 +7 @@
 c================================================================
 c================================================================
+      USE netcdf
       USE dimphy
       IMPLICIT none
@@ -54 +55 @@
 c$OMP THREADPRIVATE(first)
       INTEGER i, k
+c
+      REAL missing_val
+c
+      missing_val=nf90_fill_real
 c
       if (first) then
@@ -119 +124 @@
       do i = 1, klon
          if (pgcm(i,1).LT.pres) THEN
-c           Qpres(i)=1e33
-            Qpres(i)=1e+20
+            Qpres(i)=missing_val
          endif
       enddo