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.
mjucker · Nov 17, 2017 · 4319be8 · 4319be8
1 parent 902ddac
commit 4319be8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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