Ignore:
Timestamp:
Dec 19, 2018 1:48:34 PM (6 years ago)
Author:
raasch
Message:

nopointer option removed

File:
1 edited

Legend:

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

    r3622 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 3622 2018-12-12 09:52:53Z schwenkel
    2730! Important bugfix in case of restart runs.
    2831!
     
    185188
    186189    USE arrays_3d,                                                             &
    187 #if defined (__nopointer)
    188         ONLY:  ddzu, diss, dzu, dzw, hyp, hyrho,                               &
    189                nc,                   nc_p, nr,                   nr_p,         &
    190                precipitation_amount, prr, pt, d_exner, pt_init, q, ql,         &
    191                qc,                   qc_p, qr,                   qr_p,         &
    192                exner, zu, tnc_m, tnr_m, tqc_m, tqr_m
    193 #else
    194190        ONLY:  ddzu, diss, dzu, dzw, hyp, hyrho,                               &
    195191               nc, nc_1, nc_2, nc_3, nc_p, nr, nr_1, nr_2, nr_3, nr_p,         &
     
    197193               qc, qc_1, qc_2, qc_3, qc_p, qr, qr_1, qr_2, qr_3, qr_p,         &
    198194               exner, zu, tnc_m, tnr_m, tqc_m, tqr_m
    199 #endif
    200195
    201196    USE averaging,                                                             &
     
    824819       INTEGER(iwp) ::  k !<
    825820!
    826 !--          Liquid water content
    827 #if defined( __nopointer )
    828        ALLOCATE ( ql(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    829 #else
     821!--    Liquid water content
    830822       ALLOCATE ( ql_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    831 #endif
    832823
    833824!
    834825!--    3D-cloud water content
    835826       IF ( .NOT. microphysics_morrison )  THEN
    836 #if defined( __nopointer )
    837           ALLOCATE( qc(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    838 #else
    839827          ALLOCATE( qc_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    840 #endif
    841828       ENDIF
    842829!
     
    851838!
    852839!--       3D-cloud drop water content, cloud drop concentration arrays
    853 #if defined( __nopointer )
    854           ALLOCATE( nc(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    855                     nc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    856                     qc(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    857                     qc_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    858                     tnc_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                   &
    859                     tqc_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    860 #else
    861840          ALLOCATE( nc_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    862841                    nc_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
     
    865844                    qc_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    866845                    qc_3(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    867 #endif
    868846       ENDIF
    869847
     
    871849!
    872850!--       3D-rain water content, rain drop concentration arrays
    873 #if defined( __nopointer )
    874           ALLOCATE( nr(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    875                     nr_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    876                     qr(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    877                     qr_p(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    878                     tnr_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                   &
    879                     tqr_m(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    880 #else
    881851          ALLOCATE( nr_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    882852                    nr_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
     
    885855                    qr_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                    &
    886856                    qr_3(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    887 #endif
    888857       ENDIF
    889858
    890 #if ! defined( __nopointer )
    891859!
    892860!--    Initial assignment of the pointers
     
    903871          nr => nr_1;  nr_p  => nr_2;  tnr_m  => nr_3
    904872       ENDIF
    905 #endif
    906873
    907874
     
    1032999       IF ( bulk_cloud_model )  THEN
    10331000
    1034 #if defined( __nopointer )
    1035           IF ( microphysics_morrison )  THEN
    1036              qc = qc_p
    1037              nc = nc_p
    1038           ENDIF
    1039           IF ( microphysics_seifert )  THEN
    1040              qr = qr_p
    1041              nr = nr_p
    1042           ENDIF
    1043 #else
    10441001          SELECT CASE ( mod_count )
    10451002
     
    10671024
    10681025          END SELECT
    1069 #endif
    10701026
    10711027       ENDIF
Note: See TracChangeset for help on using the changeset viewer.