source: LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histISCCP.h @ 1261

Last change on this file since 1261 was 634, checked in by Laurent Fairhead, 20 years ago

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

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 725 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.
13cym         CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
14cym     .                    zx_tmp_3d)
15c
16cIM: champ 3d : (lon,lat,pres) pour un tau fixe
17c
18         CALL histwrite_phy(nid_isccp,"cldISCCP_"//taulev(k),itau_w,
19     .                  zx_tmp_fi3d)
20        ENDDO !k
21c
22cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:),zx_tmp_2d)
23        CALL histwrite_phy(nid_isccp,"nsunlit",itau_w,nbsunlit(1,:))
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.