Changeset 3748

Timestamp:

Jul 5, 2020, 2:48:27 PM (4 years ago)

Author:

oboucher

Message:

Correcting initialisation of missing_val for the computation of wind100m
Then other initialisations lower down in the code are removed.

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -460 +460 @@
 #endif
 
+#ifndef CPP_XIOS
+    missing_val=missing_val_nf90
+#endif
+
     IF (.NOT.vars_defined) THEN
       kmax_100m=1
@@ -699 +703 @@
 
        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
@@ -1189 +1192 @@
        ! 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
@@ -2168 +2170 @@
        ! 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