- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r7646 r7910 22 22 USE in_out_manager 23 23 USE lib_mpp 24 USE wrk_nemo25 24 USE timing ! Timing 26 25 … … 73 72 INTEGER :: ierr ! allocation error status 74 73 INTEGER :: ios ! Local integer output status for namelist read 75 REAL(wp), DIMENSION( :,:,:), POINTER:: ze3t, ze3u, ze3v, ze3w74 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, ze3w 76 75 77 76 NAMELIST/namcrs/ nn_factx, nn_facty, nn_binref, nn_msh_crs, nn_crs_kz, ln_crs_wn … … 183 182 184 183 ! 185 CALL wrk_alloc( jpi,jpj,jpk, ze3t, ze3u, ze3v, ze3w )186 184 ! 187 185 ze3t(:,:,:) = e3t_n(:,:,:) … … 248 246 ! 7. Finish and clean-up 249 247 !--------------------------------------------------------- 250 CALL wrk_dealloc( jpi,jpj,jpk, ze3t, ze3u, ze3v, ze3w )251 248 ! 252 249 END SUBROUTINE crs_init
Note: See TracChangeset
for help on using the changeset viewer.