From 4319be8b52280322f6b9dd7c628a17af3e66cd18 Mon Sep 17 00:00:00 2001 From: Martin Jucker Date: Fri, 17 Nov 2017 14:17:57 +1100 Subject: [PATCH] Switched sign of warmpool phase The phasing of the warmpool is now as expected, i.e. setting it to x will have the peak of the warmpool at longitude x. --- src/atmos_param/qflux/qflux.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/atmos_param/qflux/qflux.f90 b/src/atmos_param/qflux/qflux.f90 index aaff9b8..9af7f66 100644 --- a/src/atmos_param/qflux/qflux.f90 +++ b/src/atmos_param/qflux/qflux.f90 @@ -89,7 +89,7 @@ subroutine warmpool(lonb, latb, flux) do i=1,size(lonb)-1 lon = 0.5*(lonb(i+1) + lonb(i)) flux(i,j) = flux(i,j) & - &+ (1.-lat**2.)*warmpool_amp*cos(warmpool_k*lon+piphase) + &+ (1.-lat**2.)*warmpool_amp*cos(warmpool_k*lon - piphase) enddo endif enddo