Changeset 1842 for LMDZ5/trunk


Ignore:
Timestamp:
Aug 19, 2013, 11:49:32 AM (11 years ago)
Author:
idelkadi
Message:

Augmentation du niveau de sorties par defaut pour certaines champs (LWdownOR, SWdownOR, SWnetOR, ustar, aireTER, contfracOR)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r1828 r1842  
    3535        'contfracATM', '% sfce ter+lic', '-', &
    3636       (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /))
    37   TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1,  1, 10, 10, 10, 11, 11, 11 /), &
     37  TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1,  10, 10, 10, 10, 11, 11, 11 /), &
    3838        'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 9) /))
    39   TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 1, 10, 10, 10, 11, 11, 11 /), &
     39  TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
    4040        'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 9) /))
    4141
     
    7575  TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
    7676        'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 9) /))
    77   TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
     77  TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 /), &
    7878        'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 9) /))
    7979  TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
     
    673673      (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &
    674674         't_max(X)', "t_max(X)", "t_max(X)", "t_max(X)" /))
    675   TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 2, 10, 10, 10, 11, 11, 11 /), &
     675  TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
    676676        'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
    677   TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 2, 10, 10, 10, 11, 11, 11 /), &
     677  TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
    678678        'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
    679   TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 2, 10, 10, 10, 11, 11, 11 /), &
     679  TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
    680680        'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
    681681  TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
Note: See TracChangeset for help on using the changeset viewer.