- 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/DYN/dynspg.F90
r7753 r7910 28 28 USE in_out_manager ! I/O manager 29 29 USE lib_mpp ! MPP library 30 USE wrk_nemo ! Memory Allocation31 30 USE timing ! Timing 32 31 … … 75 74 INTEGER :: ji, jj, jk ! dummy loop indices 76 75 REAL(wp) :: z2dt, zg_2, zintp, zgrau0r ! temporary scalar 77 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv78 REAL(wp), POINTER, DIMENSION(:,:) :: zpice76 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv 77 REAL(wp), DIMENSION(jpi,jpj) :: zpice 79 78 !!---------------------------------------------------------------------- 80 79 ! … … 82 81 ! 83 82 IF( l_trddyn ) THEN ! temporary save of ta and sa trends 84 CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv )85 83 ztrdu(:,:,:) = ua(:,:,:) 86 84 ztrdv(:,:,:) = va(:,:,:) … … 124 122 ! 125 123 IF( nn_ice_embd == 2 ) THEN !== embedded sea ice: Pressure gradient due to snow-ice mass ==! 126 CALL wrk_alloc( jpi,jpj, zpice )127 124 ! 128 125 zintp = REAL( MOD( kt-1, nn_fsbc ) ) / REAL( nn_fsbc ) … … 136 133 END DO 137 134 ! 138 CALL wrk_dealloc( jpi,jpj, zpice )139 135 ENDIF 140 136 ! … … 161 157 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 162 158 CALL trd_dyn( ztrdu, ztrdv, jpdyn_spg, kt ) 163 CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )164 159 ENDIF 165 160 ! ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.