Changeset 3210


Ignore:
Timestamp:
Feb 16, 2018, 1:07:40 PM (6 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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/tend_to_tke.F90

    r3208 r3210  
    3636 USE dimphy, ONLY: klon, klev
    3737 USE indice_sol_mod, ONLY: nbsrf
     38
     39IMPLICIT NONE
    3840#include "YOMCST.h"
    3941
    … …  
    6466
    6567
    66   INTEGER ig,k,isrf                 ! indices
     68  INTEGER i,k,isrf                 ! indices
    6769  REAL    masse(klon,klev)          ! mass in the layers [kg/m2]
    6870  REAL    unsmasse(klon,klev+1)     ! linear mass in the layers [kg/m2]
Note: See TracChangeset for help on using the changeset viewer.