Changeset 1233 for LMDZ4/trunk/libf/phylmd/moy_undefSTD.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/moy_undefSTD.F (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/moy_undefSTD.F

@@ -5 +5 @@
      $           dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
      $           tnondef,tsumSTD)
+      USE netcdf
       USE dimphy
       IMPLICIT none
@@ -13 +14 @@
 c
 c Moyenne - a des frequences differentes - des valeurs bien definies
-c         (.NE.1.E+20) des variables interpolees a un niveau de
+c         (.NE.missing_val) des variables interpolees a un niveau de
 c         pression.
 c 1) les variables de type "day" (nout=1) ou "mth" (nout=2) sont sommees
@@ -42 +43 @@
       REAL tsumSTD(klon,klevSTD,nout)
 c
+      REAL missing_val
+c
+      missing_val=nf90_fill_real
+c
 c calcul 1 fois par jour
 c
@@ -51 +56 @@
      $    (ecrit_day/dtime-tnondef(i,k,1))
          ELSE
-          tsumSTD(i,k,1)=1.E+20
+          tsumSTD(i,k,1)=missing_val
          ENDIF !tnondef
         ENDDO !i
@@ -66 +71 @@
      $    (ecrit_mth/dtime-tnondef(i,k,2))
          ELSE
-          tsumSTD(i,k,2)=1.E+20
+          tsumSTD(i,k,2)=missing_val
          ENDIF !tnondef
 c
@@ -73 +78 @@
      $    (ecrit_hf2mth-tnondef(i,k,3))
          ELSE
-          tsumSTD(i,k,3)=1.E+20
+          tsumSTD(i,k,3)=missing_val
          ENDIF !tnondef
 c