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/sedbtb.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/sedbtb.F90

    r2528 r2761  
    2828      !!---------------------------------------------------------------------- 
    2929      !!* Arguments 
    30       INTEGER, INTENT(in) ::  & 
    31          kt              ! time step 
     30      INTEGER, INTENT(in) ::  kt              ! time step 
    3231 
    3332      ! * local variables 
    34  
    35       INTEGER :: & 
    36          ji, jk, js 
    37  
    38       REAL(wp), DIMENSION(:,:,:) , ALLOCATABLE ::  & 
    39          zsol                      ! solution 
     33      INTEGER :: ji, jk, js 
     34      REAL(wp), DIMENSION(:,:,:) , ALLOCATABLE ::  zsol  !   solution 
    4035      !------------------------------------------------------------------------ 
    4136 
Note: See TracChangeset for help on using the changeset viewer.