Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/qminimum_loc.f90

Timestamp:

Jul 26, 2024, 5:56:37 PM (8 weeks ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/qminimum_loc.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/qminimum_loc.f90

@@ -10 +10 @@
 
 
-  IMPLICIT none
+  IMPLICIT NONE
   !
   !  -- Objet : Traiter les valeurs trop petites (meme negatives)
   !         pour l'eau vapeur et l'eau liquide
   !
-  include "dimensions.h"
-  include "paramet.h"
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
   !
   INTEGER :: nqtot ! CRisi: on remplace nq par nqtot