Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

@@ -10 +10 @@
   USE lmdz_comgeom
   USE lmdz_tracstoke
+  USE lmdz_groupe, ONLY: groupe
 
-  !
+
   ! Auteur :  F. Hourdin
-  !
-  !
   !cc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
-  !
+
   IMPLICIT NONE
-  !
+
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
@@ -121 +120 @@
     ! 2. groupement des mailles pres du pole.
 
-    CALL groupe(massem, pbaruc, pbarvc, pbarug, pbarvg, wg)
+    CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg)
 
-    do l = 1, llm
-      do j = 1, jjm
-        do i = 1, iip1
+    DO l = 1, llm
+      DO j = 1, jjm
+        DO i = 1, iip1
           pbarvst(i, j, l) = pbarvg(i, j, l)
         enddo
       enddo
-      do i = 1, iip1
+      DO i = 1, iip1
         pbarvst(i, jjp1, l) = 0.
       enddo