Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 2514 for palm/trunk


Ignore:
Timestamp:
Oct 4, 2017 9:52:37 AM (7 years ago)
Author:
suehring
Message:

Remove tabs from code, causing problems during merging

Location:
palm/trunk/SOURCE
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/check_open.f90

    r2512 r2514  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Remove tabs
    2323!
    2424! Former revisions:
    … …  
    228228
    229229       CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109, 117 )
    230              
     230     
    231231          IF ( myid /= 0 )  THEN
    232232             WRITE( message_string, * ) 'opening file-id ',file_id,            &
    … …  
    244244                CALL message( 'check_open', 'PA0167', 2, 2, -1, 6, 1 )
    245245             ENDIF
    246              
     246     
    247247          ENDIF
    248248

  • palm/trunk/SOURCE/init_dvrp.f90

    r2300 r2514  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Remove tabs
    2323!
    2424! Former revisions:
    … …  
    282282                           (clip_dvrp_r-clip_dvrp_l) * superelevation_x,       &
    283283                           (clip_dvrp_n-clip_dvrp_s) * superelevation_y,       &
    284                                 ( zu(nz_do3d) - zu(nzb) ) * superelevation          &
    285                                        )
     284                           ( zu(nz_do3d) - zu(nzb) ) * superelevation          &
     285                                  )
    286286
    287287!

  • palm/trunk/SOURCE/init_pegrid.f90

    r2414 r2514  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Remove tabs
    2323!
    2424! Former revisions:
    … …  
    437437                       'requirements given by the number of PEs &used',       &
    438438                       '& please use nx = ', nx - ( pdims(1) - ( nnx*pdims(1) &
    439                                    - ( nx + 1 ) ) ), ' instead of nx =', nx
     439                                      - ( nx + 1 ) ) ), ' instead of nx =', nx
    440440          CALL message( 'init_pegrid', 'PA0226', 1, 2, 0, 6, 0 )
    441441       ENDIF

  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r2512 r2514  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Remove tabs
    2323!
    2424! Former revisions:
    … …  
    27292729!--          Normalize so that the sum = 1. Only relevant when the root distribution was
    27302730!--          set to zero due to pavement at some layers.
    2731              IF ( SUM( surf_lsm_h%root_fr(:,m) ) > 0.0_wp )  THEN
     2731             IF ( SUM( surf_lsm_h%root_fr(:,m) ) > 0.0_wp )  THEN
    27322732                DO k = nzb_soil, nzt_soil
    27332733                   surf_lsm_h%root_fr(k,m) = surf_lsm_h%root_fr(k,m) / SUM( surf_lsm_h%root_fr(:,m) )

  • palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

    r2280 r2514  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Remove tabs
    2424!
    2525! Former revisions:
    … …  
    544544       IF ( bad_llcorner /= 0)  THEN
    545545          WRITE ( message_string, *)  'at least one dimension of lower ',       &
    546                                       'left corner of one domain is not 0. ',   &
     546                                      'left corner of one domain is not 0. ',   &
    547547                                      'All lower left corners were set to (0, 0)'
    548548          CALL message( 'read_coupling_layout', 'PA0427', 0, 0, 0, 6, 0 )

  • palm/trunk/SOURCE/urban_surface_mod.f90

    r2512 r2514  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Remove tabs
    2424!
    2525! Former revisions:
    … …  
    55415541        DO
    55425542            DO while ( svf_lt(svfl(i),x) )
    5543                 i=i+1
     5543               i=i+1
    55445544            ENDDO
    55455545            DO while ( svf_lt(x,svfl(j)) )

  • palm/trunk/SOURCE/vertical_nesting_mod.f90

    r2374 r2514  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Remove tabs
    2323!
    2424! Former revisions:
    … …  
    8888
    8989    LOGICAL ::  vnest_init = .FALSE., vnested = .FALSE., &
    90             vnest_twi = .FALSE., vnest_couple_rk3 = .FALSE.
     90                vnest_twi = .FALSE., vnest_couple_rk3 = .FALSE.
    9191
    9292    ! PARIN
    … …  
    9797!-- Public functions
    9898    PUBLIC vnest_init_fine, vnest_boundary_conds, vnest_anterpolate,          &
    99            vnest_boundary_conds_khkm, vnest_anterpolate_e,                    &
    100            vnest_init_pegrid_rank, vnest_init_pegrid_domain, vnest_init_grid, &
    101            vnest_timestep_sync, vnest_deallocate
     99           vnest_boundary_conds_khkm, vnest_anterpolate_e,                    &
     100           vnest_init_pegrid_rank, vnest_init_pegrid_domain, vnest_init_grid, &
     101           vnest_timestep_sync, vnest_deallocate
    102102
    103103!-- Public constants and variables
    … …  
    115115            nxc, nxf, nyc, nyf, nzc, nzf,                                     &
    116116            ngp_c, ngp_f, target_idex, n_cell_c, n_cell_f,                    &
    117             offset, map_coord, TYPE_VNEST_BC, TYPE_VNEST_ANTER               
     117            offset, map_coord, TYPE_VNEST_BC, TYPE_VNEST_ANTER               
    118118
    119119    INTERFACE vnest_anterpolate
    … …  
    281281                        bdims(1,1)-1:bdims(1,2)+1),&
    282282                        n_cell_c, MPI_REAL, target_idex,  &
    283                         101,    comm_inter, ierr)
     283                        101, comm_inter, ierr)
    284284   
    285285                    CALL MPI_SEND( v( bdims(3,1):bdims(3,2)+2, &
    … …  
    287287                        bdims(1,1)-1:bdims(1,2)+1),&
    288288                        n_cell_c, MPI_REAL, target_idex,  &
    289                         102,    comm_inter, ierr)
     289                        102, comm_inter, ierr)
    290290   
    291291                    CALL MPI_SEND( w( bdims(3,1):bdims(3,2)+2, &
    … …  
    293293                        bdims(1,1)-1:bdims(1,2)+1),&
    294294                        n_cell_c, MPI_REAL, target_idex,  &
    295                         103,    comm_inter, ierr)
     295                        103, comm_inter, ierr)
    296296   
    297297                    CALL MPI_SEND( pt(bdims(3,1):bdims(3,2)+2, &
    … …  
    299299                        bdims(1,1)-1:bdims(1,2)+1),&
    300300                        n_cell_c, MPI_REAL, target_idex,  &
    301                         105,    comm_inter, ierr)
     301                        105, comm_inter, ierr)
    302302   
    303303            IF ( humidity )  THEN
    … …  
    306306                        bdims(1,1)-1:bdims(1,2)+1),&
    307307                        n_cell_c, MPI_REAL, target_idex,  &
    308                         116,    comm_inter, ierr)
     308                        116, comm_inter, ierr)
    309309            ENDIF
    310310 
    … …  
    313313                        bdims(1,1)-1:bdims(1,2)+1),&
    314314                        n_cell_c, MPI_REAL, target_idex,  &
    315                         104,    comm_inter, ierr)
     315                        104, comm_inter, ierr)
    316316   
    317317                   CALL MPI_SEND(kh( bdims(3,1):bdims(3,2)+2, &
    … …  
    319319                        bdims(1,1)-1:bdims(1,2)+1),&
    320320                        n_cell_c, MPI_REAL, target_idex,  &
    321                         106,    comm_inter, ierr)
     321                        106, comm_inter, ierr)
    322322   
    323323                    CALL MPI_SEND(km( bdims(3,1):bdims(3,2)+2, &
    … …  
    325325                        bdims(1,1)-1:bdims(1,2)+1),&
    326326                        n_cell_c, MPI_REAL, target_idex,  &
    327                         107,    comm_inter, ierr)
     327                        107, comm_inter, ierr)
    328328   
    329329!-- Send Surface fluxes
    … …  
    340340!MERGE-WIP                      bdims(1,1)-1:bdims(1,2)+1),&
    341341!MERGE-WIP                      n_cell_c, MPI_REAL, target_idex,  &
    342 !MERGE-WIP                      109,    comm_inter, ierr   )
     342!MERGE-WIP                      109, comm_inter, ierr   )
    343343!MERGE-WIP
    344344!MERGE-WIP                  CALL MPI_SEND(surf_def_h(0)%usws( bdims(2,1)-1:bdims(2,2)+1, &
    345345!MERGE-WIP                      bdims(1,1)-1:bdims(1,2)+1),&
    346346!MERGE-WIP                      n_cell_c, MPI_REAL, target_idex,  &
    347 !MERGE-WIP                      110,    comm_inter, ierr   )
     347!MERGE-WIP                      110, comm_inter, ierr   )
    348348!MERGE-WIP
    349349!MERGE-WIP                  CALL MPI_SEND(surf_def_h(0)%vsws( bdims(2,1)-1:bdims(2,2)+1, &
    350350!MERGE-WIP                      bdims(1,1)-1:bdims(1,2)+1),&
    351351!MERGE-WIP                      n_cell_c, MPI_REAL, target_idex,  &
    352 !MERGE-WIP                      111,    comm_inter, ierr   )
     352!MERGE-WIP                      111, comm_inter, ierr   )
    353353!MERGE-WIP
    354354!MERGE                   CALL MPI_SEND(ts  ( bdims(2,1)-1:bdims(2,2)+1, &
    355355!MERGE                       bdims(1,1)-1:bdims(1,2)+1),&
    356356!MERGE                       n_cell_c, MPI_REAL, target_idex,  &
    357 !MERGE                       112,       comm_inter, ierr   )
     357!MERGE                       112, comm_inter, ierr   )
    358358!MERGE 
    359359!MERGE                   CALL MPI_SEND(us  ( bdims(2,1)-1:bdims(2,2)+1, &
    360360!MERGE                       bdims(1,1)-1:bdims(1,2)+1),&
    361361!MERGE                       n_cell_c, MPI_REAL, target_idex,  &
    362 !MERGE                       113,       comm_inter, ierr   )
     362!MERGE                       113, comm_inter, ierr   )
    363363!MERGE 
    364364!MERGE                   CALL MPI_SEND(z0  ( bdims(2,1)-1:bdims(2,2)+1, &
    365365!MERGE                       bdims(1,1)-1:bdims(1,2)+1),&
    366366!MERGE                       n_cell_c, MPI_REAL, target_idex,  &
    367 !MERGE                       114,       comm_inter, ierr   )
     367!MERGE                       114, comm_inter, ierr   )
    368368            ENDIF
    369369   
    … …  
    449449            NULLIFY   (   interpol3d   )
    450450   
    451 !-- Recv Surface Fluxes    
     451!-- Recv Surface Fluxes   
    452452            IF ( use_surface_fluxes )  THEN
    453453            n_cell_c = (bdims_rem(1,2)-bdims_rem(1,1)+3) * &
    … …  
    531531           w(nzb,:,:) = 0.0_wp
    532532
    533            !
    534            !-- Temperature boundary conditions at the bottom boundary
     533!
     534!-- Temperature boundary conditions at the bottom boundary
    535535           IF ( ibc_pt_b /= 0 ) THEN
    536536               pt(nzb,:,:) = pt(nzb+1,:,:)
    … …  
    16871687   
    16881688            IF ( humidity )  THEN
    1689                 CALL MPI_RECV( work3d,n_cell_c, MPI_REAL, target_idex, 209, &
     1689               CALL MPI_RECV( work3d,n_cell_c, MPI_REAL, target_idex, 209, &
    16901690                        comm_inter,status, ierr )
    16911691                interpol3d => q
    … …  
    22062206                        bdims(1,1)-1:bdims(1,2)+1),&
    22072207                        n_cell_c, MPI_REAL, target_idex,    &
    2208                         207,    comm_inter, ierr)
     2208                        207, comm_inter, ierr)
    22092209   
    22102210                    CALL MPI_SEND(km(bdims(3,1)  :bdims(3,2)  , &
    … …  
    22122212                        bdims(1,1)-1:bdims(1,2)+1),&
    22132213                        n_cell_c, MPI_REAL, target_idex,    &
    2214                         208,    comm_inter, ierr)
     2214                        208, comm_inter, ierr)
    22152215   
    22162216   
    … …  
    26882688                        comm_inter,status, ierr )
    26892689   
    2690                 IF ( humidity ) THEN
     2690                 IF ( humidity ) THEN
    26912691                    CALL MPI_RECV(q(            &
    26922692                        bdims(3,1)+1:bdims(3,2), &
    … …  
    26952695                        n_cell_c, MPI_REAL, target_idex, 106, &
    26962696                        comm_inter,status, ierr )
    2697                 ENDIF
     2697                 ENDIF
    26982698   
    26992699                    CALL MPI_RECV( w(              &
    … …  
    27812781   
    27822782            anterpol3d => u
    2783            
     2783      
    27842784            CALL anterpolate_to_crse_u ( 101 )
    27852785            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    2786                 101,    comm_inter, ierr)
     2786                101, comm_inter, ierr)
    27872787   
    27882788            anterpol3d => v
    … …  
    27902790            CALL anterpolate_to_crse_v ( 102 )
    27912791            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    2792                 102,    comm_inter, ierr)
     2792                102, comm_inter, ierr)
    27932793   
    27942794            anterpol3d => pt
    … …  
    27962796            CALL anterpolate_to_crse_s ( 105 )
    27972797            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    2798                 105,    comm_inter, ierr)
     2798                105, comm_inter, ierr)
    27992799   
    28002800   
    … …  
    28052805            CALL anterpolate_to_crse_s ( 106 )
    28062806            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    2807                 106,    comm_inter, ierr)
     2807                106, comm_inter, ierr)
    28082808          ENDIF
    28092809   
    … …  
    28162816            CALL anterpolate_to_crse_w ( 103 )
    28172817            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    2818                 103,    comm_inter, ierr)
     2818                103, comm_inter, ierr)
    28192819   
    28202820            NULLIFY   (   anterpol3d                )
    … …  
    32263226
    32273227            CALL MPI_SEND( work3d, 1, TYPE_VNEST_ANTER, target_idex,  &
    3228                            104,         comm_inter, ierr)
     3228                           104, comm_inter, ierr)
    32293229
    32303230            NULLIFY   (   anterpol3d                )
    … …  
    33493349           
    33503350       USE indices,                                                               &
    3351            ONLY: nbgp, nx, ny, nz
     3351           ONLY: nbgp, nx, ny, nz
    33523352
    33533353       USE kinds
    … …  
    34313431           
    34323432       USE indices,                                                               &
    3433            ONLY: nbgp, nx, ny, nz, nxl, nxr, nys, nyn, nzb, nzt, &
    3434                  nxlg, nxrg, nysg, nyng
     3433           ONLY: nbgp, nx, ny, nz, nxl, nxr, nys, nyn, nzb, nzt, &
     3434                 nxlg, nxrg, nysg, nyng
    34353435
    34363436       USE kinds
    … …  
    35833583            offset(2) = ( pdims_partner(2) / pdims(2) ) * pcoord(2)
    35843584     
    3585             tempx =  ( pdims_partner(1) / pdims(1) ) - 1
    3586             tempy =  ( pdims_partner(2) / pdims(2) ) - 1
     3585            tempx =  ( pdims_partner(1) / pdims(1) ) - 1
     3586            tempy =  ( pdims_partner(2) / pdims(2) ) - 1
    35873587            ALLOCATE( c2f_dims_cg (0:5,offset(1):tempx+offset(1),offset(2):tempy+offset(2) ) )
    35883588            ALLOCATE( f2c_dims_cg (0:5,offset(1):tempx+offset(1),offset(2):tempy+offset(2) ) )
    … …  
    36163616   
    36173617                   CALL MPI_SEND( c2f_dims_cg (:,map_coord(1),map_coord(2)), 6, &
    3618                                    MPI_INTEGER, target_idex, 100, comm_inter, ierr )
     3618                      MPI_INTEGER, target_idex, 100, comm_inter, ierr )
    36193619     
    36203620                   CALL MPI_SEND( f2c_dims_cg (:,map_coord(1),map_coord(2)), 6, &
    3621                                    MPI_INTEGER, target_idex, 101, comm_inter, ierr )
     3621                      MPI_INTEGER, target_idex, 101, comm_inter, ierr )
    36223622     
    36233623                end do
    … …  
    36373637            CALL MPI_TYPE_VECTOR ( MTV_RY, MTV_RZ, MTV_Z, MPI_REAL, TYPE_INT_YZ, IERR)
    36383638            CALL MPI_TYPE_HVECTOR( MTV_RX, 1, MTV_Z*MTV_Y*SIZEOFREAL, &
    3639                                               TYPE_INT_YZ, TYPE_VNEST_BC, IERR)
     3639                                              TYPE_INT_YZ, TYPE_VNEST_BC, IERR)
    36403640            CALL MPI_TYPE_FREE(TYPE_INT_YZ, IERR)
    3641             CALL MPI_TYPE_COMMIT(TYPE_VNEST_BC, IERR)                      
     3641            CALL MPI_TYPE_COMMIT(TYPE_VNEST_BC, IERR)   
    36423642
    36433643
    … …  
    37003700          USE pegrid
    37013701
    3702           IMPLICIT NONE
     3702          IMPLICIT NONE
    37033703     
    37043704          !-- Allocate and Exchange zuc and zuf, zwc and zwf
    … …  
    37683768          USE pegrid
    37693769
    3770           IMPLICIT NONE
    3771 
    3772 
    3773           IF (myid==0) PRINT*, '*** vnest: check parameters not implemented yet ***'
     3770          IMPLICIT NONE
     3771
     3772
     3773          IF (myid==0) PRINT*, '*** vnest: check parameters not implemented yet ***'
    37743774     
    37753775
    … …  
    37913791
    37923792         IF ( coupling_mode == 'vnested_crse')  THEN
    3793                 dtc = dt_3d
    3794                 if (myid == 0) then
     3793            dtc = dt_3d
     3794               if (myid == 0) then
    37953795                   CALL MPI_SEND( dt_3d, 1, MPI_REAL, target_id,                     &
    37963796                        31, comm_inter, ierr )
    … …  
    37983798                        target_id, 32, comm_inter, status, ierr )
    37993799
    3800                 endif
    3801                 CALL MPI_BCAST( dtf, 1,   MPI_REAL,    0, comm2d, ierr )
     3800                endif
     3801                CALL MPI_BCAST( dtf, 1,   MPI_REAL,    0, comm2d, ierr )
    38023802         ELSE
    3803                 dtf = dt_3d
    3804                 if (myid == 0) then
     3803                dtf = dt_3d
     3804                if (myid == 0) then
    38053805                   CALL MPI_RECV( dtc, 1, MPI_REAL,                                  &
    38063806                        target_id, 31, comm_inter, status, ierr )
    … …  
    38083808                        32, comm_inter, ierr )
    38093809
    3810                 endif
    3811                 CALL MPI_BCAST( dtc, 1,   MPI_REAL,    0, comm2d, ierr )
     3810                endif
     3811                CALL MPI_BCAST( dtc, 1,   MPI_REAL,    0, comm2d, ierr )
    38123812         
    38133813         ENDIF
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |