New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2858 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/declarations.f90 – NEMO

Ignore:
Timestamp:
2011-09-26T10:54:50+02:00 (13 years ago)
Author:
cbricaud
Message:

cleanning, minor modifications

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/declarations.f90

    r2849 r2858  
    1818  INTEGER, PUBLIC, PARAMETER   :: numdctout=2                   ! Unit for output file 
    1919 
    20   INTEGER, PUBLIC              :: jpidta,jpjdta,jpizoom,jpjzoom !dimensions des fichiers lus 
    21   INTEGER, PUBLIC              :: jpi,jpj,jpiglo,jpjglo         !dimensions du domaine 
    22   INTEGER, PUBLIC              :: nlei,nlej,nlci,nlcj 
     20  INTEGER, PUBLIC              :: jpi,jpj                       ! domain dimensions 
    2321  INTEGER, PUBLIC              :: nb_sec                        ! Number of section read in input file 
    2422  INTEGER, PUBLIC              :: nsecdebug = 0                 ! Number of the section to debug 
    2523 
    26   INTEGER,  PUBLIC, DIMENSION(:)    , ALLOCATABLE :: mig 
    27   INTEGER,  PUBLIC, DIMENSION(:)    , ALLOCATABLE :: mjg   
    2824  REAL(wp), PUBLIC ,DIMENSION(:,:)  , ALLOCATABLE :: glamf,gphif,glamt,gphit,e1t 
    29 !  REAL(wp), PUBLIC ,DIMENSION(:,:,:), ALLOCATABLE :: tmask 
    3025  INTEGER,  PUBLIC ,DIMENSION(nb_sec_max)         :: num_sec_debug 
    3126 
     
    5449                                                       zlay                ! level classes      (99 if you don't want) 
    5550     REAL(wp)                                       :: slopeSection        ! coeff directeur de la section 
    56      INTEGER                                        :: nb_point            ! nb de points de la section 
     51     INTEGER                                        :: nb_point            ! section's number of point 
    5752     TYPE(POINT_SECTION),DIMENSION(nb_point_max)    :: listPoint           ! list of point in the section 
    5853  END TYPE SECTION 
Note: See TracChangeset for help on using the changeset viewer.