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_histmthNMC.h

    r524 r634  
    2828         ENDIF
    2929c
    30       CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d)
    31       CALL histwrite(nid_nmc,"t"//bb,itau_w,zx_tmp_2d,
    32      $       iim*jjmp1,ndex2d)
     30cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d)
     31      CALL histwrite_phy(nid_nmc,"t"//bb,itau_w,tlevSTD(:,k))
    3332c
    34       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d)
    35       CALL histwrite(nid_nmc,"phi"//bb,itau_w,zx_tmp_2d,
    36      $       iim*jjmp1,ndex2d)
     33cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d)
     34      CALL histwrite_phy(nid_nmc,"phi"//bb,itau_w,philevSTD(:,k))
    3735c
    38       CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d)
    39       CALL histwrite(nid_nmc,"q"//bb,itau_w,zx_tmp_2d,
    40      $       iim*jjmp1,ndex2d)
     36cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d)
     37      CALL histwrite_phy(nid_nmc,"q"//bb,itau_w,qlevSTD(:,k))
    4138c
    42       CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d)
    43       CALL histwrite(nid_nmc,"rh"//bb,itau_w,zx_tmp_2d,
    44      $       iim*jjmp1,ndex2d)
     39cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d)
     40      CALL histwrite_phy(nid_nmc,"rh"//bb,itau_w,rhlevSTD(:,k))
    4541c
    46       CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d)
    47       CALL histwrite(nid_nmc,"u"//bb,itau_w,zx_tmp_2d,
    48      $       iim*jjmp1,ndex2d)
     42cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d)
     43      CALL histwrite_phy(nid_nmc,"u"//bb,itau_w,ulevSTD(:,k))
    4944c
    50       CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d)
    51       CALL histwrite(nid_nmc,"v"//bb,itau_w,zx_tmp_2d,
    52      $       iim*jjmp1,ndex2d)
     45cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d)
     46      CALL histwrite_phy(nid_nmc,"v"//bb,itau_w,vlevSTD(:,k))
    5347c
    5448      ENDDO !k=1, nlevSTD
Note: See TracChangeset for help on using the changeset viewer.