Juan 14/09/2020: mode_mnh_zwork.f90 , comment some print debug info

src/MNH/mode_mnh_zwork.f90

@@ -170,7 +170,7 @@ CONTAINS
        NT3D_POOL(NT3D_TOP) = - KTEMP
        IF (  NT3D_TOP > NT3D_TOP_MAX ) THEN
           NT3D_TOP_MAX = NT3D_TOP
-          WRITE( *, '( " MNH_GET_ZT3D: NT3D_TOP_MAX=",I4," KTEMP=",I4 )' ) NT3D_TOP_MAX,KTEMP
+          !WRITE( *, '( " MNH_GET_ZT3D: NT3D_TOP_MAX=",I4," KTEMP=",I4 )' ) NT3D_TOP_MAX,KTEMP
        END IF
     ENDIF
     !WRITE( *, '( "MNH_GET_ZT3D: reserving ZT3D (",I4,")" )' ) KTEMP
@@ -437,7 +437,7 @@ CONTAINS
        NT3D_POOL_G(NT3D_TOP_G) = - KTEMP
        IF (  NT3D_TOP_G > NT3D_TOP_G_MAX ) THEN
           NT3D_TOP_G_MAX = NT3D_TOP_G
-          WRITE( *, '( " MNH_GET_GT3D: NT3D_TOP_G_MAX=",I4," KTEMP=",I4 )' ) NT3D_TOP_G_MAX,KTEMP
+          !WRITE( *, '( " MNH_GET_GT3D: NT3D_TOP_G_MAX=",I4," KTEMP=",I4 )' ) NT3D_TOP_G_MAX,KTEMP
        END IF
     ENDIF
     !WRITE( *, '( "MNH_GET_GT3D: reserving GT3D (",I4,")" )' ) KTEMP
@@ -551,7 +551,7 @@ CONTAINS
 
     CHARACTER(LEN=*) :: HSUB
 
-    print*,"MNH_CHECK_IN_ZT3D => " , NT3D_TOP_CURRENT_INDEX+1 ,  HSUB
+    !print*,"MNH_CHECK_IN_ZT3D => " , NT3D_TOP_CURRENT_INDEX+1 ,  HSUB
     NT3D_TOP_CURRENT_INDEX = NT3D_TOP_CURRENT_INDEX + 1
     NT3D_TOP_CURRENT(NT3D_TOP_CURRENT_INDEX) = NT3D_TOP
   END SUBROUTINE MNH_CHECK_IN_ZT3D
@@ -561,7 +561,7 @@ CONTAINS
 
     CHARACTER(LEN=*) :: HSUB
     
-    print*,"MNH_CHECK_OUT_ZT3D <= " ,  NT3D_TOP_CURRENT_INDEX , HSUB
+    !print*,"MNH_CHECK_OUT_ZT3D <= " ,  NT3D_TOP_CURRENT_INDEX , HSUB
     IF ( NT3D_TOP_CURRENT(NT3D_TOP_CURRENT_INDEX) .NE.  NT3D_TOP ) THEN
         WRITE( *, '( "MNH_CHECK_OUT_ZT3D : NT3D_TOP_CURRENT .NE. NT3D_TOP (",2I8,")" )' )  NT3D_TOP_CURRENT ,  NT3D_TOP
         call Print_msg( NVERB_ERROR, 'GEN', 'MNH_CHECK_OUT_ZT3D', ' CHECK IN/OUT MISTASK ' )