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

    r2528 r2761  
    1717 
    1818   !! *  Module variables 
    19    REAL(wp), DIMENSION(:), ALLOCATABLE :: & 
    20       smask       ! mask for sediments points 
    21  
    22    REAL(wp) ::  & 
    23       rsecday  , &  ! number of second per a day 
    24       conv1    , &  ! [m/day]--->[cm/s]   
    25       conv2         ! [kg/m2/month]-->[g/cm2/s] ( 1 month has 30 days ) 
    26  
    27    INTEGER ::     & 
    28      numbio  
     19   REAL(wp), DIMENSION(:), ALLOCATABLE ::  smask       ! mask for sediments points 
     20   REAL(wp) ::  rsecday  ! number of second per a day 
     21   REAL(wp) ::  conv1    ! [m/day]--->[cm/s]   
     22   REAL(wp) ::  conv2    ! [kg/m2/month]-->[g/cm2/s] ( 1 month has 30 days ) 
     23 
     24   INTEGER ::  numbio 
    2925 
    3026#if defined key_sed_off 
    31    INTEGER ::     & 
    32      numoce 
     27   INTEGER ::  numoce 
    3328#endif 
    3429 
    … …  
    5348 
    5449      !! Arguments 
    55       INTEGER, INTENT(in) :: & 
    56          kt 
     50      INTEGER, INTENT(in) ::  kt    ! time-step 
    5751 
    5852      !! * Local declarations 
    5953      INTEGER  ::  ji, jj, js, jw, ikt 
    6054 
    61       REAL(wp) , DIMENSION (jpi,jpj) :: zdta 
     55      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zdta 
    6256#if ! defined key_kriest 
    63       REAL(wp) , DIMENSION (:), ALLOCATABLE  :: zdtap , zdtag 
     57      REAL(wp), DIMENSION(:)  , ALLOCATABLE :: zdtap, zdtag 
    6458#endif  
    6559 
    … …  
    9084 
    9185         ! Compute sediment mask 
     86         ALLOCATE( zdta(jpi,jpj) )  
    9287         DO jj = 1, jpj 
    9388            DO ji = 1, jpi 
    … …  
    10499#if ! defined key_kriest    
    105100      ! Initialization of temporaries arrays   
    106       ALLOCATE( zdtap   (jpoce) )    ;   zdtap(:)    = 0.  
    107       ALLOCATE( zdtag   (jpoce) )    ;   zdtag(:)    = 0.   
     101      ALLOCATE( zdtap(jpoce) )    ;   zdtap(:)    = 0.  
     102      ALLOCATE( zdtag(jpoce) )    ;   zdtag(:)    = 0.   
    108103#endif 
    109104 
    … …  
    255250 
    256251 
     252      DEALLOCATE( zdta )  
    257253#if ! defined key_kriest 
    258254      DEALLOCATE( zdtap    ) ;  DEALLOCATE( zdtag    )  
Note: See TracChangeset for help on using the changeset viewer.