Ignore:
Timestamp:
Feb 7, 2019 10:11:02 AM (3 years ago)
Author:
raasch
Message:

modifications to avoid compiler warnings about unused variables, temperton-fft: GOTO statements replaced, file re-formatted corresponding to coding standards, ssh-calls for compilations on remote systems modified to avoid output of login messages on specific systems changed again (palmbuild, reverted as before r3549), error messages for failed restarts extended (palmrun)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poismg_mod.f90

    r3655 r3725  
    2525! -----------------
    2626! $Id$
     27! unused subroutine removed
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! unnecessary check eliminated
    2831!
     
    143146    INTERFACE sort_k_to_even_odd_blocks
    144147       MODULE PROCEDURE sort_k_to_even_odd_blocks
    145        MODULE PROCEDURE sort_k_to_even_odd_blocks_int
     148!       MODULE PROCEDURE sort_k_to_even_odd_blocks_int
    146149       MODULE PROCEDURE sort_k_to_even_odd_blocks_1d
    147150    END INTERFACE sort_k_to_even_odd_blocks
     
    11521155!> Version for 2D-INTEGER arrays
    11531156!------------------------------------------------------------------------------!
    1154     SUBROUTINE sort_k_to_even_odd_blocks_int( i_mg , glevel )
    1155 
    1156 
    1157        USE indices,                                                            &
    1158            ONLY:  nxl_mg, nxr_mg, nys_mg, nyn_mg, nzb, nzt_mg
    1159 
    1160        IMPLICIT NONE
    1161 
    1162        INTEGER(iwp), INTENT(IN) ::  glevel  !< grid level
    1163 
    1164        INTEGER(iwp), DIMENSION(nzb:nzt_mg(glevel)+1,                           &
    1165                                nys_mg(glevel)-1:nyn_mg(glevel)+1,              &
    1166                                nxl_mg(glevel)-1:nxr_mg(glevel)+1) ::           &
    1167                                     i_mg    !< array to be sorted
     1157!    SUBROUTINE sort_k_to_even_odd_blocks_int( i_mg , glevel )
     1158!
     1159!
     1160!       USE indices,                                                            &
     1161!           ONLY:  nxl_mg, nxr_mg, nys_mg, nyn_mg, nzb, nzt_mg
     1162!
     1163!       IMPLICIT NONE
     1164!
     1165!       INTEGER(iwp), INTENT(IN) ::  glevel  !< grid level
     1166!
     1167!       INTEGER(iwp), DIMENSION(nzb:nzt_mg(glevel)+1,                           &
     1168!                               nys_mg(glevel)-1:nyn_mg(glevel)+1,              &
     1169!                               nxl_mg(glevel)-1:nxr_mg(glevel)+1) ::           &
     1170!                                    i_mg    !< array to be sorted
    11681171!
    11691172!--    Local variables
    1170        INTEGER(iwp) :: i        !< index variabel along x
    1171        INTEGER(iwp) :: j        !< index variable along y
    1172        INTEGER(iwp) :: k        !< index variable along z
    1173        INTEGER(iwp) :: l        !< grid level
    1174        INTEGER(iwp) :: ind      !< index variable along z
    1175        INTEGER(iwp),DIMENSION(nzb:nzt_mg(glevel)+1) ::  tmp  !< temporary odd-even sorted array
    1176 
    1177 
    1178        CALL cpu_log( log_point_s(52), 'sort_k_to_even_odd', 'start' )
    1179 
    1180        l = glevel
    1181        ind_even_odd = even_odd_level(l)
    1182 
    1183        DO  i = nxl_mg(l)-1, nxr_mg(l)+1
    1184           DO  j = nys_mg(l)-1, nyn_mg(l)+1
    1185 
     1173!       INTEGER(iwp) :: i        !< index variabel along x
     1174!       INTEGER(iwp) :: j        !< index variable along y
     1175!       INTEGER(iwp) :: k        !< index variable along z
     1176!       INTEGER(iwp) :: l        !< grid level
     1177!       INTEGER(iwp) :: ind      !< index variable along z
     1178!       INTEGER(iwp),DIMENSION(nzb:nzt_mg(glevel)+1) ::  tmp  !< temporary odd-even sorted array
     1179!
     1180!
     1181!       CALL cpu_log( log_point_s(52), 'sort_k_to_even_odd', 'start' )
     1182!
     1183!       l = glevel
     1184!       ind_even_odd = even_odd_level(l)
     1185!
     1186!       DO  i = nxl_mg(l)-1, nxr_mg(l)+1
     1187!          DO  j = nys_mg(l)-1, nyn_mg(l)+1
     1188!
    11861189!
    11871190!--          Sort the data with even k index
    1188              ind = nzb-1
    1189              DO  k = nzb, nzt_mg(l), 2
    1190                 ind = ind + 1
    1191                 tmp(ind) = i_mg(k,j,i)
    1192              ENDDO
     1191!             ind = nzb-1
     1192!             DO  k = nzb, nzt_mg(l), 2
     1193!                ind = ind + 1
     1194!                tmp(ind) = i_mg(k,j,i)
     1195!             ENDDO
    11931196!
    11941197!--          Sort the data with odd k index
    1195              DO  k = nzb+1, nzt_mg(l)+1, 2
    1196                 ind = ind + 1
    1197                 tmp(ind) = i_mg(k,j,i)
    1198              ENDDO
    1199 
    1200              i_mg(:,j,i) = tmp
    1201 
    1202           ENDDO
    1203        ENDDO
    1204 
    1205        CALL cpu_log( log_point_s(52), 'sort_k_to_even_odd', 'stop' )
    1206 
    1207     END SUBROUTINE sort_k_to_even_odd_blocks_int
     1198!             DO  k = nzb+1, nzt_mg(l)+1, 2
     1199!                ind = ind + 1
     1200!                tmp(ind) = i_mg(k,j,i)
     1201!             ENDDO
     1202!
     1203!             i_mg(:,j,i) = tmp
     1204!
     1205!          ENDDO
     1206!       ENDDO
     1207!
     1208!       CALL cpu_log( log_point_s(52), 'sort_k_to_even_odd', 'stop' )
     1209!
     1210!    END SUBROUTINE sort_k_to_even_odd_blocks_int
    12081211
    12091212
Note: See TracChangeset for help on using the changeset viewer.