write_histmthNMC.h File Reference

Go to the source code of this file.

Functions/Subroutines
!$Id nlevSTD DO klon	IF (tnondef(i, k, 1).NE.missing_val) THEN zx_tmp_fiNC(i
!$Id nlevSTD DO klon nlevSTD c CALL	histwrite_phy (nid_mthnmc, lNMC,"psbg", itau_w, $zx_tmp_fiNC) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$uvsumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$vqsumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$vTsumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$wqsumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$vphisumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$wTsumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$u2sumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$v2sumSTD (:,:, 1)) c CALL histwrite_phy(nid_mthnmc
!$Id nlevSTD DO klon nlevSTD c CALL	$T2sumSTD (:,:, 1)) c DO k
!$Id nlevSTD DO klon nlevSTD c CALL nlevSTD DO klon	IF (O3sumSTD(i, k, 1).NE.missing_val) THEN zx_tmp_fiNC(i

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

Function/Subroutine Documentation

! $Id nlevSTD DO klon nlevSTD c CALL $T2sumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $u2sumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $uvsumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $v2sumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $vphisumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $vqsumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $vTsumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $wqsumSTD	(	:	,
		:	,
		1
	)

! $Id nlevSTD DO klon nlevSTD c CALL $wTsumSTD	(	:	,
		:	,
		1
	)

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

! $Id nlevSTD DO klon IF

(

tnondef(i, k, 1).NE.

missing_val

)

! $Id nlevSTD DO klon nlevSTD c CALL nlevSTD DO klon IF

(

O3sumSTD(i, k, 1).NE.

missing_val

)

Variable Documentation

! $Id __pad25__

Definition at line 12 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL nlevSTD DO i = 1

Definition at line 41 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL itau_w

Definition at line 53 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL nlevSTD DO klon k

Initial value:

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

Definition at line 43 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL lNMC

Definition at line 53 of file write_histmthNMC.h.

! $Id out

Initial value:

mth
c nout=2 : in=pdtphys

Definition at line 12 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL TxT

Definition at line 77 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL uv

Definition at line 53 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL uxu

Definition at line 71 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL vphi

Definition at line 65 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL vq

Definition at line 56 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL vT

Definition at line 59 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL vxv

Definition at line 74 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL wq

Definition at line 62 of file write_histmthNMC.h.

! $Id nlevSTD DO klon nlevSTD c CALL wT

Definition at line 68 of file write_histmthNMC.h.