Changeset 746

Timestamp:

Jan 18, 2007, 5:01:14 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Correction YM
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/oasis.psmile (modified) (1 diff)

LMDZ4/branches/V3_test/libf/phylmd/oasis.psmile

@@ -94 +94 @@
 ! Here we go: psmile initialisation
 !
-!ym   call prism_init_comp_proto (comp_id, clmodnam, ierror)
-!ym
-!ym   IF (ierror .ne. PRISM_Ok) THEN
-!ym      abort_message=' Probleme init dans prism_init_comp '
-!ym      call abort_gcm(modname,abort_message,1)
-!ym   ELSE
-!ym      WRITE(nuout,*) 'inicma : init psmile ok '
-!ym   ENDIF
+    IF (monocupu) THEN
+      call prism_init_comp_proto (comp_id, clmodnam, ierror)
+
+      IF (ierror .ne. PRISM_Ok) THEN
+         abort_message=' Probleme init dans prism_init_comp '
+         call abort_gcm(modname,abort_message,1)
+      ELSE
+         WRITE(nuout,*) 'inicma : init psmile ok '
+      ENDIF
+    ENDIF
+
       call prism_get_localcomm_proto (il_commlocal, ierror)
 !