source: LMDZ.3.3/trunk/libf/phylmd/write_histISCCP.h @ 877

Last change on this file since 877 was 484, checked in by lmdzadmin, 21 years ago

Initial import

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 788 bytes
Line 
1      IF (ok_isccp) THEN
2c
3       ndex0d = 0
4       ndex1d = 0
5       ndex2d = 0
6       ndex3d = 0
7c
8       itau_w = itau_phy + itap
9c
10        DO k=1,kmaxm1
11         zx_tmp_fi3d(1:klon, 1:lmaxm1)=fq_isccp(1:klon,k,1:lmaxm1)*100.
12         CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
13     .                    zx_tmp_3d)
14c
15cIM: champ 3d : (lon,lat,pres) pour un tau fixe
16c
17         CALL histwrite(nid_isccp,"cldISCCP_"//taulev(k),itau_w,
18     .                  zx_tmp_3d,iim*jjmp1*lmaxm1,ndex3d)
19        ENDDO !k
20c
21        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:),zx_tmp_2d)
22        CALL histwrite(nid_isccp,"nsunlit",itau_w,
23     .                 zx_tmp_2d,iim*jjmp1,ndex2d)
24c
25       if (ok_sync) then
26        call histsync(nid_isccp)
27       endif
28
29      ENDIF !ok_isccp
Note: See TracBrowser for help on using the repository browser.