Changeset 3842 for LMDZ6/branches/IPSL-CM6A-MR

Timestamp:

Feb 11, 2021, 8:45:10 PM (4 years ago)

Author:

acaubel

Message:

Reported commit [3748] on branch IPSL-CM6A-MR to allow XIOS to detect missing value correctly.

File:

• LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/phys_output_write_mod.F90 (modified) (4 diffs)

LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/phys_output_write_mod.F90

@@ -462 +462 @@
 #endif
 
+#ifndef CPP_XIOS
+    missing_val=missing_val_nf90
+#endif
+
     IF (.NOT.vars_defined) THEN
       kmax_100m=1
@@ -743 +747 @@
 
        IF (vars_defined) THEN
-          missing_val=missing_val_nf90
           DO k = 1, kmax_100m                                      !--we could stop much lower
             zrho(:) = pplay(:,k)/t_seri(:,k)/RD                    ! air density in kg/m3
@@ -1234 +1237 @@
        ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
        ! Champs interpolles sur des niveaux de pression
-       missing_val=missing_val_nf90
        DO iff=1, nfiles
           ll=0
@@ -2213 +2215 @@
        ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
        ! Champs interpolles sur des niveaux de pression
-       missing_val=missing_val_nf90
        DO iff=7, nfiles-1 !--OB: here we deal with files 7,8,9