- 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/p4zmicro.F90
r9124 r9125 69 69 REAL(wp) :: zgrazp, zgrazm, zgrazsd 70 70 REAL(wp) :: zgrazmf, zgrazsf, zgrazpf 71 REAL(wp), POINTER, DIMENSION(:,:,:) :: zgrazing, zw3d 71 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazing 72 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zw3d 72 73 CHARACTER (len=25) :: charout 73 74 !!--------------------------------------------------------------------- 74 75 ! 75 76 IF( ln_timing ) CALL timing_start('p4z_micro') 76 !77 CALL wrk_alloc( jpi, jpj, jpk, zgrazing )78 77 ! 79 78 DO jk = 1, jpkm1 … … 177 176 IF( lk_iomput ) THEN 178 177 IF( knt == nrdttrc ) THEN 179 CALL wrk_alloc( jpi, jpj, jpk, zw3d)178 ALLOCATE( zw3d(jpi,jpj,jpk) ) 180 179 IF( iom_use( "GRAZ1" ) ) THEN 181 180 zw3d(:,:,:) = zgrazing(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ! Total grazing of phyto by zooplankton 182 181 CALL iom_put( "GRAZ1", zw3d ) 183 182 ENDIF 184 CALL wrk_dealloc( jpi, jpj, jpk,zw3d )183 DEALLOCATE( zw3d ) 185 184 ENDIF 186 185 ENDIF … … 191 190 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 192 191 ENDIF 193 !194 CALL wrk_dealloc( jpi, jpj, jpk, zgrazing )195 192 ! 196 193 IF( ln_timing ) CALL timing_stop('p4z_micro')
Note: See TracChangeset
for help on using the changeset viewer.