C INFORMATION c Z(K): sigma coordinate which spans the domain, Z(1)=0 (surface) to Z(KMAX)=-1 c (bottom) c ZZ(K): sigma coordinate, intermediate between Z c H(I,J): the bottom depth(in meters). H(I,J)=1 denotes a land point c ALAT(I,J): latitude of T,S grid points c ALON(I,J): longitude of T,S grid points c ----------------------------------------------------------------------------- PARAMETER (IMAX=493, JMAX=316, KMAX=25) DIMENSION H(IMAX,JMAX),ALAT(IMAX,JMAX),ALON(IMAX,JMAX) DIMENSION Z(KMAX), ZZ(KMAX) OPEN(51,FILE='alermo_30.dat') DO 10 J=JMAX,1,-1 READ(51,101) (H(I,J),I=1,IMAX) 10 CONTINUE DO 20 J=JMAX,1,-1 READ(51,101) (ALAT(I,J),I=1,IMAX) 20 CONTINUE DO 30 J=JMAX,1,-1 READ(51,101) (ALON(I,J),I=1,IMAX) 30 CONTINUE DO 40 K=KMAX,1,-1 READ(51,105) Z(K),ZZ(K) 40 CONTINUE CLOSE(51) 101 FORMAT (5E12.5) 105 FORMAT (2E12.5) STOP END