Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/ozonecm.F

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/ozonecm.F (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/phylmd/ozonecm.F

@@ -3 +3 @@
 !
       SUBROUTINE ozonecm(rjour, rlat, paprs, o3)
+      USE dimphy
       IMPLICIT none
 C
@@ -19 +20 @@
 C
 
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "clesphys.h"
 #include "YOMCST.h"
@@ -33 +34 @@
       REAL an, unit, zo3q3
       SAVE an, unit, zo3q3
+c$OMP THREADPRIVATE(an, unit, zo3q3)
       REAL mu,gms, zslat, zsint, zcost, z, ppm, qpm, a
       REAL asec, bsec, aprim, zo3a3