diff --git a/src/MNH/ch_f77.fx90 b/src/MNH/ch_f77.fx90
index 20e3e6cbb0292bffff3687c952ea1f26902532cf..3040b37bb98a24f3b05a76aee82283a8fff9097e 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:                                                                 =*