source: LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histISCCP.h @ 4981

Last change on this file since 4981 was 514, checked in by lmdzadmin, 21 years ago

Un petit peu de menage
IM

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