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 2761 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedwri.F90 – NEMO

Ignore:
Timestamp:
2011-05-03T12:49:22+02:00 (13 years ago)
Author:
cetlod
Message:

Changes in sediment model to use with dynamic memory, see ticket #821

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedwri.F90

    r2528 r2761  
    77   USE sed 
    88   USE sedarr 
     9   USE ioipsl 
     10   USE dianam    ! build name of file (routine) 
    911 
    1012   IMPLICIT NONE 
     
    1315   !! * Accessibility 
    1416   PUBLIC sed_wri  
     17 
     18   INTEGER  :: nised 
     19   INTEGER  :: nhorised 
     20   INTEGER  :: ndimt52 
     21   INTEGER  :: ndimt51 
     22   INTEGER  :: ndepsed 
     23   REAL(wp) :: zjulian 
     24   INTEGER, ALLOCATABLE, SAVE, DIMENSION(:) :: ndext52   
     25   INTEGER, ALLOCATABLE, SAVE, DIMENSION(:) :: ndext51 
    1526 
    1627CONTAINS 
     
    2839      !!        !  06-07  (C. Ethe)  original 
    2940      !!---------------------------------------------------------------------- 
    30       !! * Local variables 
    31       USE ioipsl 
    32       USE dianam    ! build name of file (routine) 
    3341 
    3442      INTEGER, INTENT(in) :: kt 
    3543 
    3644      CHARACTER(len = 60)  ::  clhstnam, clop 
    37       INTEGER , SAVE :: nised, nhorised, ndimt52, ndimt51, ndepsed 
    38       REAL(wp), SAVE :: zjulian 
    39       INTEGER , DIMENSION(jpij*jpksed) , SAVE :: ndext52   
    40       INTEGER , DIMENSION(jpij) , SAVE :: ndext51 
     45      INTEGER  :: ji, jk, js, jw, jn 
    4146      REAL(wp) :: zsto,zout, zdt 
    42       INTEGER :: iimi, iima, ijmi, ijma,ipk, it, itmod 
    43       INTEGER :: jn 
     47      INTEGER  :: iimi, iima, ijmi, ijma,ipk, it, itmod 
    4448      CHARACTER(len = 20)  ::  cltra , cltrau 
    4549      CHARACTER(len = 80)  ::  cltral 
    46  
    47       INTEGER   :: ji, jk, js, jw 
    4850      REAL(wp)  :: zrate 
    49       REAL(wp), DIMENSION(:,:) , ALLOCATABLE :: zdta, zflx 
     51      REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdta, zflx 
    5052 
    5153      !!------------------------------------------------------------------- 
     
    5456      ! Initialisation 
    5557      ! -----------------  
    56  
     58      IF( kt == nit000 )   ALLOCATE( ndext52(jpij*jpksed), ndext51(jpij) ) 
    5759 
    5860      ! Define frequency of output and means 
Note: See TracChangeset for help on using the changeset viewer.