Ignore:
Timestamp:
Apr 22, 2015, 6:28:50 PM (10 years ago)
Author:
ymipsl
Message:

Removed all iim et jjm depedency. Replaced by nbp_lon and nbp_lat.
Supress gr_fi_ecrit, replaced by grid1dTo2d_glo

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_histday_seri.h

    r3818 r3819  
    2424      zx_tmp_fi2d(1:klon)=moyglo
    2525!
    26       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     26      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    2727      CALL histwrite(nid_day_seri,"bilTOA",itau_w, &
    2828                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    3333      zx_tmp_fi2d(1:klon)=moyglo
    3434!
    35       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     35      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    3636      CALL histwrite(nid_day_seri,"bils",itau_w, &
    3737                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    4848      zx_tmp_fi2d(1:klon)=moyglo
    4949!
    50       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     50      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    5151      CALL histwrite(nid_day_seri,"ecin",itau_w, &
    5252                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    129129!#endif     
    130130     
    131       CALL gr_fi_ecrit(1,klon,nbp_lon,jjmp1,airephy,zx_tmp_2d)
     131      CALL grid1dTo2d_glo(airephy,zx_tmp_2d)
    132132      airetot=0.
    133133!     DO j = 1, jjmp1
    … …  
    160160!
    161161      zx_tmp_fi2d(1:klon)=aam/airetot
    162       CALL gr_fi_ecrit(1,klon,nbp_lon,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     162      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    163163      CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d, &
    164164                     nbp_lon*jjmp1,ndex2d)
    165165!
    166166      zx_tmp_fi2d(1:klon)=torsfc/airetot
    167       CALL gr_fi_ecrit(1,klon,nbp_lon,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     167      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    168168      CALL histwrite(nid_day_seri,"torsfc",itau_w,zx_tmp_2d, &
    169169                     nbp_lon*jjmp1,ndex2d)
    … …  
    175175      zx_tmp_fi2d(1:klon)=moyglo
    176176!
    177       CALL gr_fi_ecrit(1,klon,nbp_lon,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     177      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    178178      CALL histwrite(nid_day_seri,"tamv",itau_w, &
    179179                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    184184      zx_tmp_fi2d(1:klon)=moyglo
    185185!
    186       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     186      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    187187      CALL histwrite(nid_day_seri,"psol",itau_w, &
    188188                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    193193      zx_tmp_fi2d(1:klon)=moyglo
    194194!
    195       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     195      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    196196      CALL histwrite(nid_day_seri,"evap",itau_w, &
    197197                     zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
    … …  
    237237      zx_tmp_fi2d(1:klon)=moyglo
    238238!
    239       CALL gr_fi_ecrit(1, klon,nbp_lon,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     239      CALL grid1dTo2d_glo(zx_tmp_fi2d,zx_tmp_2d)
    240240      CALL histwrite(nid_day_seri,"tsol_"//clnsurf(is_oce), &
    241241                     itau_w,zx_tmp_2d,nbp_lon*jjmp1,ndex2d)
Note: See TracChangeset for help on using the changeset viewer.