Changeset 3748 for LMDZ6


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3702 r3748  
    460460#endif
    461461
     462#ifndef CPP_XIOS
     463    missing_val=missing_val_nf90
     464#endif
     465
    462466    IF (.NOT.vars_defined) THEN
    463467      kmax_100m=1
     
    699703
    700704       IF (vars_defined) THEN
    701           missing_val=missing_val_nf90
    702705          DO k = 1, kmax_100m                                      !--we could stop much lower
    703706            zrho(:) = pplay(:,k)/t_seri(:,k)/RD                    ! air density in kg/m3
     
    11891192       ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
    11901193       ! Champs interpolles sur des niveaux de pression
    1191        missing_val=missing_val_nf90
    11921194       DO iff=1, nfiles
    11931195          ll=0
     
    21682170       ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
    21692171       ! Champs interpolles sur des niveaux de pression
    2170        missing_val=missing_val_nf90
    21712172       DO iff=7, nfiles-1 !--OB: here we deal with files 7,8,9
    21722173
Note: See TracChangeset for help on using the changeset viewer.