Reference height warning only one time for urban model.

CoLM-SYSU · Jan 8, 2025 · f8b7c46 · f8b7c46
1 parent b434e88
commit f8b7c46
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/main/URBAN/MOD_Urban_Flux.F90 b/main/URBAN/MOD_Urban_Flux.F90
@@ -517,19 +517,19 @@ SUBROUTINE UrbanOnlyFlux ( &
          IF (hu <= hroof+1) THEN
             hu_ = hroof + 1.
             IF (taux == spval) & ! only print warning for the firt time-step
-               write(6,*) 'Warning: the obs height of u less than htop+1, set it to hroof+1.'
+               write(6,*) 'Warning: the obs height of u less than hroof+1, set it to hroof+1.'
          ENDIF
 
          IF (ht <= hroof+1) THEN
             ht_ = hroof + 1.
             IF (taux == spval) & ! only print warning for the firt time-step
-               write(6,*) 'Warning: the obs height of t less than htop+1, set it to hroof+1.'
+               write(6,*) 'Warning: the obs height of t less than hroof+1, set it to hroof+1.'
          ENDIF
 
          IF (hq <= hroof+1) THEN
             hq_ = hroof + 1.
             IF (taux == spval) & ! only print warning for the firt time-step
-               write(6,*) 'Warning: the obs height of q less than htop+1, set it to hroof+1.'
+               write(6,*) 'Warning: the obs height of q less than hroof+1, set it to hroof+1.'
          ENDIF
 
       ELSE ! relative height
@@ -1518,17 +1518,20 @@ SUBROUTINE  UrbanVegFlux ( &
 
          IF (hu <= hroof+1) THEN
             hu_ = hroof + 1.
-            write(6,*) 'Warning: the obs height of u less than hroof+1, set it to hroof+1.'
+            IF (taux == spval) & ! only print warning for the firt time-step
+               write(6,*) 'Warning: the obs height of u less than hroof+1, set it to hroof+1.'
          ENDIF
 
          IF (ht <= hroof+1) THEN
             ht_ = hroof + 1.
-            write(6,*) 'Warning: the obs height of t less than hroof+1, set it to hroof+1.'
+            IF (taux == spval) & ! only print warning for the firt time-step
+               write(6,*) 'Warning: the obs height of t less than hroof+1, set it to hroof+1.'
          ENDIF
 
          IF (hq <= hroof+1) THEN
             hq_ = hroof + 1.
-            write(6,*) 'Warning: the obs height of q less than hroof+1, set it to hroof+1.'
+            IF (taux == spval) & ! only print warning for the firt time-step
+               write(6,*) 'Warning: the obs height of q less than hroof+1, set it to hroof+1.'
          ENDIF
 
       ELSE ! relative height