- 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/limrhg_2.F90
r7646 r7910 27 27 USE lbclnk ! lateral boundary condition - MPP exchanges 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo ! work arrays30 29 USE in_out_manager ! I/O manager 31 30 USE prtctl ! Print control … … 86 85 REAL(wp) :: zs22_11, zs22_12, zs22_21, zs22_22 87 86 REAL(wp) :: zintb, zintn 88 REAL(wp), POINTER, DIMENSION(:,:) :: zfrld, zmass, zcorl89 REAL(wp), POINTER, DIMENSION(:,:) :: za1ct, za2ct, zresr90 REAL(wp), POINTER, DIMENSION(:,:) :: zc1u, zc1v, zc2u, zc2v91 REAL(wp), POINTER, DIMENSION(:,:) :: zsang, zpice92 REAL(wp), POINTER, DIMENSION(:,:) :: zu0, zv093 REAL(wp), POINTER, DIMENSION(:,:) :: zu_n, zv_n94 REAL(wp), POINTER, DIMENSION(:,:) :: zu_a, zv_a95 REAL(wp), POINTER, DIMENSION(:,:) :: zviszeta, zviseta96 REAL(wp), POINTER, DIMENSION(:,:) :: zzfrld, zztms97 REAL(wp), POINTER, DIMENSION(:,:) :: zi1, zi2, zmasst, zpresh87 REAL(wp), DIMENSION(jpi,jpj) :: zfrld, zmass, zcorl 88 REAL(wp), DIMENSION(jpi,jpj) :: za1ct, za2ct, zresr 89 REAL(wp), DIMENSION(jpi,jpj) :: zc1u, zc1v, zc2u, zc2v 90 REAL(wp), DIMENSION(jpi,jpj) :: zsang, zpice 91 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zu0, zv0 92 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zu_n, zv_n 93 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zu_a, zv_a 94 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zviszeta, zviseta 95 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zzfrld, zztms 96 REAL(wp), DIMENSION(jpi,0:jpj+1) :: zi1, zi2, zmasst, zpresh 98 97 !!------------------------------------------------------------------- 99 98 100 CALL wrk_alloc( jpi,jpj, zfrld, zmass, zcorl, za1ct, za2ct, zresr )101 CALL wrk_alloc( jpi,jpj, zc1u , zc1v , zc2u , zc2v , zsang, zpice )102 CALL wrk_alloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kjstart = 0 )103 CALL wrk_alloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kjstart = 0 )104 99 105 100 ! Store initial velocities … … 600 595 ENDIF 601 596 602 CALL wrk_dealloc( jpi,jpj, zfrld, zmass, zcorl, za1ct, za2ct, zresr )603 CALL wrk_dealloc( jpi,jpj, zc1u , zc1v , zc2u , zc2v , zsang, zpice )604 CALL wrk_dealloc( jpi,jpj+2, zu0, zv0, zu_n, zv_n, zu_a, zv_a, zviszeta, zviseta, kjstart = 0 )605 CALL wrk_dealloc( jpi,jpj+2, zzfrld, zztms, zi1, zi2, zmasst, zpresh, kjstart = 0 )606 597 607 598 END SUBROUTINE lim_rhg_2
Note: See TracChangeset
for help on using the changeset viewer.