- 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/p4zopt.F90
r9124 r9125 64 64 REAL(wp) :: zchl 65 65 REAL(wp) :: zc0 , zc1 , zc2, zc3, z1_dep 66 REAL(wp), POINTER, DIMENSION(:,: ) :: zdepmoy, zetmp1, zetmp2, zetmp3, zetmp467 REAL(wp), POINTER, DIMENSION(:,: ) :: zetmp568 REAL(wp), POINTER, DIMENSION(:,:) :: zqsr100, zqsr_corr69 REAL(wp), POINTER, DIMENSION(:,:,:) :: zpar, ze0, ze1, ze2, ze3, zchl3d66 REAL(wp), ALLOCATABLE, DIMENSION(:,: ) :: zetmp5 67 REAL(wp), DIMENSION(jpi,jpj ) :: zdepmoy, zetmp1, zetmp2, zetmp3, zetmp4 68 REAL(wp), DIMENSION(jpi,jpj ) :: zqsr100, zqsr_corr 69 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zpar, ze0, ze1, ze2, ze3, zchl3d 70 70 !!--------------------------------------------------------------------- 71 71 ! … … 73 73 ! 74 74 ! Allocate temporary workspace 75 CALL wrk_alloc( jpi, jpj, zdepmoy, zetmp1, zetmp2, zetmp3, zetmp4 ) 76 CALL wrk_alloc( jpi, jpj, zqsr100, zqsr_corr ) 77 IF( ln_p5z ) CALL wrk_alloc( jpi, jpj, zetmp5 ) 78 CALL wrk_alloc( jpi, jpj, jpk, zpar , ze0, ze1, ze2, ze3, zchl3d ) 75 IF( ln_p5z ) ALLOCATE( zetmp5(jpi,jpj) ) 79 76 80 77 IF( knt == 1 .AND. ln_varpar ) CALL p4z_opt_sbc( kt ) … … 243 240 ENDIF 244 241 ! 245 CALL wrk_dealloc( jpi, jpj, zdepmoy, zetmp1, zetmp2, zetmp3, zetmp4 ) 246 CALL wrk_dealloc( jpi, jpj, zqsr100, zqsr_corr ) 247 IF( ln_p5z ) CALL wrk_dealloc( jpi, jpj, zetmp5 ) 248 CALL wrk_dealloc( jpi, jpj, jpk, zpar , ze0, ze1, ze2, ze3, zchl3d ) 242 IF( ln_p5z ) DEALLOCATE( zetmp5 ) 249 243 ! 250 244 IF( ln_timing ) CALL timing_stop('p4z_opt')
Note: See TracChangeset
for help on using the changeset viewer.