- 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/LIM_SRC_2/limadv_2.F90
r3625 r7910 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo ! work arrays26 25 USE prtctl ! Print control 27 26 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) … … 73 72 REAL(wp) :: zs1new, zalf , zalfq , zbt ! - - 74 73 REAL(wp) :: zs2new, zalf1, zalf1q, zbt1 ! - - 75 REAL(wp), DIMENSION( :,:), POINTER:: zf0, zfx , zfy , zbet ! 2D workspace76 REAL(wp), DIMENSION( :,:), POINTER:: zfm, zfxx, zfyy, zfxy ! - -77 REAL(wp), DIMENSION( :,:), POINTER:: zalg, zalg1, zalg1q ! - -74 REAL(wp), DIMENSION(jpi,jpj) :: zf0, zfx , zfy , zbet ! 2D workspace 75 REAL(wp), DIMENSION(jpi,jpj) :: zfm, zfxx, zfyy, zfxy ! - - 76 REAL(wp), DIMENSION(jpi,jpj) :: zalg, zalg1, zalg1q ! - - 78 77 !--------------------------------------------------------------------- 79 78 80 CALL wrk_alloc( jpi, jpj, zf0 , zfx , zfy , zbet, zfm )81 CALL wrk_alloc( jpi, jpj, zfxx, zfyy, zfxy, zalg, zalg1, zalg1q )82 79 83 80 ! Limitation of moments. … … 224 221 ENDIF 225 222 ! 226 CALL wrk_dealloc( jpi, jpj, zf0 , zfx , zfy , zbet, zfm )227 CALL wrk_dealloc( jpi, jpj, zfxx, zfyy, zfxy, zalg, zalg1, zalg1q )228 223 ! 229 224 END SUBROUTINE lim_adv_x_2 … … 256 251 REAL(wp) :: zs1new, zalf , zalfq , zbt ! - - 257 252 REAL(wp) :: zs2new, zalf1, zalf1q, zbt1 ! - - 258 REAL(wp), DIMENSION( :,:), POINTER:: zf0, zfx , zfy , zbet ! 2D workspace259 REAL(wp), DIMENSION( :,:), POINTER:: zfm, zfxx, zfyy, zfxy ! - -260 REAL(wp), DIMENSION( :,:), POINTER:: zalg, zalg1, zalg1q ! - -253 REAL(wp), DIMENSION(jpi,jpj) :: zf0, zfx , zfy , zbet ! 2D workspace 254 REAL(wp), DIMENSION(jpi,jpj) :: zfm, zfxx, zfyy, zfxy ! - - 255 REAL(wp), DIMENSION(jpi,jpj) :: zalg, zalg1, zalg1q ! - - 261 256 !--------------------------------------------------------------------- 262 257 263 CALL wrk_alloc( jpi, jpj, zf0 , zfx , zfy , zbet, zfm )264 CALL wrk_alloc( jpi, jpj, zfxx, zfyy, zfxy, zalg, zalg1, zalg1q )265 258 266 259 ! Limitation of moments. … … 410 403 ENDIF 411 404 ! 412 CALL wrk_dealloc( jpi, jpj, zf0 , zfx , zfy , zbet, zfm )413 CALL wrk_dealloc( jpi, jpj, zfxx, zfyy, zfxy, zalg, zalg1, zalg1q )414 405 ! 415 406 END SUBROUTINE lim_adv_y_2
Note: See TracChangeset
for help on using the changeset viewer.