Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/phylmd/write_histISCCP.h

    r684 r704  
    1515        DO k=1,kmaxm1
    1616         zx_tmp_fi3d(1:klon, 1:lmaxm1)=fq_isccp(1:klon,k,1:lmaxm1,n)*100.
    17          CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
    18      .                    zx_tmp_3d)
     17cym         CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
     18cym     .                    zx_tmp_3d)
    1919c
    2020cIM: champ 3d : (lon,lat,pres) pour un tau fixe
    2121c
    22          CALL histwrite(nid_isccp,"cldISCCP_"//taulev(k)//typinout(n),
    23      .                  itau_w,zx_tmp_3d,iim*jjmp1*lmaxm1,ndex3d)
     22       CALL histwrite_phy(nid_isccp,"cldISCCP_"//taulev(k)//typinout(n),
     23     .                  itau_w,zx_tmp_fi3d)
    2424        ENDDO !k
    2525c
    26         CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
    27         CALL histwrite(nid_isccp,"nsunlit"//typinout(n),itau_w,
    28      .                 zx_tmp_2d,iim*jjmp1,ndex2d)
     26cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
     27        CALL histwrite_phy(nid_isccp,"nsunlit"//typinout(n),itau_w,
     28     .                 nbsunlit(1,:,n))
    2929c
    3030        ENDDO ! n=1, napisccp
    … …  
    5050          ENDDO
    5151         ENDIF
    52          CALL gr_fi_ecrit(1,klon,iim,jjmp1,fq_is_true,
    53      .                    zx_tmp_2d)
     52cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,fq_is_true,
     53cym     .                    zx_tmp_2d)
    5454c
    5555cIM: champ 2d : (lon,lat) pour un tau et une pc fixes
    5656c
    57          CALL histwrite(nid_isccp,pclev(l)//taulev(k)//typinout(n),
    58      .                  itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     57         CALL histwrite_phy(nid_isccp,pclev(l)//taulev(k)//typinout(n),
     58     .                  itau_w,fq_is_true(:,:,l,n))
    5959         ENDDO !l
    6060        ENDDO !k
    6161c
    6262c       print*,'n=',n,' write_ISCCP avant nbsunlit'
    63         CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
    64         CALL histwrite(nid_isccp,"nsunlit"//typinout(n),
    65      .                 itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     63cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:,n),zx_tmp_2d)
     64        CALL histwrite_phy(nid_isccp,"nsunlit"//typinout(n),
     65     .                 itau_w,nbsunlit(1,:,n))
    6666c
    6767        zx_tmp_fi2d(1:klon)=float(seed(1:klon,n))
    6868c
    6969c       print*,'n=',n,' write_ISCCP avant seed'
    70         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    71         CALL histwrite(nid_isccp,"seed"//verticaxe(n),
    72      .                 itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     70cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     71        CALL histwrite_phy(nid_isccp,"seed"//verticaxe(n),
     72     .                 itau_w,zx_tmp_fi2d)
    7373c
    7474c 9types de nuages ISCCP-D2
    … …  
    8080     $  fq_is_true(i,1,3,n)+ fq_is_true(i,2,3,n)+ fq_is_true(i,3,3,n) )
    8181        ENDDO
    82         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    83         CALL histwrite(nid_isccp,"cirr",itau_w,zx_tmp_2d,
    84      $  iim*jjmp1,ndex2d)
     82cym       CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     83        CALL histwrite_phy(nid_isccp,"cirr",itau_w,zx_tmp_fi2d)
    8584c
    8685        DO i=1, klon
    … …  
    9089     $   fq_is_true(i,4,3,n)+ fq_is_true(i,5,3,n) )
    9190        ENDDO
    92         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    93         CALL histwrite(nid_isccp,"cist",itau_w,zx_tmp_2d,
    94      $  iim*jjmp1,ndex2d)
     91cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     92        CALL histwrite_phy(nid_isccp,"cist",itau_w,zx_tmp_fi2d)
    9593c
    9694        DO i=1, klon
    … …  
    10098     $   fq_is_true(i,6,3,n)+ fq_is_true(i,7,3,n) )
    10199        ENDDO
    102         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    103         CALL histwrite(nid_isccp,"deep",itau_w,zx_tmp_2d,
    104      $  iim*jjmp1,ndex2d)
     100cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     101        CALL histwrite_phy(nid_isccp,"deep",itau_w,zx_tmp_fi2d)
    105102c
    106103        DO i=1, klon
    … …  
    109106     $  fq_is_true(i,1,5,n)+ fq_is_true(i,2,5,n)+ fq_is_true(i,3,5,n) )
    110107        ENDDO
    111         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    112         CALL histwrite(nid_isccp,"alcu",itau_w,zx_tmp_2d,
    113      $  iim*jjmp1,ndex2d)
     108cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     109        CALL histwrite_phy(nid_isccp,"alcu",itau_w,zx_tmp_fi2d)
    114110c
    115111        DO i=1, klon
    … …  
    118114     $   fq_is_true(i,4,5,n)+ fq_is_true(i,5,5,n) )
    119115        ENDDO
    120         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    121         CALL histwrite(nid_isccp,"alst",itau_w,zx_tmp_2d,
    122      $  iim*jjmp1,ndex2d)
     116cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     117        CALL histwrite_phy(nid_isccp,"alst",itau_w,zx_tmp_fi2d)
    123118c
    124119        DO i=1, klon
    … …  
    127122     $   fq_is_true(i,6,5,n)+ fq_is_true(i,7,5,n) )
    128123        ENDDO
    129         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    130         CALL histwrite(nid_isccp,"nist",itau_w,zx_tmp_2d,
    131      $  iim*jjmp1,ndex2d)
     124cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     125        CALL histwrite_phy(nid_isccp,"nist",itau_w,zx_tmp_fi2d)
    132126c
    133127        DO i=1, klon
    … …  
    136130     $  fq_is_true(i,1,7,n)+ fq_is_true(i,2,7,n)+ fq_is_true(i,3,7,n) )
    137131        ENDDO
    138         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    139         CALL histwrite(nid_isccp,"cumu",itau_w,zx_tmp_2d,
    140      $  iim*jjmp1,ndex2d)
     132cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     133        CALL histwrite_phy(nid_isccp,"cumu",itau_w,zx_tmp_fi2d)
    141134c
    142135        DO i=1, klon
    … …  
    145138     $   fq_is_true(i,4,7,n)+ fq_is_true(i,5,7,n) )
    146139        ENDDO
    147         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    148         CALL histwrite(nid_isccp,"stcu",itau_w,zx_tmp_2d,
    149      $  iim*jjmp1,ndex2d)
     140cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     141        CALL histwrite_phy(nid_isccp,"stcu",itau_w,zx_tmp_fi2d)
    150142c
    151143        DO i=1, klon
    … …  
    154146     $   fq_is_true(i,6,7,n)+ fq_is_true(i,7,7,n) )
    155147        ENDDO
    156         CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    157         CALL histwrite(nid_isccp,"stra",itau_w,zx_tmp_2d,
    158      $  iim*jjmp1,ndex2d)
     148cym     CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     149        CALL histwrite_phy(nid_isccp,"stra",itau_w,zx_tmp_fi2d)
    159150c
    160151c 3_tau_nuages x 3_levels
    … …  
    172163     $  fq_is_true(i,1,7,n)+ fq_is_true(i,2,7,n)+ fq_is_true(i,3,7,n) )
    173164        ENDDO   
    174         CALL gr_fi_ecrit(lmax3,klon,iim,jjmp1,cld_fi3d,cld_3d)
    175         CALL histwrite(nid_isccp,"thin",itau_w,cld_3d,
    176      $  iim*jjmp1*lmax3,ndex3d)
     165cym        CALL gr_fi_ecrit(lmax3,klon,iim,jjmp1,cld_fi3d,cld_3d)
     166        CALL histwrite_phy(nid_isccp,"thin",itau_w,cld_fi3d)
    177167c
    178168        DO i=1, klon
    … …  
    188178     $    fq_is_true(i,4,7,n)+ fq_is_true(i,5,7,n) )
    189179        ENDDO   
    190         CALL gr_fi_ecrit(lmax3, klon,iim,jjmp1,cld_fi3d,cld_3d)
    191         CALL histwrite(nid_isccp,"mid",itau_w,cld_3d,
    192      $  iim*jjmp1*lmax3,ndex3d)
     180cym       CALL gr_fi_ecrit(lmax3, klon,iim,jjmp1,cld_fi3d,cld_3d)
     181        CALL histwrite_phy(nid_isccp,"mid",itau_w,cld_fi3d)
    193182c
    194183        DO i=1, klon
    … …  
    204193     $    fq_is_true(i,6,7,n)+ fq_is_true(i,7,7,n) )
    205194        ENDDO   
    206         CALL gr_fi_ecrit(lmax3, klon,iim,jjmp1,cld_fi3d,cld_3d)
    207         CALL histwrite(nid_isccp,"thick",itau_w,cld_3d,
    208      $  iim*jjmp1*lmax3,ndex3d)
     195cym       CALL gr_fi_ecrit(lmax3, klon,iim,jjmp1,cld_fi3d,cld_3d)
     196        CALL histwrite_phy(nid_isccp,"thick",itau_w,cld_fi3d)
    209197c
    210198        ENDDO ! n=1, napisccp
Note: See TracChangeset for help on using the changeset viewer.