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_histins.h

    r684 r704  
    1111      itau_w = itau_phy + itap
    1212
    13       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
    14       CALL histwrite(nid_ins,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    15 c
    16       CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
    17       CALL histwrite(nid_ins,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     13cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
     14      CALL histwrite_phy(nid_ins,"phis",itau_w,pphis)
     15c
     16cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
     17      CALL histwrite_phy(nid_ins,"aire",itau_w,airephy)
    1818
    1919      DO i = 1, klon
    2020         zx_tmp_fi2d(i) = paprs(i,1)
    2121      ENDDO
    22       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    23       CALL histwrite(nid_ins,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     22cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     23      CALL histwrite_phy(nid_ins,"psol",itau_w,zx_tmp_fi2d)
    2424c
    2525      DO i = 1, klon
    2626         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
    2727      ENDDO
    28       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    29       CALL histwrite(nid_ins,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     28cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     29      CALL histwrite_phy(nid_ins,"precip",itau_w,zx_tmp_fi2d)
    3030c
    3131      DO i = 1, klon
    3232         zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
    3333      ENDDO
    34       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    35       CALL histwrite(nid_ins,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     34cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)   
     35      CALL histwrite_phy(nid_ins,"plul",itau_w,zx_tmp_fi2d)
    3636c
    3737      DO i = 1, klon
    3838         zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
    3939      ENDDO
    40       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    41       CALL histwrite(nid_ins,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    42 
    43       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    44       CALL histwrite(nid_ins,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     40cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     41      CALL histwrite_phy(nid_ins,"pluc",itau_w,zx_tmp_fi2d)
     42
     43cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     44      CALL histwrite_phy(nid_ins,"tsol",itau_w,zxtsol)
    4545cccIM
    46       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
    47       CALL histwrite(nid_ins,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    48 c
    49       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
    50       CALL histwrite(nid_ins,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    51 c
    52       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
    53       CALL histwrite(nid_ins,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    54 C
    55       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
    56       CALL histwrite(nid_ins,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    57 c
    58       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    59       CALL histwrite(nid_ins,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    60 
    61       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    62       CALL histwrite(nid_ins,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    63 c
    64       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    65       CALL histwrite(nid_ins,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    66 c
    67       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    68       CALL histwrite(nid_ins,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    69 c
    70       CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    71       CALL histwrite(nid_ins,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    72 c
    73       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    74       CALL histwrite(nid_ins,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    75 c
    76       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    77       CALL histwrite(nid_ins,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    78 c
    79       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    80       CALL histwrite(nid_ins,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
    81      .                ndex2d)
    82 c
    83       CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    84       CALL histwrite(nid_ins,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     46cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
     47      CALL histwrite_phy(nid_ins,"t2m",itau_w,zt2m)
     48c
     49cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
     50      CALL histwrite_phy(nid_ins,"q2m",itau_w,zq2m)
     51c
     52cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
     53      CALL histwrite_phy(nid_ins,"u10m",itau_w,zu10m)
     54C
     55cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
     56      CALL histwrite_phy(nid_ins,"v10m",itau_w,zv10m)
     57c
     58cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
     59      CALL histwrite_phy(nid_ins,"snow",itau_w,snow_fall)
     60
     61cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
     62      CALL histwrite_phy(nid_ins,"cdrm",itau_w,cdragm)
     63c
     64cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
     65      CALL histwrite_phy(nid_ins,"cdrh",itau_w,cdragh)
     66c
     67cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
     68      CALL histwrite_phy(nid_ins,"topl",itau_w,toplw)
     69c
     70cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
     71      CALL histwrite_phy(nid_ins,"evap",itau_w,evap)
     72c
     73cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
     74      CALL histwrite_phy(nid_ins,"sols",itau_w,solsw)
     75c
     76cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
     77      CALL histwrite_phy(nid_ins,"soll",itau_w,sollw)
     78c
     79cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
     80      CALL histwrite_phy(nid_ins,"solldown",itau_w,sollwdown)
     81c
     82cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     83      CALL histwrite_phy(nid_ins,"bils",itau_w,bils)
    8584c
    8685      zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
    8786c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    88       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    89       CALL histwrite(nid_ins,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    90 c
    91       CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    92       CALL histwrite(nid_ins,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    93 c
    94       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
    95       CALL histwrite(nid_ins,"dtsvdfo",itau_w,zx_tmp_2d,iim*jjmp1,
    96      .               ndex2d)
    97 c
    98       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
    99       CALL histwrite(nid_ins,"dtsvdft",itau_w,zx_tmp_2d,iim*jjmp1,
    100      .               ndex2d)
    101 c
    102       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
    103       CALL histwrite(nid_ins,"dtsvdfg",itau_w,zx_tmp_2d,iim*jjmp1,
    104      .               ndex2d)
    105 c
    106       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
    107       CALL histwrite(nid_ins,"dtsvdfi",itau_w,zx_tmp_2d,iim*jjmp1,
    108      .               ndex2d)
     87cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     88      CALL histwrite_phy(nid_ins,"sens",itau_w,zx_tmp_fi2d)
     89c
     90cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
     91      CALL histwrite_phy(nid_ins,"fder",itau_w,fder)
     92c
     93cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
     94      CALL histwrite_phy(nid_ins,"dtsvdfo",itau_w,d_ts(:,is_oce))
     95c
     96cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
     97      CALL histwrite_phy(nid_ins,"dtsvdft",itau_w,d_ts(:,is_ter))
     98c
     99cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
     100      CALL histwrite_phy(nid_ins,"dtsvdfg",itau_w, d_ts(:,is_lic))
     101c
     102cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
     103      CALL histwrite_phy(nid_ins,"dtsvdfi",itau_w,d_ts(:,is_sic))
    109104
    110105      DO nsrf = 1, nbsrf
    111106CXXX
    112107        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
    113         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    114         CALL histwrite(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
    115      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     108cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     109        CALL histwrite_phy(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
     110     $                zx_tmp_fi2d)
    116111C
    117112        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    118         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    119         CALL histwrite(nid_ins,"fract_"//clnsurf(nsrf),itau_w,
    120      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     113cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     114        CALL histwrite_phy(nid_ins,"fract_"//clnsurf(nsrf),itau_w,
     115     $      zx_tmp_fi2d)
    121116C
    122117        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    123         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    124         CALL histwrite(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
    125      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     118cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     119        CALL histwrite_phy(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
     120     $      zx_tmp_fi2d)
    126121C
    127122        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    128         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    129         CALL histwrite(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
    130      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     123cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     124        CALL histwrite_phy(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
     125     $      zx_tmp_fi2d)
    131126C
    132127        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    133         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    134         CALL histwrite(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
    135      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     128cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     129        CALL histwrite_phy(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
     130     $      zx_tmp_fi2d)
    136131C
    137132        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    138         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    139         CALL histwrite(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
    140      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     133cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     134        CALL histwrite_phy(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
     135     $      zx_tmp_fi2d)
    141136C     
    142137        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    143         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    144         CALL histwrite(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
    145      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     138cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     139        CALL histwrite_phy(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
     140     $     zx_tmp_fi2d)
    146141C
    147142        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    148         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    149         CALL histwrite(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
    150      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     143cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     144        CALL histwrite_phy(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
     145     $      zx_tmp_fi2d)
    151146C
    152147        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    153         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    154         CALL histwrite(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
    155      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     148cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     149        CALL histwrite_phy(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
     150     $      zx_tmp_fi2d)
    156151C
    157152      END DO 
    158       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    159       CALL histwrite(nid_ins,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    160       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    161       CALL histwrite(nid_ins,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     153cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
     154      CALL histwrite_phy(nid_ins,"albs",itau_w,albsol)
     155     
     156cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
     157      CALL histwrite_phy(nid_ins,"albslw",itau_w,albsollw)
     158
    162159c
    163160cIM: 140404   CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    164161c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d)
    165 c     CALL histwrite(nid_ins,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
     162c     CALL histwrite_phy(nid_ins,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
    166163c    .               ndex2d)
    167164c
    168       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
    169       CALL histwrite(nid_ins,"rugs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     165cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
     166      CALL histwrite_phy(nid_ins,"rugs",itau_w,zxrugs)
    170167c
    171168cIM cf. AM 081204 BEG
    … …  
    174171c
    175172c
    176       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d)
    177       CALL histwrite(nid_ins,"s_pblh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    178 c
    179       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d)
    180       CALL histwrite(nid_ins,"s_pblt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    181 c
    182       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d)
    183       CALL histwrite(nid_ins,"s_lcl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    184 c
    185       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d)
    186       CALL histwrite(nid_ins,"s_capCL",itau_w,zx_tmp_2d,iim*jjmp1,
    187      .               ndex2d)
    188 c
    189       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d)
    190       CALL histwrite(nid_ins,"s_oliqCL",itau_w,zx_tmp_2d,iim*jjmp1,
    191      .               ndex2d)
    192 c
    193       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d)
    194       CALL histwrite(nid_ins,"s_cteiCL",itau_w,zx_tmp_2d,iim*jjmp1,
    195      .               ndex2d)
    196 c
    197       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d)
    198       CALL histwrite(nid_ins,"s_therm",itau_w,zx_tmp_2d,iim*jjmp1,
    199      .               ndex2d)
    200 c
    201       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d)
    202       CALL histwrite(nid_ins,"s_trmb1",itau_w,zx_tmp_2d,iim*jjmp1,
    203      .               ndex2d)
    204 c
    205       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d)
    206       CALL histwrite(nid_ins,"s_trmb2",itau_w,zx_tmp_2d,iim*jjmp1,
    207      .               ndex2d)
    208 c
    209       CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d)
    210       CALL histwrite(nid_ins,"s_trmb3",itau_w,zx_tmp_2d,iim*jjmp1,
    211      .               ndex2d)
     173cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblh,zx_tmp_2d)
     174      CALL histwrite_phy(nid_ins,"s_pblh",itau_w,s_pblh)
     175c
     176cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_pblt,zx_tmp_2d)
     177      CALL histwrite_phy(nid_ins,"s_pblt",itau_w,s_pblt)
     178c
     179cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_lcl,zx_tmp_2d)
     180      CALL histwrite_phy(nid_ins,"s_lcl",itau_w,s_lcl)
     181c
     182cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_capCL,zx_tmp_2d)
     183      CALL histwrite_phy(nid_ins,"s_capCL",itau_w,s_capCL)
     184c
     185cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_oliqCL,zx_tmp_2d)
     186      CALL histwrite_phy(nid_ins,"s_oliqCL",itau_w,s_oliqCL)
     187c
     188cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_cteiCL,zx_tmp_2d)
     189      CALL histwrite_phy(nid_ins,"s_cteiCL",itau_w,s_cteiCL)
     190c
     191cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_therm,zx_tmp_2d)
     192      CALL histwrite_phy(nid_ins,"s_therm",itau_w,s_therm)
     193c
     194cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb1,zx_tmp_2d)
     195      CALL histwrite_phy(nid_ins,"s_trmb1",itau_w,s_trmb1)
     196c
     197cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb2,zx_tmp_2d)
     198      CALL histwrite_phy(nid_ins,"s_trmb2",itau_w,s_trmb2)
     199c
     200cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, s_trmb3,zx_tmp_2d)
     201      CALL histwrite_phy(nid_ins,"s_trmb3",itau_w,s_trmb3)
    212202c
    213203cIM cf. AM 081204 END
    … …  
    215205c Champs 3D:
    216206c
    217       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    218       CALL histwrite(nid_ins,"temp",itau_w,zx_tmp_3d,
    219      .                                   iim*jjmp1*klev,ndex3d)
    220 c
    221       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    222       CALL histwrite(nid_ins,"vitu",itau_w,zx_tmp_3d,
    223      .                                   iim*jjmp1*klev,ndex3d)
    224 c
    225       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    226       CALL histwrite(nid_ins,"vitv",itau_w,zx_tmp_3d,
    227      .                                   iim*jjmp1*klev,ndex3d)
    228 c
    229       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    230       CALL histwrite(nid_ins,"geop",itau_w,zx_tmp_3d,
    231      .                                   iim*jjmp1*klev,ndex3d)
    232 c
    233       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    234       CALL histwrite(nid_ins,"pres",itau_w,zx_tmp_3d,
    235      .                                   iim*jjmp1*klev,ndex3d)
    236 c
    237       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    238       CALL histwrite(nid_ins,"dtvdf",itau_w,zx_tmp_3d,
    239      .                                   iim*jjmp1*klev,ndex3d)
    240 c
    241       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    242       CALL histwrite(nid_ins,"dqvdf",itau_w,zx_tmp_3d,
    243      .                                   iim*jjmp1*klev,ndex3d)
     207cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     208      CALL histwrite_phy(nid_ins,"temp",itau_w,t_seri)
     209c
     210cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     211      CALL histwrite_phy(nid_ins,"vitu",itau_w,u_seri)
     212c
     213cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     214      CALL histwrite_phy(nid_ins,"vitv",itau_w,v_seri)
     215c
     216cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     217      CALL histwrite_phy(nid_ins,"geop",itau_w,zphi)
     218c
     219cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     220      CALL histwrite_phy(nid_ins,"pres",itau_w,pplay)
     221c
     222cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
     223      CALL histwrite_phy(nid_ins,"dtvdf",itau_w,d_t_vdf)
     224c
     225cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
     226      CALL histwrite_phy(nid_ins,"dqvdf",itau_w,d_q_vdf)
    244227
    245228c
Note: See TracChangeset for help on using the changeset viewer.