Ignore:
Timestamp:
Feb 16, 2018, 1:18:16 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of bug correction R3210 from LMDZ6 trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/tend_to_tke.F90

    r3200 r3213  
    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]
     
    120122
    121123
    122  DO isrf=1,nsrf
     124 DO isrf=1,nbsrf
    123125    DO k=1,klev
    124126       DO i=1,klon
Note: See TracChangeset for help on using the changeset viewer.