source: LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/calcul_divers.h @ 5331

!
! $Id: calcul_divers.h 4557 2023-06-01 14:44:02Z abarral $
!
! itap : nombre de pas de temps de la physique
! itapm1 : somme du nombre de pas de temps du/des mois precedent/s.
! (itap - itapm1) : nombre de pas de temps du mois courant
!
! Ne pas modifier les IFs ci-dessous impliquant itapm1,
! autrement les resultats seront faux !!
!
! Ici on utilise MOD(itap - itapm1,NINT(mth_len*un_jour/phys_tstep)).EQ.1)
! pour detecter le debut de chaque mois lorsque  l on tourne par an.
!
! IM, 26.05.2023
!
!
! Initialisations itapm1 du premier mois
      IF(itap.EQ.1) THEN
         itapm1=0
!        print*,'initialisation itap=1 itapm1 ',itapm1
      ENDIF

!
! Initialisation debut de mois
      IF(itap.EQ.itapm1+1) THEN
         ndayrain_mth(:)=0.
!        print*,'Initialisation ndayrain_mth ',itap
      ENDIF
!
! Initialisation debut de chaque jour
      IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.1) THEN
        nday_rain(:)=0.
!       print*,'initialisation mois suivants day_rain itap',itap
      ENDIF
!
! Calcul a chaque pas de temps de la physique
         DO i = 1, klon
            total_rain(i)=rain_fall(i)+snow_fall(i)  
            IF(total_rain(i).GT.0.) nday_rain(i)=1.
         ENDDO
!
! Cumul en fin de journee
      IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.0) THEN
         DO i = 1, klon
            ndayrain_mth(i)=ndayrain_mth(i)+nday_rain(i)
         ENDDO
      ENDIF
!
! Initialisation fin de mois
! Ne pas changer le IF ci-dessous, car le compteur itapm1 est augmente
! apres, dans la boucle !!!
! IM, 260523
      IF(MOD(itap-itapm1,NINT(mth_len*un_jour/phys_tstep)).EQ.0) THEN
        itapm1=itapm1+NINT(mth_len*un_jour/phys_tstep)
!       print*,'fmois i i1 mjt',itap,itapm1,mth_len,un_jour,phys_tstep
      ENDIF
!
! calcul temperatures minimale et maximale moyennees sur le mois 
!
!initialisation debut de mois pour les fichiers mensuels annuels
  IF(itap.EQ.itapm1+1) THEN
     t2m_min_mon=0.
     t2m_max_mon=0.
  ENDIF
!
!initialisation debut de journee pour les fichiers mensuels annuels
  IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.1) THEN
     zt2m_min_mon=zt2m
     zt2m_max_mon=zt2m
  ENDIF
!
!calcul sur tous les pas de temps pour les fichiers mensuels annuels
     DO i = 1, klon
        zt2m_min_mon(i)=MIN(zt2m(i),zt2m_min_mon(i))
        zt2m_max_mon(i)=MAX(zt2m(i),zt2m_max_mon(i))
     ENDDO
!
!fin journee
  IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.0) THEN
   t2m_min_mon=t2m_min_mon+zt2m_min_mon 
   t2m_max_mon=t2m_max_mon+zt2m_max_mon 
  ENDIF
!
!fin mois
  IF(itap==itapm1) THEN
   t2m_min_mon=t2m_min_mon/mth_len
   t2m_max_mon=t2m_max_mon/mth_len
  ENDIF
!