[Dart-dev] [4343] DART/trunk/models/POP/model_mod.f90: adding some whitespace for readability

nancy at ucar.edu nancy at ucar.edu
Thu Apr 8 15:21:34 MDT 2010


Revision: 4343
Author:   thoar
Date:     2010-04-08 15:21:34 -0600 (Thu, 08 Apr 2010)
Log Message:
-----------
adding some whitespace for readability

Modified Paths:
--------------
    DART/trunk/models/POP/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/POP/model_mod.f90
===================================================================
--- DART/trunk/models/POP/model_mod.f90	2010-04-08 21:18:46 UTC (rev 4342)
+++ DART/trunk/models/POP/model_mod.f90	2010-04-08 21:21:34 UTC (rev 4343)
@@ -1609,9 +1609,9 @@
 
 ! Computes determinant of 3x3 matrix m
 
-deter3 = m(1,1)*m(2, 2)*m(3, 3) + m(1, 2)*m(2, 3)*m(3, 1) + &
-   m(1, 3)*m(2, 1)*m(3, 2) - m(3, 1)*m(2, 2)*m(1, 3) - &
-   m(1, 1)*m(2, 3)*m(3,2) - m(3, 3)*m(2, 1)*m(1, 2)
+deter3 = m(1,1)*m(2,2)*m(3,3) + m(1,2)*m(2,3)*m(3,1) + &
+         m(1,3)*m(2,1)*m(3,2) - m(3,1)*m(2,2)*m(1,3) - &
+         m(1,1)*m(2,3)*m(3,2) - m(3,3)*m(2,1)*m(1,2)
 
 end function deter3
 !------------------------------------------------------------


More information about the Dart-dev mailing list