- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90
r7753 r8882 36 36 USE lib_mpp ! MPP library 37 37 USE restart ! restart 38 USE wrk_nemo ! Memory allocation39 38 USE timing ! Timing 40 39 … … 60 59 !!---------------------------------------------------------------------- 61 60 INTEGER :: ji, jj, jk ! dummy loop indices 62 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: zuvd ! U & V data workspace 61 !!gm see comment further down 62 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: zuvd ! U & V data workspace 63 !!gm end 63 64 !!---------------------------------------------------------------------- 64 65 ! 65 IF( nn_timing == 1) CALL timing_start('istate_init')66 IF( ln_timing ) CALL timing_start('istate_init') 66 67 ! 67 68 IF(lwp) WRITE(numout,*) … … 121 122 !!gm to be moved in usrdef of C1D case 122 123 ! IF ( ln_uvd_init .AND. lk_c1d ) THEN ! read 3D U and V data at nit000 123 ! CALL wrk_alloc( jpi,jpj,jpk,2, zuvd)124 ! ALLOCATE( zuvd(jpi,jpj,jpk,2) ) 124 125 ! CALL dta_uvd( nit000, zuvd ) 125 126 ! ub(:,:,:) = zuvd(:,:,:,1) ; un(:,:,:) = ub(:,:,:) 126 127 ! vb(:,:,:) = zuvd(:,:,:,2) ; vn(:,:,:) = vb(:,:,:) 127 ! CALL wrk_dealloc( jpi,jpj,jpk,2,zuvd )128 ! DEALLOCATE( zuvd ) 128 129 ! ENDIF 129 130 ! … … 164 165 vb_b(:,:) = vb_b(:,:) * r1_hv_b(:,:) 165 166 ! 166 IF( nn_timing == 1) CALL timing_stop('istate_init')167 IF( ln_timing ) CALL timing_stop('istate_init') 167 168 ! 168 169 END SUBROUTINE istate_init
Note: See TracChangeset
for help on using the changeset viewer.