source: LMDZ4/trunk/libf/phylmd/undefSTD.F @ 1352

!
! $Header$
!
      SUBROUTINE undefSTD(itap,freq_calNMC)
      USE netcdf
      USE dimphy
      USE phys_state_var_mod ! Variables sauvegardees de la physique
      IMPLICIT none
c
c====================================================================
c
c I. Musat : 09.2004
c
c Calcul * du nombre de pas de temps (FLOAT(ecrit_XXX)-tnondef)) 
c          ou la variable tlevSTD est bien definie (.NE.missing_val), 
c et 
c        * de la somme de tlevSTD => tsumSTD
c
c nout=1 !var. journaliere "day" moyenne sur tous les pas de temps
c        ! de la physique
c nout=2 !var. mensuelle "mth" moyennee sur tous les pas de temps
c        ! de la physique
c nout=3 !var. mensuelle "NMC" moyennee toutes les ecrit_hf
c
c
c NB: mettre "inst(X)" dans le write_hist*NMC.h !
c====================================================================
c
cym#include "dimensions.h"
cym      integer jjmp1
cym      parameter (jjmp1=jjm+1-1/jjm)
cym#include "dimphy.h"
c variables Input
c
c     INTEGER nlevSTD, klevSTD, itap
c     PARAMETER(klevSTD=17)
      INTEGER itap
c     REAL dtime
c
c variables locales
c     INTEGER i, k, nout, n
c     PARAMETER(nout=3) !nout=1 : day; =2 : mth; =3 : NMC
      INTEGER i, k, n
      REAL freq_calNMC(nout)
c
c variables Output
c     REAL tlevSTD(klon,klevSTD), tsumSTD(klon,klevSTD,nout)
c     LOGICAL oknondef(klon,klevSTD,nout)
c     REAL tnondef(klon,klevSTD,nout)
c
      REAL missing_val
c
      missing_val=nf90_fill_real
c
      DO n=1, nout
c
c
c calcul variables tous les freq_calNMC(n)/dtime pas de temps 
c de la physique
c
       IF(MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0) THEN
c
c       print*,'n freq_cal=',n,itap,freq_calNMC(n)/dtime
c
        DO k=1, nlevSTD
         DO i=1, klon
          IF(tlevSTD(i,k).EQ.missing_val) THEN
c          IF(oknondef(i,k,n)) THEN          
            tnondef(i,k,n)=tnondef(i,k,n)+1.
c          ENDIF !oknondef(i,k)
c
          ELSE IF(tlevSTD(i,k).NE.missing_val) THEN
           tsumSTD(i,k,n)=tsumSTD(i,k,n)+tlevSTD(i,k)
           usumSTD(i,k,n)=usumSTD(i,k,n)+ulevSTD(i,k)
           vsumSTD(i,k,n)=vsumSTD(i,k,n)+vlevSTD(i,k)
           wsumSTD(i,k,n)=wsumSTD(i,k,n)+wlevSTD(i,k)
           phisumSTD(i,k,n)=phisumSTD(i,k,n)+philevSTD(i,k)
           qsumSTD(i,k,n)=qsumSTD(i,k,n)+qlevSTD(i,k)
           rhsumSTD(i,k,n)=rhsumSTD(i,k,n)+rhlevSTD(i,k)
           uvsumSTD(i,k,n)=uvsumSTD(i,k,n)+uvSTD(i,k)
           vqsumSTD(i,k,n)=vqsumSTD(i,k,n)+vqSTD(i,k)
           vTsumSTD(i,k,n)=vTsumSTD(i,k,n)+vTSTD(i,k)
           wqsumSTD(i,k,n)=wqsumSTD(i,k,n)+wqSTD(i,k)
           vphisumSTD(i,k,n)=vphisumSTD(i,k,n)+vphiSTD(i,k)
           wTsumSTD(i,k,n)=wTsumSTD(i,k,n)+wTSTD(i,k)
           u2sumSTD(i,k,n)=u2sumSTD(i,k,n)+u2STD(i,k)
           v2sumSTD(i,k,n)=v2sumSTD(i,k,n)+v2STD(i,k)
           T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k)
c
c          if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN
           if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN
            print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),
     $tlevSTD(i,k)
           endif 
c
          ENDIF 
         ENDDO !i
        ENDDO !k
c
       ENDIF !MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0
c
      ENDDO !n
c
      RETURN
      END