Changeset 3636 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

Dec 19, 2018 1:48:34 PM (5 years ago)

Author:

raasch

Message:

nopointer option removed

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3592 2018-12-03 12:38:40Z suehring
 ! Number of coupled arrays is determined dynamically (instead of a fixed value
 ! of 32)
@@ -328 +331 @@
 
 
-#if defined( __nopointer )
-    USE arrays_3d,                                                             &
-        ONLY:  diss, dzu, dzw, e, e_p, nc, nr, pt, q, qc, qr, s, u, u_p,       &
-               v, v_p, w, w_p, zu, zw
-#else
    USE arrays_3d,                                                              &
         ONLY:  diss, diss_2, dzu, dzw, e, e_p, e_2, nc, nc_2, nc_p, nr, nr_2,  &
                pt, pt_2, q, q_2, qc, qc_2, qr, qr_2, s, s_2,                   &
                u, u_p, u_2, v, v_p, v_2, w, w_p, w_2, zu, zw
-#endif
 
     USE control_parameters,                                                    &
@@ -3771 +3768 @@
 !    IF ( TRIM(name) == "z0" )    p_2d => z0
 
-#if defined( __nopointer )
-    IF ( ASSOCIATED( p_3d ) )  THEN
-       CALL pmc_s_set_dataarray( child_id, p_3d, nz_cl, nz )
-    ELSEIF ( ASSOCIATED( p_2d ) )  THEN
-       CALL pmc_s_set_dataarray( child_id, p_2d )
-    ELSEIF ( ASSOCIATED( i_2d ) )  THEN
-       CALL pmc_s_set_dataarray( child_id, i_2d )
-    ELSE
-!
-!--    Give only one message for the root domain
-       IF ( myid == 0  .AND.  cpl_id == 1 )  THEN
-
-          message_string = 'pointer for array "' // TRIM( name ) //            &
-                           '" can''t be associated'
-          CALL message( 'pmci_set_array_pointer', 'PA0117', 3, 2, 0, 6, 0 )
-       ELSE
-!
-!--       Avoid others to continue
-          CALL MPI_BARRIER( comm2d, ierr )
-       ENDIF
-    ENDIF
-#else
     IF ( TRIM(name) == "u"    )  p_3d_sec => u_2
     IF ( TRIM(name) == "v"    )  p_3d_sec => v_2
@@ -3829 +3804 @@
 
    ENDIF
-#endif
 
 #endif