Changeset 136 for trunk/NEMO

Timestamp:

2004-07-07T16:36:56+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE080 : Now the previous bathymetry level file (bathy_level) which was in ASCII format must be converted into NetCDF format (bathy_level.nc) to be read

File:

• trunk/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -266 +266 @@
 
       !! * Local declarations
-      CHARACTER (len=15) ::  &
-         clexp ,                     &  ! temporary characters
-         clname                         !    "           "
+      CHARACTER (len=15) ::   clname    ! temporary characters
       LOGICAL ::   llbon                ! check the existence of bathy files
-      INTEGER ::   ji, jj, jl, jn, jk   ! dummy loop indices
+      INTEGER ::   ji, jj, jl, jk       ! dummy loop indices
       INTEGER ::   inum = 11            ! temporary logical unit
-      INTEGER ::   &
-         iim, ijm, ifreq,            &  ! temporary integers
-         il1, il2, ij, ii               ! (user to read "bathy_level" file
       INTEGER  ::   &
          ipi, ipj, ipk,              &  ! temporary integers