Merge branch 'yjinho/atm/fix_associate_for_pgi' (PR #427)

Fix associate() statement in CAM for PGI/titan associate() statment has an issue with PGI compiler (specific version) Fixes #402 [BFB] AG-386 * yjinho/atm/fix_associate_for_pgi: Fix associate() statement in CAM for PGI/titan
E3SM-Project · Nov 2, 2015 · 477a3b6 · 477a3b6
2 parents a45a599 + 7997f6c
commit 477a3b6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/components/cam/src/physics/cam/hetfrz_classnuc_cam.F90 b/components/cam/src/physics/cam/hetfrz_classnuc_cam.F90
@@ -607,8 +607,8 @@ subroutine hetfrz_classnuc_cam_calc( &
       lchnk => state%lchnk,             &
       ncol  => state%ncol,              &
       t     => state%t,                 &
-      qc    => state%q(:,:,cldliq_idx), &
-      nc    => state%q(:,:,numliq_idx), &
+      qc    => state%q(:pcols,:pver,cldliq_idx), &
+      nc    => state%q(:pcols,:pver,numliq_idx), &
       pmid  => state%pmid               )
 
    itim_old = pbuf_old_tim_idx()

diff --git a/components/cam/src/physics/cam/microp_aero.F90 b/components/cam/src/physics/cam/microp_aero.F90
@@ -459,9 +459,9 @@ subroutine microp_aero_run ( &
       lchnk => state%lchnk,             &
       ncol  => state%ncol,              &
       t     => state%t,                 &
-      qc    => state%q(:,:,cldliq_idx), &
-      qi    => state%q(:,:,cldice_idx), &
-      nc    => state%q(:,:,numliq_idx), &
+      qc    => state%q(:pcols,:pver,cldliq_idx), &
+      qi    => state%q(:pcols,:pver,cldice_idx), &
+      nc    => state%q(:pcols,:pver,numliq_idx), &
       pmid  => state%pmid               )
 
    itim_old = pbuf_old_tim_idx()