- Timestamp:
- 2017-03-09T11:38:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90
r6486 r7771 93 93 REAL(wp) :: zgcad ! temporary scalars 94 94 REAL(wp), DIMENSION(2) :: zsum 95 REAL(wp), POINTER, DIMENSION(:,:) :: zgcr95 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zgcr 96 96 !!---------------------------------------------------------------------- 97 97 ! 98 98 IF( nn_timing == 1 ) CALL timing_start('sol_pcg') 99 99 ! 100 CALL wrk_alloc( jpi, jpj, zgcr)100 ALLOCATE( zgcr(1:jpi,1:jpj) ) 101 101 ! 102 102 ! Initialization of the algorithm with standard PCG … … 210 210 CALL lbc_lnk( gcx, c_solver_pt, 1. ) ! Output in gcx with lateral b.c. applied 211 211 ! 212 CALL wrk_dealloc( jpi, jpj,zgcr )212 DEALLOCATE ( zgcr ) 213 213 ! 214 214 IF( nn_timing == 1 ) CALL timing_stop('sol_pcg')
Note: See TracChangeset
for help on using the changeset viewer.