Changeset 895 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Feb 6, 2008, 12:45:49 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Un peu de menage sur les fichiers de sortie apres les tests aquaplanete FH
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r890 r895  
    8383     .                t2maxcels, zstophy,zout)
    8484c
    85          CALL histdef(nid_day, "plul", "Large-scale Precip.",
    86      .   "kg/(s*m2)",
    87      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    88      .                "ave(X)", zstophy,zout)
     85!        CALL histdef(nid_day, "plul", "Large-scale Precip.",
     86!    .   "kg/(s*m2)",
     87!    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     88!    .                "ave(X)", zstophy,zout)
    8989c
    9090         CALL histdef(nid_day, "pluc", "Convective Precip.",

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

    r890 r895  
    3434     .                 klev, presnivs/100., nvert)
    3535c
    36          CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
    37      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    38      .                "ave(X)", zstophy,zout)
    39 
    40          CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
    41      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    42      .                "ave(X)", zstophy,zout)
     36!        CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
     37!    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     38!    .                "ave(X)", zstophy,zout)
     39!
     40!        CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
     41!    .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     42!    .                "ave(X)", zstophy,zout)
    4343c
    4444      IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN

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

    r890 r895  
    329329      CALL histwrite_phy(nid_day,"rhum",itau_w,zx_rh)
    330330
    331       CALL histwrite_phy(nid_day,"wh",itau_w,wake_h)
    332 c
    333       CALL histwrite_phy(nid_day,"ws",itau_w,wake_s)
    334 c
    335       CALL histwrite_phy(nid_day,"cin",itau_w,cin)
    336 
    337       CALL histwrite_phy(nid_day,"wale",itau_w,ale_wake)
    338 c
    339       CALL histwrite_phy(nid_day,"walp",itau_w,alp_wake)
    340 c
    341       CALL histwrite_phy(nid_day,"blale",itau_w,Ale_bl)
    342 c
    343       CALL histwrite_phy(nid_day,"blalp",itau_w,Alp_bl)
    344 
    345331cFin Wake parameters 2D     
    346332c Wake parameters 3D
    … …  
    348334          print*,'SSS test2'
    349335c  if (1.eq.0) then
    350       CALL histwrite_phy(nid_day,"wdt1",itau_w,wake_deltat(:,1))
    351 c
    352       CALL histwrite_phy(nid_day,"wdq1",itau_w,wake_deltaq(:,1))
    353 c
    354336
    355337c
    … …  
    598580          CALL histwrite_phy(nid_day,"cape",itau_w,cape)
    599581c
     582      CALL histwrite_phy(nid_day,"wh",itau_w,wake_h)
     583c
     584      CALL histwrite_phy(nid_day,"ws",itau_w,wake_s)
     585c
     586      CALL histwrite_phy(nid_day,"cin",itau_w,cin)
     587
     588      CALL histwrite_phy(nid_day,"wale",itau_w,ale_wake)
     589c
     590      CALL histwrite_phy(nid_day,"walp",itau_w,alp_wake)
     591c
     592      CALL histwrite_phy(nid_day,"blale",itau_w,Ale_bl)
     593c
     594      CALL histwrite_phy(nid_day,"blalp",itau_w,Alp_bl)
     595
     596      CALL histwrite_phy(nid_day,"wdt1",itau_w,wake_deltat(:,1))
     597c
     598      CALL histwrite_phy(nid_day,"wdq1",itau_w,wake_deltaq(:,1))
     599c
     600
    600601      zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys
    601602cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)

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

    r890 r895  
    1717c
    1818
    19 cIM: 101003 : K/30min ==> K/s
    20       zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys
    21 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    22       CALL histwrite_phy(nid_mth,"dtthe",itau_w,zx_tmp_fi3d)
    23 c
    24 cIM: 101003 : K/30min ==> K/s
    25       zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys
    26 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    27       CALL histwrite_phy(nid_mth,"dtcon",itau_w,zx_tmp_fi3d)
    28 c
    2919c
    3020      IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN
    … …  
    987977c
    988978
    989 cIM: 101003 : K/30min ==> K/s
    990       zx_tmp_fi3d(1:klon,1:klev)=d_t_ajsb(1:klon,1:klev)/pdtphys
    991 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    992       CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d)
    993 
    994 c
    995       zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys
    996 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    997       CALL histwrite_phy(nid_mth,"dqthe",itau_w,zx_tmp_fi3d)
    998 c
    999 
    1000 
    1001 
    1002 
    1003979c
    1004980c  temperature tendency due to large scale precipitation
    … …  
    16331609cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d)
    16341610      CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc)
    1635 c
    1636 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    1637       CALL histwrite_phy(nid_mth,"temp",itau_w,t_seri)
    16381611c
    16391612c#ifdef histmthNMC
Note: See TracChangeset for help on using the changeset viewer.