Changeset 735 for LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h

Timestamp:

Nov 10, 2006, 3:50:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications version parallele
YM/LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h (modified) (4 diffs)

LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h

@@ -4 +4 @@
       IF (ok_isccp) THEN
 c
+c$OMP MASTER
       ndex2d = 0
       ndex3d = 0
@@ -62 +63 @@
 c
 cIM BEG region
-cym Desole dans un premier temps le mode région ne marchera pas
+cym Desole dans un premier temps le mode region ne marchera pas
 cym Il faudra voir dans un second temps pour l'implementer
-cym Mais cela posera des problèmes au niveau de la reconstruction
+cym Mais cela posera des problemes au niveau de la reconstruction
 
           imin_ins=1
@@ -81 +82 @@
           print*,'On stoke le fichier histISCCP instantanne sur ',
      s   imin_ins,imax_ins,jmin_ins,jmax_ins
-          print*,'On stoke le fichier histISCCP instantanne sur ',
-     s   zx_lon(imin_ins,1),zx_lon(imax_ins,1),
-     s   zx_lat(1,jmin_ins),zx_lat(1,jmax_ins)
+cym          print*,'On stoke le fichier histISCCP instantanne sur ',
+cym     s   zx_lon(imin_ins,1),zx_lon(imax_ins,1),
+cym     s   zx_lat(1,jmin_ins),zx_lat(1,jmax_ins)
 cIM END region
 c
@@ -256 +257 @@
         CALL histend(nid_isccp)
 c
+c$OMP END MASTER
       ENDIF ! ok_isccp