write_histhfNMC.h File Reference

Go to the source code of this file.

Functions/Subroutines
!$Header	!IF (ok_histNMC(3)) THEN c ndex3d=0itau_w
!$Header nlevSTD DO klon	IF (tnondef(i, k, 3).NE.missing_val) THEN zx_tmp_fiNC(i
!$Header nlevSTD DO klon nlevSTD c CALL	histwrite_phy (nid_hfnmc, lNMC,"psbg", itau_w, $zx_tmp_fiNC) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$uvsumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$vqsumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$vTsumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$wqsumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$vphisumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$wTsumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$u2sumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc
!$Header nlevSTD DO klon nlevSTD c CALL	$v2sumSTD (:,:, 3)) c CALL histwrite_phy(nid_hfnmc

Variables
!$Header	out
!$Header nlevSTD DO	i = 1
!$Header nlevSTD DO klon	k
!$Header nlevSTD DO klon nlevSTD c CALL	lNMC
!$Header nlevSTD DO klon nlevSTD c CALL	uv
!$Header nlevSTD DO klon nlevSTD c CALL	itau_w
!$Header nlevSTD DO klon nlevSTD c CALL	vq
!$Header nlevSTD DO klon nlevSTD c CALL	vT
!$Header nlevSTD DO klon nlevSTD c CALL	wq
!$Header nlevSTD DO klon nlevSTD c CALL	vphi
!$Header nlevSTD DO klon nlevSTD c CALL	wT
!$Header nlevSTD DO klon nlevSTD c CALL	uxu
!$Header nlevSTD DO klon nlevSTD c CALL	vxv
!$Header nlevSTD DO klon nlevSTD c CALL	TxT

Function/Subroutine Documentation

! $Header !IF ( ok_histNMC(3)  )

pure virtual

! $Header nlevSTD DO klon nlevSTD c CALL $u2sumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $uvsumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $v2sumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $vphisumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $vqsumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $vTsumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $wqsumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL $wTsumSTD	(	:	,
		:	,
		3
	)

! $Header nlevSTD DO klon nlevSTD c CALL histwrite_phy	(	nid_hfnmc	,
		lNMC	,
		"psbg"	,
		itau_w	,
			$zx_tmp_fiNC
	)

! $Header nlevSTD DO klon IF

(

tnondef(i, k, 3).NE.

missing_val

)

Variable Documentation

! $Header nlevSTD DO i = 1

Definition at line 43 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL itau_w

Definition at line 55 of file write_histhfNMC.h.

! $Header nlevSTD DO klon k

Initial value:

 (100.*tnondef(i,k,3))/freq_moyNMC(3)
         ELSE
          zx_tmp_fiNC(i,k) = missing_val
         ENDIF
        ENDDO
       ENDDO !k=1

Definition at line 45 of file write_histhfNMC.h.

!$Id nlevSTD DO klon nlevSTD c CALL lNMC

Definition at line 55 of file write_histhfNMC.h.

! $Header out

Initial value:

mth
c nout=2 : in=pdtphys

Definition at line 12 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL TxT

Definition at line 79 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL uv

Definition at line 55 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL uxu

Definition at line 73 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL vphi

Definition at line 67 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL vq

Definition at line 58 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL vT

Definition at line 61 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL vxv

Definition at line 76 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL wq

Definition at line 64 of file write_histhfNMC.h.

! $Header nlevSTD DO klon nlevSTD c CALL wT

Definition at line 70 of file write_histhfNMC.h.