Index: trunk/NEMO/OPA_SRC/DOM/domhgr.F90
===================================================================
--- trunk/NEMO/OPA_SRC/DOM/domhgr.F90	(revision 236)
+++ trunk/NEMO/OPA_SRC/DOM/domhgr.F90	(revision 239)
@@ -8,5 +8,4 @@
    !!   dom_hgr        : initialize the horizontal mesh 
    !!   hgr_read       : read "coordinate" NetCDF file 
-   !!   hgr_read_fdir  : read "coordinate" direct access file 
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -130,9 +129,6 @@
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) '          curvilinear coordinate on the sphere read in "coordinate" file'
-#if defined key_fdir
-         CALL hgr_read_fdir      ! 'key_fdir'       :   direct access file
-#else
+
          CALL hgr_read           ! Defaultl option  :   NetCDF file
-#endif
 
          !                                                ! =====================
@@ -644,286 +640,4 @@
    END SUBROUTINE hgr_read
 
-
-   SUBROUTINE hgr_read_fdir
-      !!----------------------------------------------------------------------
-      !!                 ***  ROUTINE hgr_read_fdir  ***
-      !!
-      !!----------------------------------------------------------------------
-      !! * Local declarations
-      CHARACTER (len=5) ::   clfield
-      CHARACTER(len=21) ::   clname = 'coordinates'
-      INTEGER ::   ji, jj         ! dummy loop indices
-      INTEGER ::   inumcoo = 11   ! logical unit for coordinate file
-      INTEGER ::   ijpi, ijpj     ! temporary integers
-      REAL(wp), DIMENSION(jpi,jpj) ::   zdta   ! temporary workspace
-      !!----------------------------------------------------------------------
-
-
-      ! 1. Read of the grid coordinates and scale factors
-      ! -------------------------------------------------
-
-      IF(lwp) THEN
-         WRITE(numout,*)
-         WRITE(numout,*) 'hgrcoo : read the horizontal coordinates'
-         WRITE(numout,*) '~~~~~~'
-         WRITE(numout,*) '         jpiglo jpjglo jpk : ', jpiglo, jpjglo, jpk
-      ENDIF
-
-      ! open the file
-          CALL ctlopn( inumcoo, clname, 'OLD', 'UNFORMATTED', 'SEQUENTIAL',   &
-                       1      , numout       , lwp  , 1                            )
-
-      ! read the file
-      READ(inumcoo) ijpi,ijpj
-      IF( (ijpi /= jpidta) .OR. (ijpj /= jpjdta) ) THEN
-         IF(lwp) THEN
-            WRITE(numout,*)
-            WRITE(numout,*) '         inconsitency in reading coordinate file, unit=',inumcoo
-            WRITE(numout,*) '            jpidta = ',jpidta  ,' jpi  read = ',ijpi
-            WRITE(numout,*) '            jpjdta = ',jpjdta  ,' jpj  read = ',ijpj
-            WRITE(numout,*)
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-
-      READ(inumcoo) clfield, zdta
-      IF( clfield /= 'GLAMT' ) THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GLAMT'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            glamt(ji,jj) = zdta(mig(ji),mjg(jj))
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GLAMU') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GLAMU'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            glamu(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GLAMV') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GLAMV'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            glamv(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GLAMF') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GLAMF'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            glamf(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GPHIT') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GPHIT'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            gphit(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GPHIU') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GPHIU'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            gphiu(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GPHIV') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GPHIV'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            gphiv(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'GPHIF') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' GPHIF'
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            gphif(ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E1T  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E1T  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e1t  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E1U  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E1U  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e1u  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E1V  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E1V  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e1v  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E1F  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E1F  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e1f  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E2T  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E2T  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e2t  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E2U  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E2U  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e2u  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E2V  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E2V  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e2v  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-      READ(inumcoo) clfield, zdta
-      IF(clfield /= 'E2F  ') THEN
-         IF(lwp) THEN
-            WRITE(numout,cform_err)
-            WRITE(numout,*) 'hgrcoo: bad read',clfield,' E2F  '
-         ENDIF
-         nstop = nstop + 1
-      ENDIF
-      DO jj = 1, nlcj
-         DO ji = 1, nlci
-            e2f  (ji,jj) = zdta(mig(ji),mjg(jj))                    
-         END DO
-      END DO
-
-      CLOSE( inumcoo )
-
-      ! set extra rows add in mpp to none zero values
-      DO jj = nlcj+1, jpj
-         DO ji = 1, nlci
-            glamt(ji,jj) = glamt(ji,1)   ;   gphit(ji,jj) = gphit(ji,1)
-            glamu(ji,jj) = glamu(ji,1)   ;   gphiu(ji,jj) = gphiu(ji,1)
-            glamv(ji,jj) = glamv(ji,1)   ;   gphiv(ji,jj) = gphiv(ji,1)
-            glamf(ji,jj) = glamf(ji,1)   ;   gphif(ji,jj) = gphif(ji,1)
-            e1t  (ji,jj) = e1t  (ji,1)   ;   e2t  (ji,jj) = e2t  (ji,1)
-            e1u  (ji,jj) = e1u  (ji,1)   ;   e2u  (ji,jj) = e2u  (ji,1)
-            e1v  (ji,jj) = e1v  (ji,1)   ;   e2v  (ji,jj) = e2v  (ji,1)
-            e1f  (ji,jj) = e1f  (ji,1)   ;   e2f  (ji,jj) = e2f  (ji,1)
-         END DO
-      END DO
-
-      ! set extra columns add in mpp to none zero values
-      DO ji = nlci+1, jpi
-         glamt(ji,:) = glamt(1,:)   ;   gphit(ji,:) = gphit(1,:)
-         glamu(ji,:) = glamu(1,:)   ;   gphiu(ji,:) = gphiu(1,:)
-         glamv(ji,:) = glamv(1,:)   ;   gphiv(ji,:) = gphiv(1,:)
-         glamf(ji,:) = glamf(1,:)   ;   gphif(ji,:) = gphif(1,:)
-         e1t  (ji,:) = e1t  (1,:)   ;   e2t  (ji,:) = e2t  (1,:)
-         e1u  (ji,:) = e1u  (1,:)   ;   e2u  (ji,:) = e2u  (1,:)
-         e1v  (ji,:) = e1v  (1,:)   ;   e2v  (ji,:) = e2v  (1,:)
-         e1f  (ji,:) = e1f  (1,:)   ;   e2f  (ji,:) = e2f  (1,:)
-      END DO
-
-   END SUBROUTINE hgr_read_fdir
-
    !!======================================================================
 END MODULE domhgr
