1 SUBROUTINE ZMNLAT 2 O( RLAT, 3 I MAXJZ, COL, JMX ) 4 DIMENSION RLAT( MAXJZ ), COL( JMX ) 5 C 6 RADEG =180.0D0/pi 7 CALL RESET( RLAT, MAXJZ ) 8 DO 10 J = 1, MAXJZ 9 DO 20 I = 1, JMX/MAXJZ 10 RLAT( J ) = RLAT( J ) 11 1 + 90.0 - RADEG*COL( (J-1)*JMX/MAXJZ + I ) 12 20 CONTINUE 13 10 CONTINUE 14 DO 30 J = 1, MAXJZ 15 RLAT( J ) = RLAT( J ) / (JMX/MAXJZ) 16 30 CONTINUE 17 C 18 RETURN 19 END SUBROUTINE ZMNLAT