Changeset 1499 for trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F

Timestamp:

Nov 19, 2015, 4:04:48 PM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Added option "-cpp" so that users can add the definition of specific precompiling flags in makegcm_* scripts (and added default BLAS and LAPACK flags for ifort on Gnome and Ada).
• Put calls to dgesv (Lapack) routine in photochemistry_asis.F90 under the LAPACK preprocessing flag. Moved secondary routines in photochemistry.F and photochemistry_asis.F90 into the main (via contains instruction) to avoid multiple definitions of routines with identical names.

EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F (modified) (5 diffs)

trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F

@@ -167 +167 @@
       call chimtogcm(nlayer, nq, zycol, lswitch, nesp, rm) 
 
-      return
-      end
+      contains
+
 
 c*****************************************************************
@@ -755 +755 @@
       end do
 
-      return
-      end
+      end subroutine chimie
 
 c*****************************************************************
@@ -857 +856 @@
       end do
 
-      return
-      end
+      end subroutine gcmtochim
 
 c*****************************************************************
@@ -943 +941 @@
       end if
 
-      return
-      end
+      end subroutine chimtogcm
 
 c*****************************************************************
@@ -1564 +1561 @@
       end if
 c
-      return
-      end
+      end subroutine chemrates
+
+      end subroutine photochemistry