Ignore:
Timestamp:
Jun 25, 2015, 3:40:53 PM (9 years ago)
Author:
musat
Message:

Corrections missing_value pour compilation en mode debug
JG/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing/libf/phylmd/calcul_STDlev.h

    r2298 r2314  
    66!       missing_val=nf90_fill_real
    77!
     8       IF (.not. ok_all_xml) then
    89        CALL ini_undefSTD(itap,itapm1)
     10       ENDIF
    911!
    1012!IM on interpole les champs sur les niveaux STD de pression
    … …  
    128130!
    129131!IM on somme les valeurs toutes les freq_calNMC secondes
    130 !
    131        CALL undefSTD(itap, read_climoz)
    132 !
    133132!IM on moyenne a la fin du mois, du jour ou toutes les 6h
    134133!
    135        CALL moy_undefSTD(itap,itapm1)
     134       IF (.not. ok_all_xml) then
     135        CALL undefSTD(itap, read_climoz)
     136        CALL moy_undefSTD(itap,itapm1)
     137       ENDIF
    136138!
    137139       CALL plevel(klon,klev,.true.,pplay,50000., &
Note: See TracChangeset for help on using the changeset viewer.