Changeset 3210 for LMDZ6/trunk/libf/phylmd

Timestamp:

Feb 16, 2018, 1:07:40 PM (7 years ago)

Author:

fhourdin

Message:

Manque implicit none (du coup il y avait un bug depuis la modification
visant l'independance au nombre de processeurs a cause d'une
lettre manquante dans nbsrf, corrigee par Jean-Yves dans la
revision svn 3208)

File:

• LMDZ6/trunk/libf/phylmd/tend_to_tke.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/tend_to_tke.F90

@@ -36 +36 @@
  USE dimphy, ONLY: klon, klev
  USE indice_sol_mod, ONLY: nbsrf
+
+IMPLICIT NONE
 #include "YOMCST.h"
 
@@ -64 +66 @@
 
 
-  INTEGER ig,k,isrf                 ! indices
+  INTEGER i,k,isrf                 ! indices
   REAL    masse(klon,klev)          ! mass in the layers [kg/m2]
   REAL    unsmasse(klon,klev+1)     ! linear mass in the layers [kg/m2]