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

Timestamp:

Aug 15, 2017 11:48:26 AM (7 years ago)

Author:

kanani

Message:

bugfixes and workarounds for nopointer version

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix and error message for nopointer version.
+! 
+! 2318 2017-07-20 17:27:44Z suehring
 ! Get topography top index via Function call 
 ! 
@@ -171 +174 @@
 #if defined( __nopointer )
     USE arrays_3d,                                                             &
-        ONLY:  dzu, dzw, e, e_p, nc, nr, pt, pt_p, q, q_p, qc, qr, u, u_p, v,  &
-               v_p, w, w_p, zu, zw
+        ONLY:  dzu, dzw, e, e_p, nc, nr, pt, pt_p, q, q_p, qc, qr, s, u, u_p,  &
+               v, v_p, w, w_p, zu, zw
 #else
    USE arrays_3d,                                                              &
@@ -504 +507 @@
     INTEGER(iwp)         ::  pmc_status   !:
 
+!
+!-- NOPOINTER version not implemented yet
+#if defined( __nopointer )
+    message_string = 'The pmc interface only runs with POINTER version'
+    CALL message( 'pmc_interface_mod', 'PA0420', 1, 2, 0, 6, 0 )
+#endif
 
     CALL pmc_init_model( world_comm, nesting_datatransfer_mode, nesting_mode,   &