Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/phylmd/write_bilKP_ave.h

    r644 r704  
    1111      itau_w = itau_phy + itap
    1212c
    13       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
    14       CALL histwrite(nid_bilKPave,"ue",itau_w,zx_tmp_3d,
    15      .               iim*jjmp1*klev,ndex3d)
     13cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
     14      CALL histwrite_phy(nid_bilKPave,"ue",itau_w,ue_lay)
    1615c
    17       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
    18       CALL histwrite(nid_bilKPave,"ve",itau_w,zx_tmp_3d,
    19      .               iim*jjmp1*klev,ndex3d)
     16cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
     17      CALL histwrite_phy(nid_bilKPave,"ve",itau_w,ve_lay)
    2018c
    21       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
    22       CALL histwrite(nid_bilKPave,"uq",itau_w,zx_tmp_3d,
    23      .               iim*jjmp1*klev,ndex3d)
     19cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
     20      CALL histwrite_phy(nid_bilKPave,"uq",itau_w,uq_lay)
    2421c
    25       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
    26       CALL histwrite(nid_bilKPave,"vq",itau_w,zx_tmp_3d,
    27      .               iim*jjmp1*klev,ndex3d)
     22cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
     23      CALL histwrite_phy(nid_bilKPave,"vq",itau_w,vq_lay)
    2824c
    2925c Champs 3D:
    3026C
    31       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    32       CALL histwrite(nid_bilKPave,"temp",itau_w,zx_tmp_3d,
    33      .                                   iim*jjmp1*klev,ndex3d)
     27cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     28      CALL histwrite_phy(nid_bilKPave,"temp",itau_w,t_seri)
    3429c
    35       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    36       CALL histwrite(nid_bilKPave,"ovap",itau_w,zx_tmp_3d,
    37      .                                   iim*jjmp1*klev,ndex3d)
     30cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
     31      CALL histwrite_phy(nid_bilKPave,"ovap",itau_w,qx(:,:,ivap))
    3832c
    39       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    40       CALL histwrite(nid_bilKPave,"geop",itau_w,zx_tmp_3d,
    41      .                                   iim*jjmp1*klev,ndex3d)
     33cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     34      CALL histwrite_phy(nid_bilKPave,"geop",itau_w,zphi)
    4235c
    43       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    44       CALL histwrite(nid_bilKPave,"vitu",itau_w,zx_tmp_3d,
    45      .                                   iim*jjmp1*klev,ndex3d)
     36cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     37      CALL histwrite_phy(nid_bilKPave,"vitu",itau_w,u_seri)
    4638c
    47       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    48       CALL histwrite(nid_bilKPave,"vitv",itau_w,zx_tmp_3d,
    49      .                                   iim*jjmp1*klev,ndex3d)
     39cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     40      CALL histwrite_phy(nid_bilKPave,"vitv",itau_w,v_seri)
    5041c
    51       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    52       CALL histwrite(nid_bilKPave,"vitw",itau_w,zx_tmp_3d,
    53      .                                   iim*jjmp1*klev,ndex3d)
     42cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
     43      CALL histwrite_phy(nid_bilKPave,"vitw",itau_w,omega)
    5444c
    55       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    56       CALL histwrite(nid_bilKPave,"pres",itau_w,zx_tmp_3d,
    57      .                                   iim*jjmp1*klev,ndex3d)
     45cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     46      CALL histwrite_phy(nid_bilKPave,"pres",itau_w,pplay)
    5847c
    59       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
    60       CALL histwrite(nid_bilKPave,"play",itau_w,zx_tmp_3d,
    61      .                                   iim*jjmp1*klev,ndex3d)
     48cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
     49      CALL histwrite_phy(nid_bilKPave,"play",itau_w,paprs)
    6250c
    63       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
    64       CALL histwrite(nid_bilKPave,"oliq",itau_w,zx_tmp_3d,
    65      .                                   iim*jjmp1*klev,ndex3d)
     51cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
     52      CALL histwrite_phy(nid_bilKPave,"oliq",itau_w,cldliq)
    6653c
    67       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
    68       CALL histwrite(nid_bilKPave,"dtdyn",itau_w,zx_tmp_3d,
    69      .                                   iim*jjmp1*klev,ndex3d)
     54cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
     55      CALL histwrite_phy(nid_bilKPave,"dtdyn",itau_w,d_t_dyn)
    7056c
    71       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
    72       CALL histwrite(nid_bilKPave,"dqdyn",itau_w,zx_tmp_3d,
    73      .                                   iim*jjmp1*klev,ndex3d)
     57cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
     58      CALL histwrite_phy(nid_bilKPave,"dqdyn",itau_w,d_q_dyn)
    7459c
    75       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
    76       CALL histwrite(nid_bilKPave,"dtcon",itau_w,zx_tmp_3d,
    77      .                                   iim*jjmp1*klev,ndex3d)
     60cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
     61      CALL histwrite_phy(nid_bilKPave,"dtcon",itau_w,d_t_con)
    7862c
    79       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
    80       CALL histwrite(nid_bilKPave,"ducon",itau_w,zx_tmp_3d,
    81      .                                   iim*jjmp1*klev,ndex3d)
     63cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
     64      CALL histwrite_phy(nid_bilKPave,"ducon",itau_w,d_u_con)
    8265c
    83       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
    84       CALL histwrite(nid_bilKPave,"dvcon",itau_w,zx_tmp_3d,
    85      .                                   iim*jjmp1*klev,ndex3d)
     66cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
     67      CALL histwrite_phy(nid_bilKPave,"dvcon",itau_w,d_v_con)
    8668c
    87       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
    88       CALL histwrite(nid_bilKPave,"dqcon",itau_w,zx_tmp_3d,
    89      .                                   iim*jjmp1*klev,ndex3d)
     69cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
     70      CALL histwrite_phy(nid_bilKPave,"dqcon",itau_w,d_q_con)
    9071c
    91       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
    92       CALL histwrite(nid_bilKPave,"dtlsc",itau_w,zx_tmp_3d,
    93      .                                   iim*jjmp1*klev,ndex3d)
     72cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
     73      CALL histwrite_phy(nid_bilKPave,"dtlsc",itau_w,d_t_lsc)
    9474c
    95       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
    96       CALL histwrite(nid_bilKPave,"dqlsc",itau_w,zx_tmp_3d,
    97      .                                   iim*jjmp1*klev,ndex3d)
     75cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
     76      CALL histwrite_phy(nid_bilKPave,"dqlsc",itau_w,d_q_lsc)
    9877c
    99       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    100       CALL histwrite(nid_bilKPave,"dtvdf",itau_w,zx_tmp_3d,
    101      .                                   iim*jjmp1*klev,ndex3d)
     78cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
     79      CALL histwrite_phy(nid_bilKPave,"dtvdf",itau_w,d_t_vdf)
    10280c
    103       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    104       CALL histwrite(nid_bilKPave,"dqvdf",itau_w,zx_tmp_3d,
    105      .                                   iim*jjmp1*klev,ndex3d)
     81cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
     82      CALL histwrite_phy(nid_bilKPave,"dqvdf",itau_w,d_q_vdf)
    10683c
    107       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
    108       CALL histwrite(nid_bilKPave,"dtajs",itau_w,zx_tmp_3d,
    109      .                                   iim*jjmp1*klev,ndex3d)
     84cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
     85      CALL histwrite_phy(nid_bilKPave,"dtajs",itau_w,d_t_ajs)
    11086c
    111       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
    112       CALL histwrite(nid_bilKPave,"dqajs",itau_w,zx_tmp_3d,
    113      .                                   iim*jjmp1*klev,ndex3d)
     87cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
     88      CALL histwrite_phy(nid_bilKPave,"dqajs",itau_w,d_q_ajs)
    11489c
    115       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
    116       CALL histwrite(nid_bilKPave,"dteva",itau_w,zx_tmp_3d,
    117      .                                   iim*jjmp1*klev,ndex3d)
     90cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
     91      CALL histwrite_phy(nid_bilKPave,"dteva",itau_w,d_t_eva)
    11892c
    119       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
    120       CALL histwrite(nid_bilKPave,"dqeva",itau_w,zx_tmp_3d,
    121      .                                   iim*jjmp1*klev,ndex3d)
     93cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
     94      CALL histwrite_phy(nid_bilKPave,"dqeva",itau_w,d_q_eva)
    12295c
    123       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
    124       CALL histwrite(nid_bilKPave,"dtswr",itau_w,zx_tmp_3d,
    125      .                                   iim*jjmp1*klev,ndex3d)
     96cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
     97      CALL histwrite_phy(nid_bilKPave,"dtswr",itau_w,heat)
    12698c
    127       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
    128       CALL histwrite(nid_bilKPave,"dtsw0",itau_w,zx_tmp_3d,
    129      .                                   iim*jjmp1*klev,ndex3d)
     99cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
     100      CALL histwrite_phy(nid_bilKPave,"dtsw0",itau_w,heat0)
    130101c
    131       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
    132       CALL histwrite(nid_bilKPave,"dtlwr",itau_w,zx_tmp_3d,
    133      .                                   iim*jjmp1*klev,ndex3d)
     102cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
     103      CALL histwrite_phy(nid_bilKPave,"dtlwr",itau_w,cool)
    134104c
    135       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
    136       CALL histwrite(nid_bilKPave,"dtlw0",itau_w,zx_tmp_3d,
    137      .                                   iim*jjmp1*klev,ndex3d)
     105cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
     106      CALL histwrite_phy(nid_bilKPave,"dtlw0",itau_w,cool0)
    138107c
    139       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
    140       CALL histwrite(nid_bilKPave,"duvdf",itau_w,zx_tmp_3d,
    141      .                                   iim*jjmp1*klev,ndex3d)
     108cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
     109      CALL histwrite_phy(nid_bilKPave,"duvdf",itau_w,d_u_vdf)
    142110c
    143       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
    144       CALL histwrite(nid_bilKPave,"dvvdf",itau_w,zx_tmp_3d,
    145      .                                   iim*jjmp1*klev,ndex3d)
     111cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
     112      CALL histwrite_phy(nid_bilKPave,"dvvdf",itau_w,d_v_vdf)
    146113c
    147114      IF (ok_orodr) THEN
    … …  
    155122      ENDDO
    156123c
    157       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
    158       CALL histwrite(nid_bilKPave,"duoli",itau_w,zx_tmp_3d,
    159      .                                   iim*jjmp1*klev,ndex3d)
     124cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
     125      CALL histwrite_phy(nid_bilKPave,"duoli",d_u_oli)
    160126c
    161       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
    162       CALL histwrite(nid_bilKPave,"dvoli",itau_w,zx_tmp_3d,
    163      .                                   iim*jjmp1*klev,ndex3d)
     127cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
     128      CALL histwrite_phy(nid_bilKPave,"dvoli",itau_w,d_v_oli)
    164129c
    165130      ENDIF
    166131      ENDIF
    167132C
    168       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
    169       CALL histwrite(nid_bilKPave,"duphy",itau_w,zx_tmp_3d,
    170      .                                   iim*jjmp1*klev,ndex3d)
     133cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
     134      CALL histwrite_phy(nid_bilKPave,"duphy",itau_w,d_u)
    171135c
    172       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
    173       CALL histwrite(nid_bilKPave,"dvphy",itau_w,zx_tmp_3d,
    174      .                                   iim*jjmp1*klev,ndex3d)
     136cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
     137      CALL histwrite_phy(nid_bilKPave,"dvphy",itau_w,d_v)
    175138c
    176       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
    177       CALL histwrite(nid_bilKPave,"dtphy",itau_w,zx_tmp_3d,
    178      .                                   iim*jjmp1*klev,ndex3d)
     139cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
     140      CALL histwrite_phy(nid_bilKPave,"dtphy",itau_w,d_t)
    179141c
    180       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1),
    181      .zx_tmp_3d)
    182       CALL histwrite(nid_bilKPave,"dqphy",itau_w,zx_tmp_3d,
    183      .                                   iim*jjmp1*klev,ndex3d)
     142cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1),
     143cymf     .zx_tmp_3d)
     144      CALL histwrite_phy(nid_bilKPave,"dqphy",itau_w,d_qx(:,:,1))
    184145c
    185       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2),
    186      .zx_tmp_3d)
    187       CALL histwrite(nid_bilKPave,"dqlphy",itau_w,zx_tmp_3d,
    188      .                                   iim*jjmp1*klev,ndex3d)
     146cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2),
     147cym     .zx_tmp_3d)
     148      CALL histwrite_phy(nid_bilKPave,"dqlphy",itau_w,d_qx(:,:,2))
    189149c
    190150C
Note: See TracChangeset for help on using the changeset viewer.