Ignore:
Timestamp:
Jun 25, 2015, 2:56:33 PM (9 years ago)
Author:
musat
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/calcul_STDlev.h

    r2271 r2312  
    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.