Changeset 7917


Ignore:
Timestamp:
2017-04-18T10:47:12+02:00 (3 years ago)
Author:
timgraham
Message:

A few corrections for SETTE compilation

Location:
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

    r7910 r7917  
    6565      INTEGER , PARAMETER                 ::  num_convfrq  = 5          ! convergence check frequency of the Crant-Nicholson scheme (perf. optimization) 
    6666      REAL(wp), POINTER, DIMENSION(:)     ::  zconv 
    67       REAL(wp), DIMENSION(jpi,jpj,isize) ::  zrlx, zdiv0, ztab0 
     67      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET ::  zrlx 
     68      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::  zdiv0, ztab0 
    6869      REAL(wp), DIMENSION(jpi,jpj)   ::  zflu, zflv, zdiv 
    6970      !!------------------------------------------------------------------- 
     
    8182      ALLOCATE( type_array(isize) ) 
    8283      ALLOCATE( psgn_array(isize) ) 
     84      ALLOCATE( zrlx(jpi, jpj, isize), zdiv0(jpi,jpj,isize),ztab0(jpi,jpj,isize)) 
     85 
    8386 
    8487       
     
    208211      DEALLOCATE( type_array ) 
    209212      DEALLOCATE( psgn_array ) 
     213      DEALLOCATE( zrlx, zdiv0, ztab0 ) 
    210214      ! 
    211215   END SUBROUTINE lim_hdf 
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r7910 r7917  
    458458!!!       
    459459 
    460       Call wrk_dealloc( 4,             itest ) 
    461  
    462460   END SUBROUTINE lim_istate 
    463461 
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r7910 r7917  
    7474      REAL(wp), DIMENSION(jpi,jpj,jpl)    ::   zhimax, zviold, zvsold 
    7575      ! --- diffusion --- ! 
    76       REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1)    ::   zhdfptab 
    7776      INTEGER , PARAMETER                    ::   ihdf_vars  = 6 ! Number of variables in which we apply horizontal diffusion 
    7877                                                                 !  inside limtrp for each ice category , not counting the  
    7978                                                                 !  variables corresponding to ice_layers  
     79      REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1)    ::   zhdfptab 
    8080      ! --- ultimate macho only --- ! 
    8181      REAL(wp)                               ::   zdt 
Note: See TracChangeset for help on using the changeset viewer.