write_histday_seri.h File Reference

Go to the source code of this file.

Functions/Subroutines
c c $Header c	IF (is_sequential) THEN IF(type_run.EQ."AMIP") THEN c ndex2d=0itau_w
c c $Header c klon	zx_tmp_fi2d (i)
c c $Header c klon klev DO klon cIM	zx_tmp_fi3d (i, k)
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev	zx_tmp (ij)
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim *pi *RA *RA c	zx_tmp_fi2d (1:klon)

Variables
c c $Header c klon klev DO	i = 1
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim	ij
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev	airetot = '
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM	mountor
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon	airetotphy = '
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim	airetotij = '
c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim	c

Function/Subroutine Documentation

c c $Header c IF ( is_sequential  )

pure virtual

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev zx_tmp

(

ij

)

!$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 zx_tmp_fi2d

(

i

)

Initial value:

zxfluxu(i,1)*RA* cos(pir* rlat(i))
      ENDDO
c
      ok_msk=.FALSE.
      CALL moyglo_pondaire(klon, zx_tmp_fi2d, airephy, 
     .     ok_msk, msk, moyglo)
      zx_tmp_fi2d(1:klon)=moyglo
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
      CALL histwrite(nid_day_seri,"frictor",itau_w,zx_tmp_2d,
     .               iim*jjmp1,ndex2d)
c
c mountain torque
c
cIM 190504 BEG
      CALL gr_fi_dyn(1,klon,iim+1,jjm+1,airephy,airedyn)
      CALL gr_fi_dyn(klev+1,klon,iim+1,jjm+1,paprs,padyn)
      CALL gr_fi_dyn(1,klon,iim+1,jjm+1,rlat,rlatdyn)
      mountor=0.
      airetot=0.
      DO j = 1

Here is the caller graph for this function:

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim * pi* RA* RA c zx_tmp_fi2d

(

1:klon

)

c c $Header c klon klev DO klon cIM klev DO klon zx_tmp_fi3d	(	i	,
		k
	)

Initial value:

u_seri(i,k)*RA*cos(pir* rlat(i))
      ENDDO
      ENDDO
c
      CALL moyglo_pondaima(klon, klev, zx_tmp_fi3d, 
     .     airephy, paprs, moyglo)
      zx_tmp_fi2d(1:klon)=moyglo
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
      CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d,
     .               iim*jjmp1,ndex2d)
c
c friction torque
c
      DO i=1

Variable Documentation

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim airetot = '

Definition at line 109 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim airetotij = '

Definition at line 147 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetotphy = '

Definition at line 138 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO iim c

Definition at line 147 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c klev c klon airetot c jjmp1 DO i = 1

Definition at line 40 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM jjmp1 c DO iim c ij

Initial value:

i+(iim+1)*(j-1)
        zx_tmp(ij)=0.
        DO k = 1

Definition at line 96 of file write_histday_seri.h.

c c $Header c klon klev DO klon cIM klev DO klon klon jjmp1 DO iim klev airetot klev cIM END cIM mountor

Initial value:

mountor/(airetot*airetot)
      mountor=mountor/airetot
c
cIM 190504 END
      zx_tmp_2d(1:iim,1:jjmp1)=mountor
      CALL histwrite(nid_day_seri,"mountor",itau_w,zx_tmp_2d,
     .               iim*jjmp1,ndex2d)
c
      ENDIF !(1.EQ.0) THEN
c
c
      CALL gr_fi_dyn(1,klon,iim+1,jjm+1,airephy,airedyn)
      CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
      airetot=0.
c     DO j = 1

Definition at line 111 of file write_histday_seri.h.