Ignore:
Timestamp:
Jun 4, 2007, 4:34:47 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/write_bilKP_ins.h

    r644 r766  
    1 c
     1 c
    22c $Header$
    33c
    … …  
    1111c Champs 3D:
    1212c
    13       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
    14       CALL histwrite(nid_bilKPins,"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_bilKPins,"ue",itau_w,ue_lay)
    1615c
    17       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
    18       CALL histwrite(nid_bilKPins,"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_bilKPins,"ve",itau_w,ve_lay)
    2018c
    21       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
    22       CALL histwrite(nid_bilKPins,"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_bilKPins,"uq",itau_w,uq_lay)
    2421c
    25       CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
    26       CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"ovap",itau_w,qx(:,:,ivap))
    3832c
    39       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    40       CALL histwrite(nid_bilKPins,"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_bilKPins,"geop",itau_w,zphi)
    4235c
    43       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    44       CALL histwrite(nid_bilKPins,"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_bilKPins,"vitu",itau_w,u_seri)
    4638c
    47       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    48       CALL histwrite(nid_bilKPins,"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_bilKPins,"vitv",itau_w,v_seri)
    5041c
    51       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    52       CALL histwrite(nid_bilKPins,"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_bilKPins,"vitw",itau_w,omega)
    5444c
    55       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    56       CALL histwrite(nid_bilKPins,"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_bilKPins,"pres",itau_w,pplay)
    5847c
    59       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
    60       CALL histwrite(nid_bilKPins,"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_bilKPins,"play",itau_w,paprs)
    6250c
    63       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
    64       CALL histwrite(nid_bilKPins,"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_bilKPins,"oliq",itau_w,cldliq)
    6653c
    67       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
    68       CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"dqeva",itau_w,d_q_eva)
    12295c
    123       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
    124       CALL histwrite(nid_bilKPins,"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_bilKPins,"dtswr",itau_w,heat)
    12698c
    127       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
    128       CALL histwrite(nid_bilKPins,"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_bilKPins,"dtsw0",itau_w,heat0)
    130101c
    131       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
    132       CALL histwrite(nid_bilKPins,"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_bilKPins,"dtlwr",itau_w,cool)
    134104c
    135       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
    136       CALL histwrite(nid_bilKPins,"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_bilKPins,"dtlw0",itau_w,cool0)
    138107c
    139       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
    140       CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"duoli",itau_w,d_u_oli)
    160126c
    161       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
    162       CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"duphy",itau_w,d_u)
    171135c
    172       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
    173       CALL histwrite(nid_bilKPins,"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_bilKPins,"dvphy",itau_w,d_v)
    175138c
    176       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
    177       CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"dqphy",itau_w,zx_tmp_3d,
    183      .                                   iim*jjmp1*klev,ndex3d)
     142cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1),
     143cym     .zx_tmp_3d)
     144      CALL histwrite_phy(nid_bilKPins,"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_bilKPins,"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_bilKPins,"dqlphy",itau_w,d_qx(:,:,2))
    189149c
    190150cIM 280405 BEG
    … …  
    201161       IF(bb2.EQ."850") THEN
    202162c
    203         CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,1),zx_tmp_2d)
    204         CALL histwrite(nid_bilKPins,"u"//bb2,itau_w,zx_tmp_2d,
    205      $       iim*jjmp1,ndex2d)
     163cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,1),zx_tmp_2d)
     164        CALL histwrite_phy(nid_bilKPins,"u"//bb2,itau_w,usumSTD(:,k,1))
    206165c
    207         CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,1),zx_tmp_2d)
    208         CALL histwrite(nid_bilKPins,"v"//bb2,itau_w,zx_tmp_2d,
    209      $       iim*jjmp1,ndex2d)
     166cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,1),zx_tmp_2d)
     167        CALL histwrite_phy(nid_bilKPins,"v"//bb2,itau_w,vsumSTD(:,k,1))
    210168c
    211169       ENDIF !(bb2.EQ."850")
Note: See TracChangeset for help on using the changeset viewer.