15 #include "dimensions.h"
22 REAL rot(
ip1jm,klevel )
38 rot( ij,l ) = y( ij+1 , l ) - y( ij,l ) +
39 * x(ij +iip1, l ) - x( ij,l )
45 DO ij = ijb+iip1-1, ije, iip1
46 rot( ij,l ) = rot( ij -
iim,l )
!$Header llmm1 INTEGER ip1jmp1
!$Header llmm1 INTEGER ip1jm
subroutine rotat_nfil_p(klevel, x, y, rot)
c c zjulian c cym CALL iim cym klev iim