Changeset 1020 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Aug 27, 2013, 9:22:40 AM (12 years ago)

Author:

emillour

Message:

Mars GCM:
(Minor) optimizations: avoid seding non-contiguous arrays to routines (to avoid implicit copies of these arrays before and after being sent to the routine).
EM

File:

• trunk/LMDZ.MARS/libf/phymars/improvedclouds.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/improvedclouds.F

@@ -494 +494 @@
      &                    satuaf)
          call WRITEdiagfi(ngrid,"vapbf","h2ovap before","kg/kg",1,
-     &                    zq0(1,:,igcm_h2o_vap))
+     &                    zq0(1,1,igcm_h2o_vap))
          call WRITEdiagfi(ngrid,"vapaf","h2ovap after","kg/kg",1,
-     &                    zq(1,:,igcm_h2o_vap))
+     &                    zq(1,1,igcm_h2o_vap))
          call WRITEdiagfi(ngrid,"icebf","h2oice before","kg/kg",1,
-     &                    zq0(1,:,igcm_h2o_ice))
+     &                    zq0(1,1,igcm_h2o_ice))
          call WRITEdiagfi(ngrid,"iceaf","h2oice after","kg/kg",1,
-     &                    zq(1,:,igcm_h2o_ice))
+     &                    zq(1,1,igcm_h2o_ice))
          call WRITEdiagfi(ngrid,"ccnbf","ccn before","/kg",1,
-     &                    zq0(1,:,igcm_ccn_number))
+     &                    zq0(1,1,igcm_ccn_number))
          call WRITEdiagfi(ngrid,"ccnaf","ccn after","/kg",1,
-     &                    zq(1,:,igcm_ccn_number))
+     &                    zq(1,1,igcm_ccn_number))
 c         call WRITEDIAGFI(ngrid,"growthrate","growth rate","m^2/s",1,
 c     &                    gr_out)