- 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/P2Z/p2zexp.F90
r9124 r9125 64 64 INTEGER :: ji, jj, jk, jl, ikt 65 65 REAL(wp) :: zgeolpoc, zfact, zwork, ze3t, zsedpocd, zmaskt 66 REAL(wp), POINTER, DIMENSION(:,:) :: zsedpoca66 REAL(wp), DIMENSION(jpi,jpj) :: zsedpoca 67 67 CHARACTER (len=25) :: charout 68 68 !!--------------------------------------------------------------------- … … 72 72 IF( kt == nittrc000 ) CALL p2z_exp_init 73 73 74 CALL wrk_alloc( jpi, jpj, zsedpoca )75 74 zsedpoca(:,:) = 0. 76 75 … … 147 146 ENDIF 148 147 ! 149 CALL wrk_dealloc( jpi, jpj, zsedpoca) ! temporary save of trends150 151 148 IF(ln_ctl) THEN ! print mean trends (used for debugging) 152 149 WRITE(charout, FMT="('exp')") … … 167 164 INTEGER :: ji, jj, jk 168 165 REAL(wp) :: zmaskt, zfluo, zfluu 169 REAL(wp), POINTER, DIMENSION(:,: ) ::zrro170 REAL(wp), POINTER, DIMENSION(:,:,:) ::zdm0166 REAL(wp), DIMENSION(jpi,jpj ) :: zrro 167 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdm0 171 168 !!--------------------------------------------------------------------- 172 169 ! … … 178 175 ENDIF 179 176 ! 180 ! Allocate temporary workspace181 CALL wrk_alloc( jpi, jpj, zrro )182 CALL wrk_alloc( jpi, jpj, jpk, zdm0 )183 184 177 185 178 ! Calculate vertical distribution of newly formed biogenic poc … … 247 240 ENDIF 248 241 ! 249 CALL wrk_dealloc( jpi, jpj, zrro )250 CALL wrk_dealloc( jpi, jpj, jpk, zdm0 )251 !252 242 END SUBROUTINE p2z_exp_init 253 243
Note: See TracChangeset
for help on using the changeset viewer.