Ignore:
Timestamp:
Jun 9, 2011, 12:13:33 AM (13 years ago)
Author:
musat
Message:

Ajouts CFMIP2/CMIP5

  • 6eme fichier de sortie "stations" histstn.nc qui necessite 2 fichiers (voir DefLists?): npCFMIP_param.data(_*) contenant le nombre de points (120 pour simulations AMIP, 73 pour aqua) pointlocations.txt(_*) contenant le numero, les coordonnees (lon,lat) et le nom de chaque station
  • flag LOGICAL dans tous les appels histwrite_phy pour pouvoir sortir le fichier histstn.nc

NB: 1) les flags de type phys_ que l'on met dans le physiq.def_L* pour ajouter plus de sorties

necessitent dorenavant 6 valeurs, la 6eme correspondant au fichier histstn.nc

2) par defaut le fichier histstn.nc ne sort pas; pour le sortir ajouter les lignes suivantes

dans physiq.def_L*

### Type de fichier : global (n) ou stations (y)
phys_out_filestations = n n n n n y

  • introduction de 2 jeux de flags pour les taux des GES; taux actuels avec suffixes _act, taux futurs avec "_per" avec 2 appels au rayonnement si taux "_per" different des taux "_act" (utiles pour diags. CFMIP 4CO2)
  • flags "betaCRF" pour calculs CRF pour experiences sensibilite proprietes optiques eau liquide nuageuse avec initialisations par defaut; sinon besoin de fichier beta_crf.data

Ajout flag LOGICAL lCOSP necessaire pour sortir un fichier stations
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/write_histhfNMC.h

    r1398 r1539  
    1414c nout=3 : in=pdtphys,    out=hf
    1515ccc
    16        CALL histwrite_phy(nid_hfnmc,"tnondef",itau_w,tnondef(:,:,3))
     16      CALL histwrite_phy(nid_hfnmc,lNMC,"tnondef",itau_w,
     17     $tnondef(:,:,3))
    1718c
    18        CALL histwrite_phy(nid_hfnmc,"ta",itau_w,twriteSTD3)
     19       CALL histwrite_phy(nid_hfnmc,lNMC,"ta",itau_w,
     20     $twriteSTD3)
    1921c
    20        CALL histwrite_phy(nid_hfnmc,"zg",itau_w,phiwriteSTD3)
     22       CALL histwrite_phy(nid_hfnmc,lNMC,"zg",itau_w,
     23     $phiwriteSTD3)
    2124c
    22        CALL histwrite_phy(nid_hfnmc,"hus",itau_w,qwriteSTD3)
     25       CALL histwrite_phy(nid_hfnmc,lNMC,"hus",itau_w,
     26     $qwriteSTD3)
    2327c
    24        CALL histwrite_phy(nid_hfnmc,"hur",itau_w,rhwriteSTD3)
     28       CALL histwrite_phy(nid_hfnmc,lNMC,"hur",itau_w,
     29     $rhwriteSTD3)
    2530c
    26        CALL histwrite_phy(nid_hfnmc,"ua",itau_w,uwriteSTD3)
     31       CALL histwrite_phy(nid_hfnmc,lNMC,"ua",itau_w,
     32     $uwriteSTD3)
    2733c
    28        CALL histwrite_phy(nid_hfnmc,"va",itau_w,vwriteSTD3)
     34       CALL histwrite_phy(nid_hfnmc,lNMC,"va",itau_w,
     35     $vwriteSTD3)
    2936c
    30        CALL histwrite_phy(nid_hfnmc,"wap",itau_w,wwriteSTD3)
     37       CALL histwrite_phy(nid_hfnmc,lNMC,"wap",itau_w,
     38     $wwriteSTD3)
     39c
     40       IF (1.EQ.0) THEN
    3141c
    3242       DO k=1, nlevSTD
    … …  
    4050       ENDDO !k=1, nlevSTD
    4151c
    42        CALL histwrite_phy(nid_hfnmc,"psbg",itau_w,zx_tmp_fiNC)
     52       CALL histwrite_phy(nid_hfnmc,lNMC,"psbg",itau_w,
     53     $zx_tmp_fiNC)
    4354c
    44        CALL histwrite_phy(nid_hfnmc,"uv",itau_w,uvsumSTD(:,:,3))
     55       CALL histwrite_phy(nid_hfnmc,lNMC,"uv",itau_w,
     56     $uvsumSTD(:,:,3))
    4557c
    46        CALL histwrite_phy(nid_hfnmc,"vq",itau_w,vqsumSTD(:,:,3))
     58       CALL histwrite_phy(nid_hfnmc,lNMC,"vq",itau_w,
     59     $vqsumSTD(:,:,3))
    4760c
    48        CALL histwrite_phy(nid_hfnmc,"vT",itau_w,vTsumSTD(:,:,3))
     61       CALL histwrite_phy(nid_hfnmc,lNMC,"vT",itau_w,
     62     $vTsumSTD(:,:,3))
    4963c
    50        CALL histwrite_phy(nid_hfnmc,"wq",itau_w,wqsumSTD(:,:,3))
     64       CALL histwrite_phy(nid_hfnmc,lNMC,"wq",itau_w,
     65     $wqsumSTD(:,:,3))
    5166c
    52        CALL histwrite_phy(nid_hfnmc,"vphi",itau_w,vphisumSTD(:,:,3))
     67      CALL histwrite_phy(nid_hfnmc,lNMC,"vphi",itau_w,
     68     $vphisumSTD(:,:,3))
    5369c
    54        CALL histwrite_phy(nid_hfnmc,"wT",itau_w,wTsumSTD(:,:,3))
     70       CALL histwrite_phy(nid_hfnmc,lNMC,"wT",itau_w,
     71     $wTsumSTD(:,:,3))
    5572c
    56        CALL histwrite_phy(nid_hfnmc,"uxu",itau_w,u2sumSTD(:,:,3))
     73       CALL histwrite_phy(nid_hfnmc,lNMC,"uxu",itau_w,
     74     $u2sumSTD(:,:,3))
    5775c
    58        CALL histwrite_phy(nid_hfnmc,"vxv",itau_w,v2sumSTD(:,:,3))
     76       CALL histwrite_phy(nid_hfnmc,lNMC,"vxv",itau_w,
     77     $v2sumSTD(:,:,3))
    5978c
    60        CALL histwrite_phy(nid_hfnmc,"TxT",itau_w,T2sumSTD(:,:,3))
     79       CALL histwrite_phy(nid_hfnmc,lNMC,"TxT",itau_w,
     80     $T2sumSTD(:,:,3))
    6181c
    62 c     ENDIF !type_run
     82       ENDIF !(1.EQ.0) THEN
    6383c
    6484      if (ok_sync) then
Note: See TracChangeset for help on using the changeset viewer.