Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_divers.h

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_divers.h (modified) (12 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_divers.h

@@ -1 @@
-!
+
 ! $Id$
-!
+
 ! 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
@@ -21 +21 @@
       ENDIF
 
-!
 ! Initialisation debut de mois
       IF(itap.EQ.itapm1+1) THEN
@@ -27 +26 @@
 !        print*,'Initialisation ndayrain_mth ',itap
       ENDIF
-!
+
 ! Initialisation debut de chaque jour
       IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.1) THEN
@@ -33 +32 @@
 !       print*,'initialisation mois suivants day_rain itap',itap
       ENDIF
-!
+
 ! Calcul a chaque pas de temps de la physique
          DO i = 1, klon
@@ -39 +38 @@
             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
@@ -46 +45 @@
          ENDDO
       ENDIF
-!
+
 ! Initialisation fin de mois
 ! Ne pas changer le IF ci-dessous, car le compteur itapm1 est augmente
@@ -55 +54 @@
 !       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
@@ -63 +62 @@
      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
@@ -69 +68 @@
      zt2m_max_mon=zt2m
   ENDIF
-!
+
 !calcul sur tous les pas de temps pour les fichiers mensuels annuels
      DO i = 1, klon
@@ -75 +74 @@
         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
@@ -81 +80 @@
    t2m_max_mon=t2m_max_mon+zt2m_max_mon 
   ENDIF
-!
+
 !fin mois
   IF(itap==itapm1) THEN
@@ -87 +86 @@
    t2m_max_mon=t2m_max_mon/mth_len
   ENDIF
-!