Ignore:
Timestamp:
2020-06-24T09:03:45+02:00 (16 months ago)
Author:
andmirek
Message:

Ticket #2482: Dissable restart and use allocatable arrays

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynldf_lap_blp.F90

    r10888 r13149  
    5656      REAL(wp) ::   zua, zva     ! local scalars 
    5757      REAL(wp), DIMENSION(jpi,jpj) ::   zcur, zdiv 
     58!     REAL(wp), ALLOCATABLE, DIMENSION(:, :) :: zcur, zdiv 
    5859      !!---------------------------------------------------------------------- 
    5960      ! 
    60       IF( kt == nit000 .AND. lwp ) THEN 
    61          WRITE(numout,*) 
    62          WRITE(numout,*) 'dyn_ldf : iso-level harmonic (laplacian) operator, pass=', kpass 
    63          WRITE(numout,*) '~~~~~~~ ' 
     61      IF( kt == nit000 ) THEN 
     62         IF(lwp) THEN 
     63            WRITE(numout,*) 
     64            WRITE(numout,*) 'dyn_ldf : iso-level harmonic (laplacian) operator, pass=', kpass 
     65            WRITE(numout,*) '~~~~~~~ ' 
     66         ENDIF 
     67!        ALLOCATE(zcur(jpi,jpj), zdiv(jpi,jpj)) 
    6468      ENDIF 
    6569      ! 
     
    122126      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pua, pva   ! momentum trend 
    123127      ! 
    124       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zulap, zvlap   ! laplacian at u- and v-point 
     128!     REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zulap, zvlap   ! laplacian at u- and v-point 
     129      REAL(wp), ALLOCATABLE, DIMENSION(:, :, :) :: zulap, zvlap 
    125130      !!---------------------------------------------------------------------- 
    126131      ! 
     
    129134         IF(lwp) WRITE(numout,*) 'dyn_ldf_blp : bilaplacian operator momentum ' 
    130135         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 
     136         ALLOCATE(zulap(jpi,jpj,jpk), zvlap(jpi,jpj,jpk)) 
    131137      ENDIF 
    132138      ! 
Note: See TracChangeset for help on using the changeset viewer.