- Timestamp:
- 2019-04-05T16:01:32+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r10037_GPU/src/TOP/PISCES/SED/sedarr.F90
r9950 r10843 4 4 !! transform 1D (2D) array to a 2D (1D) table 5 5 !!====================================================================== 6 #if defined key_sed 6 7 7 !!---------------------------------------------------------------------- 8 8 !! arr_2d_1d : 2-D to 1-D … … 11 11 !! * Modules used 12 12 USE par_sed 13 USE dom_oce 14 USE sed 13 15 14 16 IMPLICIT NONE … … 28 30 29 31 !!---------------------------------------------------------------------- 30 !! NEMO/TOP 3.3 , NEMO Consortium (201 8)32 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 31 33 !! $Id$ 32 !! Software governed by the CeCILL licence ( ./LICENSE)34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 33 35 !!---------------------------------------------------------------------- 34 36 CONTAINS … … 42 44 43 45 INTEGER :: jn, jid, jjd 46 47 IF( ln_timing ) CALL timing_start('pack_arr_2d_1d') 44 48 45 49 DO jn = 1, ndim1d … … 48 52 tab1d(jn) = tab2d(jid, jjd) 49 53 END DO 54 55 IF( ln_timing ) CALL timing_stop('pack_arr_2d_1d') 50 56 51 57 END SUBROUTINE pack_arr_2d_1d … … 59 65 INTEGER :: jn, jid, jjd 60 66 67 IF( ln_timing ) CALL timing_start('unpack_arr_1d_2d') 68 61 69 DO jn = 1, ndim1d 62 70 jid = MOD( tab_ind(jn) - 1, jpi) + 1 … … 64 72 tab2d(jid, jjd) = tab1d(jn) 65 73 END DO 74 75 IF( ln_timing ) CALL timing_stop('unpack_arr_1d_2d') 66 76 67 77 END SUBROUTINE unpack_arr_1d_2d … … 75 85 INTEGER, DIMENSION(ndim1d) :: jid, jjd 76 86 INTEGER :: jk, jn , ji, jj 87 88 IF( ln_timing ) CALL timing_start('pack_arr_2d_3d') 77 89 78 90 DO jn = 1, ndim1d … … 88 100 ENDDO 89 101 ENDDO 102 103 IF( ln_timing ) CALL timing_stop('pack_arr_2d_3d') 90 104 91 105 END SUBROUTINE pack_arr_3d_2d … … 100 114 INTEGER, DIMENSION(ndim1d) :: jid, jjd 101 115 INTEGER :: jk, jn , ji, jj 102 103 DO jn = 1, ndim1d 116 ! 117 IF( ln_timing ) CALL timing_start('unpack_arr_2d_3d') 118 ! 119 DO jn = 1, ndim1d 104 120 jid(jn) = MOD( tab_ind(jn) - 1, jpi ) + 1 105 121 jjd(jn) = ( tab_ind(jn) - 1 ) / jpi + 1 … … 114 130 ENDDO 115 131 132 IF( ln_timing ) CALL timing_stop('unpack_arr_2d_3d') 133 116 134 END SUBROUTINE unpack_arr_2d_3d 117 135 118 #else119 !!======================================================================120 !! MODULE sedarr : Dummy module121 !!======================================================================122 CONTAINS123 SUBROUTINE pack_arr ! Empty routine124 END SUBROUTINE pack_arr125 SUBROUTINE unpack_arr ! Empty routine126 END SUBROUTINE unpack_arr127 !!======================================================================128 #endif129 136 END MODULE sedarr
Note: See TracChangeset
for help on using the changeset viewer.