Ignore:
Timestamp:
Jun 3, 2011, 7:28:17 PM (13 years ago)
Author:
musat
Message:

Ajouts CFMIP2/CMIP5

  • 6eme fichier de sortie "stations" histstn.nc qui necessite 2 fichiers: PARAM/npCFMIP_param.data contenant le nombre de points (120 pour simulations AMIP, 73 pour aqua) PARAM/pointlocations.txt contenat 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

IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/write_histmthNMC.h

    r1398 r1534  
    1414c nout=3 : in=pdtphys,    out=hf
    1515ccc
    16        CALL histwrite_phy(nid_mthnmc,"tnondef",itau_w,tnondef(:,:,1))
     16      CALL histwrite_phy(nid_mthnmc,lNMC,"tnondef",itau_w,
     17     $tnondef(:,:,1))
    1718c
    18        CALL histwrite_phy(nid_mthnmc,"ta",itau_w,twriteSTD(:,:,1))
     19      CALL histwrite_phy(nid_mthnmc,lNMC,"ta",itau_w,
     20     $twriteSTD(:,:,1))
    1921c
    20        CALL histwrite_phy(nid_mthnmc,"zg",itau_w,phiwriteSTD(:,:,1))
     22      CALL histwrite_phy(nid_mthnmc,lNMC,"zg",itau_w,
     23     $phiwriteSTD(:,:,1))
    2124c
    22        CALL histwrite_phy(nid_mthnmc,"hus",itau_w,qwriteSTD(:,:,1))
     25       CALL histwrite_phy(nid_mthnmc,lNMC,"hus",itau_w,
     26     $qwriteSTD(:,:,1))
    2327c
    24        CALL histwrite_phy(nid_mthnmc,"hur",itau_w,rhwriteSTD(:,:,1))
     28       CALL histwrite_phy(nid_mthnmc,lNMC,"hur",itau_w,
     29     $rhwriteSTD(:,:,1))
    2530c
    26        CALL histwrite_phy(nid_mthnmc,"ua",itau_w,uwriteSTD(:,:,1))
     31       CALL histwrite_phy(nid_mthnmc,lNMC,"ua",itau_w,
     32     $uwriteSTD(:,:,1))
    2733c
    28        CALL histwrite_phy(nid_mthnmc,"va",itau_w,vwriteSTD(:,:,1))
     34       CALL histwrite_phy(nid_mthnmc,lNMC,"va",itau_w,
     35     $vwriteSTD(:,:,1))
    2936c
    30        CALL histwrite_phy(nid_mthnmc,"wap",itau_w,wwriteSTD(:,:,1))
     37       CALL histwrite_phy(nid_mthnmc,lNMC,"wap",itau_w,
     38     $wwriteSTD(:,:,1))
    3139c
    3240       DO k=1, nlevSTD
     
    4048       ENDDO !k=1, nlevSTD
    4149c
    42        CALL histwrite_phy(nid_mthnmc,"psbg",itau_w,zx_tmp_fiNC)
     50      CALL histwrite_phy(nid_mthnmc,lNMC,"psbg",itau_w,
     51     $zx_tmp_fiNC)
    4352c
    44        CALL histwrite_phy(nid_mthnmc,"uv",itau_w,uvsumSTD(:,:,1))
     53      CALL histwrite_phy(nid_mthnmc,lNMC,"uv",itau_w,
     54     $uvsumSTD(:,:,1))
    4555c
    46        CALL histwrite_phy(nid_mthnmc,"vq",itau_w,vqsumSTD(:,:,1))
     56      CALL histwrite_phy(nid_mthnmc,lNMC,"vq",itau_w,
     57     $vqsumSTD(:,:,1))
    4758c
    48        CALL histwrite_phy(nid_mthnmc,"vT",itau_w,vTsumSTD(:,:,1))
     59      CALL histwrite_phy(nid_mthnmc,lNMC,"vT",itau_w,
     60     $vTsumSTD(:,:,1))
    4961c
    50        CALL histwrite_phy(nid_mthnmc,"wq",itau_w,wqsumSTD(:,:,1))
     62      CALL histwrite_phy(nid_mthnmc,lNMC,"wq",itau_w,
     63     $wqsumSTD(:,:,1))
    5164c
    52        CALL histwrite_phy(nid_mthnmc,"vphi",itau_w,vphisumSTD(:,:,1))
     65      CALL histwrite_phy(nid_mthnmc,lNMC,"vphi",itau_w,
     66     $vphisumSTD(:,:,1))
    5367c
    54        CALL histwrite_phy(nid_mthnmc,"wT",itau_w,wTsumSTD(:,:,1))
     68       CALL histwrite_phy(nid_mthnmc,lNMC,"wT",itau_w,
     69     $wTsumSTD(:,:,1))
    5570c
    56        CALL histwrite_phy(nid_mthnmc,"uxu",itau_w,u2sumSTD(:,:,1))
     71       CALL histwrite_phy(nid_mthnmc,lNMC,"uxu",itau_w,
     72     $u2sumSTD(:,:,1))
    5773c
    58        CALL histwrite_phy(nid_mthnmc,"vxv",itau_w,v2sumSTD(:,:,1))
     74       CALL histwrite_phy(nid_mthnmc,lNMC,"vxv",itau_w,
     75     $v2sumSTD(:,:,1))
    5976c
    60        CALL histwrite_phy(nid_mthnmc,"TxT",itau_w,T2sumSTD(:,:,1))
     77       CALL histwrite_phy(nid_mthnmc,lNMC,"TxT",itau_w,
     78     $T2sumSTD(:,:,1))
    6179c
    6280       DO k=1, nlevSTD
     
    6987        ENDDO
    7088       ENDDO !k=1, nlevSTD
    71        CALL histwrite_phy(nid_mthnmc,"tro3",itau_w,
     89       CALL histwrite_phy(nid_mthnmc,lNMC,"tro3",itau_w,
    7290     $ zx_tmp_fiNC)
    7391c
     
    83101       ENDDO !k=1, nlevSTD
    84102c
    85         CALL histwrite_phy(nid_mthnmc,"tro3_daylight",itau_w,
    86      $  zx_tmp_fiNC)
     103        CALL histwrite_phy(nid_mthnmc,lNMC,"tro3_daylight",
     104     $itau_w, zx_tmp_fiNC)
    87105       endif
    88106c
Note: See TracChangeset for help on using the changeset viewer.