Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histins.h

    r524 r634  
    1414
    1515         i = NINT(zout/zsto)
    16       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
    17       CALL histwrite(nid_ins,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     16cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
     17      CALL histwrite_phy(nid_ins,"phis",itau_w,pphis)
    1818c
    1919         i = NINT(zout/zsto)
    20       CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
    21       CALL histwrite(nid_ins,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     20cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
     21      CALL histwrite_phy(nid_ins,"aire",itau_w,airephy)
    2222
    2323      DO i = 1, klon
    2424         zx_tmp_fi2d(i) = paprs(i,1)
    2525      ENDDO
    26       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    27       CALL histwrite(nid_ins,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     26cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     27      CALL histwrite_phy(nid_ins,"psol",itau_w,zx_tmp_fi2d)
    2828c
    2929      DO i = 1, klon
    3030         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
    3131      ENDDO
    32       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    33       CALL histwrite(nid_ins,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     32cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     33      CALL histwrite_phy(nid_ins,"precip",itau_w,zx_tmp_fi2d)
    3434c
    3535      DO i = 1, klon
    3636         zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
    3737      ENDDO
    38       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    39       CALL histwrite(nid_ins,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     38cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)   
     39      CALL histwrite_phy(nid_ins,"plul",itau_w,zx_tmp_fi2d)
    4040c
    4141      DO i = 1, klon
    4242         zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
    4343      ENDDO
    44       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    45       CALL histwrite(nid_ins,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     44cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     45      CALL histwrite_phy(nid_ins,"pluc",itau_w,zx_tmp_fi2d)
    4646
    47       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    48       CALL histwrite(nid_ins,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     47cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     48      CALL histwrite_phy(nid_ins,"tsol",itau_w,zxtsol)
    4949cccIM
    50       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
    51       CALL histwrite(nid_ins,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     50cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
     51      CALL histwrite_phy(nid_ins,"t2m",itau_w,zt2m)
    5252c
    53       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
    54       CALL histwrite(nid_ins,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     53cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
     54      CALL histwrite_phy(nid_ins,"q2m",itau_w,zq2m)
    5555c
    56       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
    57       CALL histwrite(nid_ins,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     56cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
     57      CALL histwrite_phy(nid_ins,"u10m",itau_w,zu10m)
    5858C
    59       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
    60       CALL histwrite(nid_ins,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     59cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
     60      CALL histwrite_phy(nid_ins,"v10m",itau_w,zv10m)
    6161c
    62       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    63       CALL histwrite(nid_ins,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     62cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
     63      CALL histwrite_phy(nid_ins,"snow",itau_w,snow_fall)
    6464
    65       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    66       CALL histwrite(nid_ins,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     65cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
     66      CALL histwrite_phy(nid_ins,"cdrm",itau_w,cdragm)
    6767c
    68       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    69       CALL histwrite(nid_ins,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     68cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
     69      CALL histwrite_phy(nid_ins,"cdrh",itau_w,cdragh)
    7070c
    71       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    72       CALL histwrite(nid_ins,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     71cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
     72      CALL histwrite_phy(nid_ins,"topl",itau_w,toplw)
    7373c
    74       CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    75       CALL histwrite(nid_ins,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     74cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
     75      CALL histwrite_phy(nid_ins,"evap",itau_w,evap)
    7676c
    77       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    78       CALL histwrite(nid_ins,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     77cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
     78      CALL histwrite_phy(nid_ins,"sols",itau_w,solsw)
    7979c
    80       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    81       CALL histwrite(nid_ins,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     80cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
     81      CALL histwrite_phy(nid_ins,"soll",itau_w,sollw)
    8282c
    83       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    84       CALL histwrite(nid_ins,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
    85      .                ndex2d)
     83cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
     84      CALL histwrite_phy(nid_ins,"solldown",itau_w,sollwdown)
    8685c
    87       CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    88       CALL histwrite(nid_ins,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     86cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     87      CALL histwrite_phy(nid_ins,"bils",itau_w,bils)
    8988c
    9089      zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
    9190c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    92       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    93       CALL histwrite(nid_ins,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     91cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     92      CALL histwrite_phy(nid_ins,"sens",itau_w,zx_tmp_fi2d)
    9493c
    95       CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    96       CALL histwrite(nid_ins,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     94cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
     95      CALL histwrite_phy(nid_ins,"fder",itau_w,fder)
    9796c
    98       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
    99       CALL histwrite(nid_ins,"dtsvdfo",itau_w,zx_tmp_2d,iim*jjmp1,
    100      .               ndex2d)
     97cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
     98      CALL histwrite_phy(nid_ins,"dtsvdfo",itau_w,d_ts(:,is_oce))
    10199c
    102       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
    103       CALL histwrite(nid_ins,"dtsvdft",itau_w,zx_tmp_2d,iim*jjmp1,
    104      .               ndex2d)
     100cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
     101      CALL histwrite_phy(nid_ins,"dtsvdft",itau_w,d_ts(:,is_ter))
    105102c
    106       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
    107       CALL histwrite(nid_ins,"dtsvdfg",itau_w,zx_tmp_2d,iim*jjmp1,
    108      .               ndex2d)
     103cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
     104      CALL histwrite_phy(nid_ins,"dtsvdfg",itau_w, d_ts(:,is_lic))
    109105c
    110       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
    111       CALL histwrite(nid_ins,"dtsvdfi",itau_w,zx_tmp_2d,iim*jjmp1,
    112      .               ndex2d)
     106cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
     107      CALL histwrite_phy(nid_ins,"dtsvdfi",itau_w,d_ts(:,is_sic))
    113108
    114109      DO nsrf = 1, nbsrf
    115110CXXX
    116111        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    117         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    118         CALL histwrite(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
    119      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     112cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     113        CALL histwrite_phy(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
     114     $      zx_tmp_fi2d)
    120115C
    121116        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    122         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    123         CALL histwrite(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
    124      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     117cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     118        CALL histwrite_phy(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
     119     $      zx_tmp_fi2d)
    125120C
    126121        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    127         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    128         CALL histwrite(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
    129      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     122cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     123        CALL histwrite_phy(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
     124     $      zx_tmp_fi2d)
    130125C
    131126        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    132         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    133         CALL histwrite(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
    134      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     127cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     128        CALL histwrite_phy(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
     129     $      zx_tmp_fi2d)
    135130C
    136131        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    137         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    138         CALL histwrite(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
    139      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     132cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     133        CALL histwrite_phy(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
     134     $      zx_tmp_fi2d)
    140135C     
    141136        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    142         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    143         CALL histwrite(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
    144      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     137cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     138        CALL histwrite_phy(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
     139     $     zx_tmp_fi2d)
    145140C
    146141        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    147         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    148         CALL histwrite(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
    149      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     142cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     143        CALL histwrite_phy(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
     144     $      zx_tmp_fi2d)
    150145C
    151146        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    152         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    153         CALL histwrite(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
    154      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     147cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     148        CALL histwrite_phy(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
     149     $      zx_tmp_fi2d)
    155150C
    156151      END DO 
    157       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    158       CALL histwrite(nid_ins,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    159       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    160       CALL histwrite(nid_ins,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     152cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
     153      CALL histwrite_phy(nid_ins,"albs",itau_w,albsol)
     154     
     155cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
     156      CALL histwrite_phy(nid_ins,"albslw",itau_w,albsollw)
     157
    161158c
    162       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    163       CALL histwrite(nid_ins,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
    164      .               ndex2d)
     159cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
     160      CALL histwrite_phy(nid_ins,"snow_mass",itau_w,zxsnow)
    165161c
    166       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
    167       CALL histwrite(nid_ins,"rugs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     162cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
     163      CALL histwrite_phy(nid_ins,"rugs",itau_w,zxrugs)
    168164c
    169165c Champs 3D:
    170166c
    171       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    172       CALL histwrite(nid_ins,"temp",itau_w,zx_tmp_3d,
    173      .                                   iim*jjmp1*klev,ndex3d)
     167cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     168      CALL histwrite_phy(nid_ins,"temp",itau_w,t_seri)
    174169c
    175       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    176       CALL histwrite(nid_ins,"vitu",itau_w,zx_tmp_3d,
    177      .                                   iim*jjmp1*klev,ndex3d)
     170cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     171      CALL histwrite_phy(nid_ins,"vitu",itau_w,u_seri)
    178172c
    179       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    180       CALL histwrite(nid_ins,"vitv",itau_w,zx_tmp_3d,
    181      .                                   iim*jjmp1*klev,ndex3d)
     173cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     174      CALL histwrite_phy(nid_ins,"vitv",itau_w,v_seri)
    182175c
    183       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    184       CALL histwrite(nid_ins,"geop",itau_w,zx_tmp_3d,
    185      .                                   iim*jjmp1*klev,ndex3d)
     176cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     177      CALL histwrite_phy(nid_ins,"geop",itau_w,zphi)
    186178c
    187       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    188       CALL histwrite(nid_ins,"pres",itau_w,zx_tmp_3d,
    189      .                                   iim*jjmp1*klev,ndex3d)
     179cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     180      CALL histwrite_phy(nid_ins,"pres",itau_w,pplay)
    190181c
    191       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    192       CALL histwrite(nid_ins,"dtvdf",itau_w,zx_tmp_3d,
    193      .                                   iim*jjmp1*klev,ndex3d)
     182cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
     183      CALL histwrite_phy(nid_ins,"dtvdf",itau_w,d_t_vdf)
    194184c
    195       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    196       CALL histwrite(nid_ins,"dqvdf",itau_w,zx_tmp_3d,
    197      .                                   iim*jjmp1*klev,ndex3d)
     185cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
     186      CALL histwrite_phy(nid_ins,"dqvdf",itau_w,d_q_vdf)
    198187
    199188c
Note: See TracChangeset for help on using the changeset viewer.