write_histISCCP.h File Reference

Go to the source code of this file.

Functions/Subroutines
!$Id	NINT (freq_ISCCP/dtime)).EQ.0) THEN c ndex2d=0ndex3d=0c itau_w
!$Id napisccp c DO kmaxm1	zx_tmp_fi3d (1:klon, 1:lmaxm1)
!$Id napisccp c DO kmaxm1 napisccp ELSE	IF (type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN c DO n
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c	IF (top_height.LE.2) THEN DO i
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n	nbsunlit (1, i, n) c281008 end c IF(nbsunlit(1
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN	fq_is_true (i, k, l, n)
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon	zx_tmp_fi2d (i)
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon klon klon klon klon klon klon klon klon klon	cld_fi3d (i, 1)
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon klon klon klon klon klon klon klon klon klon klon klon napisccp c ENDIF c	if (ok_sync) then c $OMP MASTER call histsync(nid_isccp) c $OMP END MASTER endif ENDIF!(MOD(itap

Variables
!$Id	__pad24__
!$Id napisccp c DO	k = 1
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print	n
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO	l = 1
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n	nbsunlit
!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n	i

Function/Subroutine Documentation

!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon klon klon klon klon klon klon klon klon klon klon klon cld_fi3d	(	i	,
		1
	)

Initial value:

     $   (fq_is_true(i,4,1,n)+ fq_is_true(i,5,1,n) +
     $    fq_is_true(i,4,2,n)+ fq_is_true(i,5,2,n) +
     $    fq_is_true(i,4,3,n)+ fq_is_true(i,5,3,n) )
                 cld_fi3d(i,2)=
     $   (fq_is_true(i,4,4,n)+ fq_is_true(i,5,4,n) +
     $    fq_is_true(i,4,5,n)+ fq_is_true(i,5,5,n) )
                 cld_fi3d(i,3)=
     $   (fq_is_true(i,4,6,n)+ fq_is_true(i,5,6,n) +
     $    fq_is_true(i,4,7,n)+ fq_is_true(i,5,7,n) )
                ENDDO   
cym       CALL gr_fi_ecrit(lmax3, klon,iim,jjmp1,cld_fi3d,cld_3d)
        CALL histwrite_phy(nid_isccp,"mid",itau_w,cld_fi3d)
c
        DO i=1

!$Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon fq_is_true	(	i	,
		k	,
		l	,
		n
	)

Initial value:

 fq_isccp(i,k,l,n)*100.
          ENDDO
         ENDIF
cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,fq_is_true,
cym     .                    zx_tmp_2d)
c
cIM: champ 2d : (lon,lat) pour un tau et une pc fixes
c
         CALL histwrite_phy(nid_isccp,pclev(l)
     .                  itau_w,fq_is_true(:,k,l,n))
         ENDDO !l
        ENDDO !k
c
c       print*

! $Id napisccp c DO kmaxm1 napisccp ELSE IF

(

type_run.EQ."AMIP".OR.type_run.EQ."CFMI"

)

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c IF

(

top_height.LE.

2

)

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon klon klon klon klon klon klon klon klon klon klon klon napisccp c ENDIF c if

(

ok_sync

)

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n nbsunlit	(	1	,
		i	,
		n
	)

! $Id NINT ( freq_ISCCP/  dtime )

pure virtual

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon klon zx_tmp_fi2d

(

i

)

! $Id napisccp c DO kmaxm1 zx_tmp_fi3d	(	1:klon	,
		1:lmaxm1
	)

Variable Documentation

! $Id __pad24__

Definition at line 6 of file write_histISCCP.h.

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n i

Definition at line 46 of file write_histISCCP.h.

! $Id napisccp c DO k = 1

Definition at line 17 of file write_histISCCP.h.

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO l = 1

Definition at line 41 of file write_histISCCP.h.

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n n NE THEN klon n

Initial value:

',n,' write_ISCCP avant fq_isccp'
         DO k=1

Definition at line 39 of file write_histISCCP.h.

! $Id napisccp c DO kmaxm1 napisccp ELSE napisccp c print kmaxm1 DO lmaxm1 c klon c281008 beg c print write_ISCCP i n nbsunlit

Definition at line 46 of file write_histISCCP.h.