Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_REGDYN.h

Timestamp:

Jul 25, 2024, 5:47:25 PM (4 months ago)

Author:

abarral

Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_REGDYN.h (modified) (1 diff)

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

@@ -1 @@
-c
-c $Header$
-c
-c calculs statistiques distribution nuage ftion du regime dynamique 
-c
-c Ce calcul doit etre fait a partir de valeurs mensuelles ??
-      CALL histo_o500_pctau(nbregdyn,pct_ocean,o500,fq_isccp,
-     &histoW,nhistoW)
-c
-c nhistoWt = somme de toutes les nhistoW
+!
+! $Header$
+!
+! calculs statistiques distribution nuage ftion du regime dynamique
+!
+! Ce calcul doit etre fait a partir de valeurs mensuelles ??
+      CALL histo_o500_pctau(nbregdyn,pct_ocean,o500,fq_isccp, &
+     histoW,nhistoW)
+!
+! nhistoWt = somme de toutes les nhistoW
       DO nreg=1, nbregdyn
        DO k = 1, kmaxm1
         DO l = 1, lmaxm1
          DO iw = 1, iwmax
-          nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+
-     &    nhistoW(k,l,iw,nreg)
+          nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+&
+         nhistoW(k,l,iw,nreg)
          ENDDO
         ENDDO
        ENDDO
       ENDDO
-c
-cIM 190504 END
+!
+!IM 190504 END