Changeset 746 for LMDZ4


Ignore:
Timestamp:
Jan 18, 2007, 5:01:14 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Correction YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/V3_test/libf/phylmd/oasis.psmile

    r704 r746  
    9494! Here we go: psmile initialisation
    9595!
    96 !ym   call prism_init_comp_proto (comp_id, clmodnam, ierror)
    97 !ym
    98 !ym   IF (ierror .ne. PRISM_Ok) THEN
    99 !ym      abort_message=' Probleme init dans prism_init_comp '
    100 !ym      call abort_gcm(modname,abort_message,1)
    101 !ym   ELSE
    102 !ym      WRITE(nuout,*) 'inicma : init psmile ok '
    103 !ym   ENDIF
     96    IF (monocupu) THEN
     97      call prism_init_comp_proto (comp_id, clmodnam, ierror)
     98
     99      IF (ierror .ne. PRISM_Ok) THEN
     100         abort_message=' Probleme init dans prism_init_comp '
     101         call abort_gcm(modname,abort_message,1)
     102      ELSE
     103         WRITE(nuout,*) 'inicma : init psmile ok '
     104      ENDIF
     105    ENDIF
     106
    104107      call prism_get_localcomm_proto (il_commlocal, ierror)
    105108!
Note: See TracChangeset for help on using the changeset viewer.