From 42d32a26c3816aea96dd29adf620496622afc0d1 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 20 Jun 2018 13:05:11 +0000
Subject: [PATCH] Juan 20/06/2018 : bug , rename 2nd r149 --> r150

---
 src/MNH/ch_f77.fx90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/ch_f77.fx90 b/src/MNH/ch_f77.fx90
index 20e3e6cbb..3040b37bb 100644
--- a/src/MNH/ch_f77.fx90
+++ b/src/MNH/ch_f77.fx90
@@ -39846,7 +39846,7 @@ c      INCLUDE 'params'
 
 *=============================================================================*
 
-      SUBROUTINE r149(nw,wl,wc,nz,tlev,airden,j,sq,jlabel,tpflag,kout)
+      SUBROUTINE r150(nw,wl,wc,nz,tlev,airden,j,sq,jlabel,tpflag,kout)
 
 *-----------------------------------------------------------------------------*
 *=  PURPOSE:                                                                 =*
-- 
GitLab