- Timestamp:
- 2017-12-19T09:47:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zpoc.F90
r9124 r9125 63 63 REAL(wp) :: zrfact2 64 64 CHARACTER (len=25) :: charout 65 REAL(wp), POINTER, DIMENSION(:,:) :: totprod, totthick, totcons66 REAL(wp), POINTER, DIMENSION(:,:,:) :: zremipoc, zremigoc, zorem3, ztremint67 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: alphag65 REAL(wp), DIMENSION(jpi,jpj ) :: totprod, totthick, totcons 66 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zremipoc, zremigoc, zorem3, ztremint 67 REAL(wp), DIMENSION(jpi,jpj,jpk,jcpoc) :: alphag 68 68 !!--------------------------------------------------------------------- 69 69 ! 70 70 IF( ln_timing ) CALL timing_start('p4z_poc') 71 71 ! 72 ! Allocate temporary workspace73 CALL wrk_alloc( jpi, jpj, totprod, totthick, totcons )74 CALL wrk_alloc( jpi, jpj, jpk, zremipoc, zremigoc, zorem3, ztremint )75 ALLOCATE( alphag(jpi,jpj,jpk,jcpoc) )76 77 72 ! Initialization of local variables 78 73 ! --------------------------------- … … 465 460 ENDIF 466 461 ! 467 CALL wrk_dealloc( jpi, jpj, totprod, totthick, totcons )468 CALL wrk_dealloc( jpi, jpj, jpk, zremipoc, zremigoc, zorem3, ztremint )469 DEALLOCATE( alphag )470 462 ! 471 463 IF( ln_timing ) CALL timing_stop('p4z_poc')
Note: See TracChangeset
for help on using the changeset viewer.