- Timestamp:
- Jan 18, 2007, 5:01:14 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/phylmd/oasis.psmile
r704 r746 94 94 ! Here we go: psmile initialisation 95 95 ! 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 104 107 call prism_get_localcomm_proto (il_commlocal, ierror) 105 108 !
Note: See TracChangeset
for help on using the changeset viewer.