From 7e51d8232cb490d35ed52ae66c26ad75c9a16450 Mon Sep 17 00:00:00 2001
From: lucieb92 <lucie.bakels@univie.ac.at>
Date: Fri, 10 May 2024 11:04:59 +0200
Subject: [PATCH] GFS lowest 2m level k=2
Former-commit-id: e5cf7953201de83144e59432a492b47b88bc938b
---
src/windfields_mod.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/windfields_mod.f90 b/src/windfields_mod.f90
index d0665cf7..bcd4a28a 100644
--- a/src/windfields_mod.f90
+++ b/src/windfields_mod.f90
@@ -3373,7 +3373,7 @@ subroutine readwind_gfs(indj,n,uuh,vvh,wwh)
! CALCULATE 2 M DEW POINT FROM 2 M RELATIVE HUMIDITY
! USING BOLTON'S (1980) FORMULA
! BECAUSE td2 IS NOT AVAILABLE FROM NCEP GFS DATA
- k=1 ! CHECK THIS!!!
+ k=2 ! CHECK THIS!!!
do j=0,ny-1
do i=0,nxfield-1
help=qvh2(i,j)
--
GitLab