source: LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/write_histISCCP.h @ 3193

Last change on this file since 3193 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

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