14 #include "dimensions.h"
32 y( ij,l ) = ( rot( ij,l ) - rot( ij-1,l ) ) *
cvsurcuv( ij )
39 DO 2 ij = ijb, ije, iip1
40 y( ij,l ) = y( ij +
iim,l )
50 x( ij,l ) = ( rot( ij,l ) - rot( ij -iip1,l ) ) *
cusurcvu( ij )
subroutine nxgrad_loc(klevel, rot, x, y)
!$Header llmm1 INTEGER ip1jm
!$Header!CDK comgeom COMMON comgeom unsapolnga2 cusurcvu
c c zjulian c cym CALL iim cym klev iim
!$Header!CDK comgeom COMMON comgeom unsapolnga2 cvsurcuv